Soyez le premier à donner votre avis sur cette source.
Vue 32 944 fois - Téléchargée 723 fois
Private Sub Text1_Change() Dim x, xx, xxx For i = 1 To Len(Form1.Text1) x = Mid$(Form1.Text1, i, 1) If x = "?" Then xx = 0 If x = "Ë" Then xx = 1 If x = "È" Then xx = 2 If x = "É" Then xx = 3 If x = "Î" Then xx = 4 If x = "Ï" Then xx = 5 If x = "Ì" Then xx = 6 If x = "Í" Then xx = 7 If x = "Â" Then xx = 8 If x = "Ã" Then xx = 9 If x = "À" Then xx = 10 If x = "Á" Then xx = 11 If x = "Æ" Then xx = 12 If x = "Ç" Then xx = 13 If x = "Ä" Then xx = 14 If x = "Å" Then xx = 15 If x = "Ú" Then xx = 16 If x = "Û" Then xx = 17 If x = "Ø" Then xx = 18 If x = "Ù" Then xx = 19 If x = "Þ" Then xx = 20 If x = "ß" Then xx = 21 If x = "Ü" Then xx = 22 If x = "Ý" Then xx = 23 If x = "Ò" Then xx = 24 If x = "Ó" Then xx = 25 If x = "Ð" Then xx = 26 If x = "ë" Then xx = 27 If x = "è" Then xx = 28 If x = "é" Then xx = 29 If x = "î" Then xx = 30 If x = "ï" Then xx = 31 If x = "ì" Then xx = 32 If x = "í" Then xx = 33 If x = "â" Then xx = 34 If x = "ã" Then xx = 35 If x = "à" Then xx = 36 If x = "á" Then xx = 37 If x = "æ" Then xx = 38 If x = "ç" Then xx = 39 If x = "ä" Then xx = 40 If x = "å" Then xx = 41 If x = "ú" Then xx = 42 If x = "û" Then xx = 43 If x = "ø" Then xx = 44 If x = "ù" Then xx = 45 If x = "þ" Then xx = 46 If x = "ÿ" Then xx = 47 If x = "ü" Then xx = 48 If x = "ý" Then xx = 49 If x = "ò" Then xx = 50 If x = "ó" Then xx = 51 If x = "ð" Then xx = 52 If x = "?" Then xx = 53 If x = "?" Then xx = 54 If x = "?" Then xx = 55 If x = "?" Then xx = 56 If x = "?" Then xx = 57 If x = "?" Then xx = 58 If x = "?" Then xx = 59 If x = "" Then xx = 60 If x = "'" Then xx = 61 If x = """" Then xx = 62 Do While xx > 62 xx = xx - 62 Loop If xx = 0 Then xxx = " " If xx = 1 Then xxx = "a" If xx = 2 Then xxx = "b" If xx = 3 Then xxx = "c" If xx = 4 Then xxx = "d" If xx = 5 Then xxx = "e" If xx = 6 Then xxx = "f" If xx = 7 Then xxx = "g" If xx = 8 Then xxx = "h" If xx = 9 Then xxx = "i" If xx = 10 Then xxx = "j" If xx = 11 Then xxx = "k" If xx = 12 Then xxx = "l" If xx = 13 Then xxx = "m" If xx = 14 Then xxx = "n" If xx = 15 Then xxx = "o" If xx = 16 Then xxx = "p" If xx = 17 Then xxx = "q" If xx = 18 Then xxx = "r" If xx = 19 Then xxx = "s" If xx = 20 Then xxx = "t" If xx = 21 Then xxx = "u" If xx = 22 Then xxx = "v" If xx = 23 Then xxx = "w" If xx = 24 Then xxx = "x" If xx = 25 Then xxx = "y" If xx = 26 Then xxx = "z" If xx = 27 Then xxx = "A" If xx = 28 Then xxx = "B" If xx = 29 Then xxx = "C" If xx = 30 Then xxx = "D" If xx = 31 Then xxx = "E" If xx = 32 Then xxx = "F" If xx = 33 Then xxx = "G" If xx = 34 Then xxx = "H" If xx = 35 Then xxx = "I" If xx = 36 Then xxx = "J" If xx = 37 Then xxx = "K" If xx = 38 Then xxx = "L" If xx = 39 Then xxx = "M" If xx = 40 Then xxx = "N" If xx = 41 Then xxx = "O" If xx = 42 Then xxx = "P" If xx = 43 Then xxx = "Q" If xx = 44 Then xxx = "R" If xx = 45 Then xxx = "S" If xx = 46 Then xxx = "T" If xx = 47 Then xxx = "U" If xx = 48 Then xxx = "V" If xx = 49 Then xxx = "W" If xx = 50 Then xxx = "X" If xx = 51 Then xxx = "Y" If xx = 52 Then xxx = "Z" If xx = 53 Then xxx = "0" If xx = 54 Then xxx = "1" If xx = 55 Then xxx = "2" If xx = 56 Then xxx = "3" If xx = 57 Then xxx = "4" If xx = 58 Then xxx = "5" If xx = 59 Then xxx = "6" If xx = 60 Then xxx = "7" If xx = 61 Then xxx = "8" If xx = 62 Then xxx = "9" Form1.Text2.Text = Form1.Text2.Text & xxx Next i End Sub
J'ai une vieille version de ftpexpert (la 1.20 pour être exact), et j'avais plein de site dessus, je me suis dis "chouette une source qui va m'être utile", bon malgré le code un peu archaïque je me suis dis "pourquoi pas"...
Bon le seul soucis c'est que dans la version 1.20 les mots de passes n'ont aps cette gueule là...ils commencent par ° ... Damned ils sont devenus intelligent et ont mit des vrais gens pour crypter leurs mots de passe dés la version 1.20 !
c'est bien de l'encodage car le cryptage se base sur une CLEF de cryptage, or l'encodage est juste la substitution de caractères par d'autres (plus ou moins complexement)
Ici, l'algo (c'est un algo ???) est simplissime et c'est bien de l'encodage!
voilà ^^
;-)
skram
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.