[wz] decodeur de mot de passe ftpexpert.

Description

Voilà, un nouveau programme qui sort tout droit du labo WZ. (WarriorZ) Ce programme sert aux personnes, disposant du logiciel FTPexpert (la première version) et qui par mégarde aurait oublié leur code ou pour ceux qui voudrait étudier la cryptographie des mot de passe de ce logiciel.Pour cela vous avez dans le dossier ou vous avez installer FTPexpert un fichier nommé "sites.ini" regardez le contenue de ce fichier avec "notepad.exe"
puis vous remarquerez que si vous avez enregistrer un site vous verrez les informations concernant l'accès dont le mot de passe (crypté) et c'est là que le programme ci dessous vas vous servir car après avoir copier le code crypté vous n'aurais qu'a le coller dans la première zone de texte de ce programme et celui ci le transformeras en texte normal.
Vous pouvez l'essayer avec par exemple comme code : ýËØØÃÅØð

Source / Exemple :


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

Conclusion :


N'utilisez pas ce programme de façon illégale.
Si vous trouver un bug ; envoyer moi un mail à maxsecurite@voila.fr
WarriorZ

Codes Sources

A voir également

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.