Cryptage / décryptage de string (algorithme trivial)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 550 fois - Téléchargée 28 fois

Contenu du snippet

Tout est dit dans le titre...

Crypt : on prend un caractère, on le XOR avec le suivant, et on inverse le tout

Decrypt : bah, on fait le contraire ;o)

Source / Exemple :


// cette procédure crypte une chaine en la parcourant de son premier à son dernier caractère (l'adresse du premier caractère étant passé dans EAX)

procedure crypt(s: String); register;
asm
  mov ecx, eax
@loop:
  mov al, byte ptr [ecx]
  test al, al
  jz @exit
  mov al, byte ptr [ecx + 1]
  xor byte ptr [ecx], al
  not byte ptr [ecx]
  inc ecx
  jmp @loop
@exit:
end;

// cette procédure crypte une chaine en la parcourant de son dernier à son premier caractère (l'adresse du premier caractère étant passé dans EAX, il faut tout d'abord parcourir la chaine pour trouver son dernier caractère)

procedure decrypt(s: String); register;
asm
  mov ecx, eax
  xor edx, edx
@init:
  mov al, byte ptr [ecx]
  test al, al
  jz @loop
  inc ecx
  inc edx
  jmp @init
@loop:
  test edx, edx
  jz @exit
  dec ecx
  not byte ptr [ecx]
  mov al, byte ptr [ecx + 1]
  xor byte ptr [ecx], al
  dec edx
  jmp @loop
@exit:
end;

Conclusion :


Bon vu la trivialité du cryptage çà ne sert peut-être pas à grand chose, mais çà a le mérite de m'avoir fait comprendre pas mal de choses ;o)

Pas de bugs connus, tout fonctionne correctement...

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
dimanche 12 mars 2006
Statut
Membre
Dernière intervention
20 août 2007

C'est bien de l'assembleur mais pour DELPHI.
P.S. Cette source m'a été utile pour la base d'un de mes encrypteur.
TY
Messages postés
1
Date d'inscription
dimanche 6 juillet 2003
Statut
Membre
Dernière intervention
6 juillet 2003

mmmm je suis pas sûr ms je pense kil voulait parler de DELPHI.... d'ou le post dns cette rubrike me semble t'il...
Messages postés
19
Date d'inscription
lundi 10 juin 2002
Statut
Membre
Dernière intervention
5 juin 2005

Bon ben moi ça marche pas sous nasm, et en quoi ça nous renseigne sur le compilateur la categorie ?
(à mon avis y a quiproquo :))
Messages postés
790
Date d'inscription
samedi 8 juin 2002
Statut
Membre
Dernière intervention
7 juin 2007
1
Heu... Regarde la catégorie dans laquelle j'ai placée ma source ? lol

PS pour ceux qui auraient peur d'user leur molette en remontant la page : "Catégorie : Delphi et asm"
Messages postés
46
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
2 décembre 2006

C bien, mais quel compilateur?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.