[Réglé] Problème pour un crypteur de fichier

[Dorian]

Bonjour

Je me suis mis au Pure Basic récemment et je voulais faire un programme qui crypte un fichier choisi par l'utilisateur et pouvoir le décrypter après.

J'ai essayé avec ReadData() et donc les tampon mais le moyen que j'ai trouvé est très limité

Crypt:

Code : Tout sélectionner

file$=InputRequester("Crypter","Fichier à crypter :","")
If ReadFile(0,file$)
  Taille = Lof()
  *buffer=AllocateMemory(Taille)
  ReadData(*buffer,Taille)
  *bufferc= *buffer-5
  crypt$="crypt_"+file$
  CreateFile(1,crypt$)
  WriteData(*bufferc,Taille)
  CloseFile(0)
  CloseFile(1)
  MessageRequester("Fini","Opération réussie")
EndIf

Décrypt:

Code : Tout sélectionner

file$=InputRequester("Décrypter","Fichier à décrypter :","")
If ReadFile(0,file$)
  Taille = Lof()
  *buffer = AllocateMemory(Taille)
  ReadData(*buffer,Taille)
  *bufferc = *buffer+5
  crypt$=RemoveString(file$,"crypt_")
  CreateFile(1,crypt$)
  WriteData(*bufferc,Taille)
  CloseFile(0)
  CloseFile(1)
  MessageRequester("Fini","Opération réussie")
EndIf

Par ce moyen, on ne peut faire que des addition ou soustraction sur le tampon. Ce qui est très limité pour crypter le fichier.

J'aimerais savoir comment faire pour pouvoir crypter un fichier avec un algorithme plus efficace ou avoir une autre méthode que les tampon.

Merci

[Oliv]

Salut, cherche sur le forum anglais pour sur www.purearea.net section codearchiv, , le lien direct est http://www.purearea.net/pb/CodeArchiv/French.html#2 mais si tu ne connais pas promène toi sur tout le site : très intéressant

[Dorian]

Super Merci, je connaissais déjà ce site mais j'étais passé à côté de ce code.

[Frenchy Pilou]

La loi et le cryptage