PureBasic

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

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

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

La loi et le cryptage

PureBasic

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

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