Discussion :

[zoheir_hm]

salut,
je cherche une fonction de cryptage c l'un de vous a deja utilisé ou developpé un programme pour le cryptage / décryptage selon une clé
je vous remercie

[Gilbert Geyer]

Bonjour,

Tu pourras te créer une fonction de cryptage et une autre de décryptage en t'inspirant des codes utilisés pour remplacer dans une string les caractères accentués par des caractères non accentués. Dans la constante qui suit ces caractères accentués sont tout bonnement remplacés par les codes des caractères non accentués

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
const
 SansAccents : array[Char] of Char
             =  #0#1#2#3#4#5#6#7#8#9#10#11#12#13#14#15 +
                #16#17#18#19#20#21#22#23#24#25#26#27#28#29#30#31 +
                ' !"#$%&''()*+,-./0123456789:;<=>?' +
                '@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'+
                '`abcdefghijklmnopqrstuvwxyz{|}~'#127 +
                '€'#129'‚ƒ„…†‡ˆ‰S‹Œ'#141'Ž'#143#144'‘’“”•–—˜™s›œ'#157'zY' +
                #160'¡¢£¤¥¦§¨©ª«¬*®¯°±²³´µ¶·¸¹º»¼½¾¿' +
                'AAAAAAÆCEEEEIIIIDNOOOOO×ØUUUUYÞß' +
                'aaaaaaæceeeeiiiidnooooo÷øuuuuyþy';

... donc tu peux te fixer ta règle de cryptage par exemple le caractère 'a' est crypté en 'é', le 'b' en en 'ç', et ainsi de suite ... et l'inverse pour le décryptage.
... et pour ce qui est des codes utilisés pour remplacer dans une string les caractères accentués par des caractères non accentués dont tu peux t'inspirer tu peux les trouver dans cette discussion : http://www.developpez.net/forums/sho...d.php?t=378161
en plus les codes en question ont fait l'objet de tests de vitesse ce qui te facilitera ton choix.

A+

[Paul TOTH]

dans la rubrique des composants freeware du site tu trouveras Delphi Cryptography Package