Cryptographie

5/5 (7 avis)

Vue 4 597 fois - Téléchargée 431 fois

Description

Salut, je commence par dire que jai commencé la prog il y a quelques jours donc....

c'est simple ce prog encrypte et decrypte du texte

ce qu'il faut:
command1,command2,command3,text1,text2,label1,option1,option2

quelqun a une ider pour faire une demande de password lorsque l'on decrypte???

et je crois que cest tous =)

Source / Exemple :


Private Sub Check1_Click()

End Sub

Private Sub Command1_Click()

Text1.Text = Replace(Text1.Text, "a", (10011101 - 0) * 12)
Text1.Text = Replace(Text1.Text, "b", (10011101 - 5) * 12)
Text1.Text = Replace(Text1.Text, "c", (10011101 - 10) * 12)
Text1.Text = Replace(Text1.Text, "d", (10011101 - 15) * 12)
Text1.Text = Replace(Text1.Text, "e", (10011101 - 20) * 12)
Text1.Text = Replace(Text1.Text, "f", (10011101 - 25) * 12)
Text1.Text = Replace(Text1.Text, "g", (10011101 - 30) * 12)
Text1.Text = Replace(Text1.Text, "h", (10011101 - 35) * 12)
Text1.Text = Replace(Text1.Text, "i", (10011101 - 40) * 12)
Text1.Text = Replace(Text1.Text, "j", (10011101 - 45) * 12)
Text1.Text = Replace(Text1.Text, "k", (10011101 - 50) * 12)
Text1.Text = Replace(Text1.Text, "l", (10011101 - 55) * 12)
Text1.Text = Replace(Text1.Text, "m", (10011101 - 60) * 12)
Text1.Text = Replace(Text1.Text, "n", (10011101 - 65) * 12)
Text1.Text = Replace(Text1.Text, "o", (10011101 - 70) * 12)
Text1.Text = Replace(Text1.Text, "p", (10011101 - 75) * 12)
Text1.Text = Replace(Text1.Text, "q", (10011101 - 80) * 12)
Text1.Text = Replace(Text1.Text, "r", (10011101 - 85) * 12)
Text1.Text = Replace(Text1.Text, "s", (10011101 - 90) * 12)
Text1.Text = Replace(Text1.Text, "t", (10011101 - 95) * 12)
Text1.Text = Replace(Text1.Text, "u", (10011101 - 100) * 12)
Text1.Text = Replace(Text1.Text, "v", (10011101 - 105) * 12)
Text1.Text = Replace(Text1.Text, "w", (10011101 - 110) * 12)
Text1.Text = Replace(Text1.Text, "x", (10011101 - 115) * 12)
Text1.Text = Replace(Text1.Text, "y", (10011101 - 120) * 12)
Text1.Text = Replace(Text1.Text, "z", (10011101 - 125) * 12)

Text1.Text = Replace(Text1.Text, "A", (10011101 - 0) * 10)
Text1.Text = Replace(Text1.Text, "B", (10011101 - 5) * 10)
Text1.Text = Replace(Text1.Text, "C", (10011101 - 10) * 10)
Text1.Text = Replace(Text1.Text, "D", (10011101 - 15) * 10)
Text1.Text = Replace(Text1.Text, "E", (10011101 - 20) * 10)
Text1.Text = Replace(Text1.Text, "F", (10011101 - 25) * 10)
Text1.Text = Replace(Text1.Text, "G", (10011101 - 30) * 10)
Text1.Text = Replace(Text1.Text, "H", (10011101 - 35) * 10)
Text1.Text = Replace(Text1.Text, "I", (10011101 - 40) * 10)
Text1.Text = Replace(Text1.Text, "J", (10011101 - 45) * 10)
Text1.Text = Replace(Text1.Text, "K", (10011101 - 50) * 10)
Text1.Text = Replace(Text1.Text, "L", (10011101 - 55) * 10)
Text1.Text = Replace(Text1.Text, "M", (10011101 - 60) * 10)
Text1.Text = Replace(Text1.Text, "N", (10011101 - 65) * 10)
Text1.Text = Replace(Text1.Text, "O", (10011101 - 70) * 10)
Text1.Text = Replace(Text1.Text, "P", (10011101 - 75) * 10)
Text1.Text = Replace(Text1.Text, "Q", (10011101 - 80) * 10)
Text1.Text = Replace(Text1.Text, "R", (10011101 - 85) * 10)
Text1.Text = Replace(Text1.Text, "S", (10011101 - 90) * 10)
Text1.Text = Replace(Text1.Text, "T", (10011101 - 95) * 10)
Text1.Text = Replace(Text1.Text, "U", (10011101 - 100) * 10)
Text1.Text = Replace(Text1.Text, "V", (10011101 - 105) * 10)
Text1.Text = Replace(Text1.Text, "W", (10011101 - 110) * 10)
Text1.Text = Replace(Text1.Text, "X", (10011101 - 115) * 10)
Text1.Text = Replace(Text1.Text, "Y", (10011101 - 120) * 10)
Text1.Text = Replace(Text1.Text, "Z", (10011101 - 125) * 10)

Text1.Text = Replace(Text1.Text, " ", (10011101 - 0) * 24)

Text1.Text = Replace(Text1.Text, "!", (10011101 - 0) * 6)
Text1.Text = Replace(Text1.Text, "?", (10011101 - 5) * 6)
Text1.Text = Replace(Text1.Text, ":", (10011101 - 10) * 6)
Text1.Text = Replace(Text1.Text, ";", (10011101 - 15) * 6)
Text1.Text = Replace(Text1.Text, "-", (10011101 - 20) * 6)
Text1.Text = Replace(Text1.Text, "'", (10011101 - 25) * 6)
Text1.Text = Replace(Text1.Text, ",", (10011101 - 30) * 6)
Text1.Text = Replace(Text1.Text, ".", (10011101 - 35) * 6)

If Option2 = True Then Text1.Text = Label2.Caption + Label1.Caption + Text2.Text + Label2.Caption + Text1.Text
If Option1 = True Then Text1.Text = Text1.Text

End Sub

Private Sub Command2_Click()

Text1.Text = Replace(Text1.Text, (10011101 - 0) * 12, "a")
Text1.Text = Replace(Text1.Text, (10011101 - 5) * 12, "b")
Text1.Text = Replace(Text1.Text, (10011101 - 10) * 12, "c")
Text1.Text = Replace(Text1.Text, (10011101 - 15) * 12, "d")
Text1.Text = Replace(Text1.Text, (10011101 - 20) * 12, "e")
Text1.Text = Replace(Text1.Text, (10011101 - 25) * 12, "f")
Text1.Text = Replace(Text1.Text, (10011101 - 30) * 12, "g")
Text1.Text = Replace(Text1.Text, (10011101 - 35) * 12, "h")
Text1.Text = Replace(Text1.Text, (10011101 - 40) * 12, "i")
Text1.Text = Replace(Text1.Text, (10011101 - 45) * 12, "j")
Text1.Text = Replace(Text1.Text, (10011101 - 50) * 12, "k")
Text1.Text = Replace(Text1.Text, (10011101 - 55) * 12, "l")
Text1.Text = Replace(Text1.Text, (10011101 - 60) * 12, "m")
Text1.Text = Replace(Text1.Text, (10011101 - 65) * 12, "n")
Text1.Text = Replace(Text1.Text, (10011101 - 70) * 12, "o")
Text1.Text = Replace(Text1.Text, (10011101 - 75) * 12, "p")
Text1.Text = Replace(Text1.Text, (10011101 - 80) * 12, "q")
Text1.Text = Replace(Text1.Text, (10011101 - 85) * 12, "r")
Text1.Text = Replace(Text1.Text, (10011101 - 90) * 12, "s")
Text1.Text = Replace(Text1.Text, (10011101 - 95) * 12, "t")
Text1.Text = Replace(Text1.Text, (10011101 - 100) * 12, "u")
Text1.Text = Replace(Text1.Text, (10011101 - 105) * 12, "v")
Text1.Text = Replace(Text1.Text, (10011101 - 110) * 12, "w")
Text1.Text = Replace(Text1.Text, (10011101 - 115) * 12, "x")
Text1.Text = Replace(Text1.Text, (10011101 - 120) * 12, "y")
Text1.Text = Replace(Text1.Text, (10011101 - 125) * 12, "z")

Text1.Text = Replace(Text1.Text, (10011101 - 0) * 10, "A")
Text1.Text = Replace(Text1.Text, (10011101 - 5) * 10, "B")
Text1.Text = Replace(Text1.Text, (10011101 - 10) * 10, "C")
Text1.Text = Replace(Text1.Text, (10011101 - 15) * 10, "D")
Text1.Text = Replace(Text1.Text, (10011101 - 20) * 10, "E")
Text1.Text = Replace(Text1.Text, (10011101 - 25) * 10, "F")
Text1.Text = Replace(Text1.Text, (10011101 - 30) * 10, "G")
Text1.Text = Replace(Text1.Text, (10011101 - 35) * 10, "H")
Text1.Text = Replace(Text1.Text, (10011101 - 40) * 10, "I")
Text1.Text = Replace(Text1.Text, (10011101 - 45) * 10, "J")
Text1.Text = Replace(Text1.Text, (10011101 - 50) * 10, "K")
Text1.Text = Replace(Text1.Text, (10011101 - 55) * 10, "L")
Text1.Text = Replace(Text1.Text, (10011101 - 60) * 10, "M")
Text1.Text = Replace(Text1.Text, (10011101 - 65) * 10, "N")
Text1.Text = Replace(Text1.Text, (10011101 - 70) * 10, "O")
Text1.Text = Replace(Text1.Text, (10011101 - 75) * 10, "P")
Text1.Text = Replace(Text1.Text, (10011101 - 80) * 10, "Q")
Text1.Text = Replace(Text1.Text, (10011101 - 85) * 10, "R")
Text1.Text = Replace(Text1.Text, (10011101 - 90) * 10, "S")
Text1.Text = Replace(Text1.Text, (10011101 - 95) * 10, "T")
Text1.Text = Replace(Text1.Text, (10011101 - 100) * 10, "U")
Text1.Text = Replace(Text1.Text, (10011101 - 105) * 10, "V")
Text1.Text = Replace(Text1.Text, (10011101 - 110) * 10, "W")
Text1.Text = Replace(Text1.Text, (10011101 - 115) * 10, "X")
Text1.Text = Replace(Text1.Text, (10011101 - 120) * 10, "Y")
Text1.Text = Replace(Text1.Text, (10011101 - 125) * 10, "Z")

Text1.Text = Replace(Text1.Text, (10011101 - 0) * 24, " ")

Text1.Text = Replace(Text1.Text, (10011101 - 0) * 6, "!")
Text1.Text = Replace(Text1.Text, (10011101 - 5) * 6, "?")
Text1.Text = Replace(Text1.Text, (10011101 - 10) * 6, ":")
Text1.Text = Replace(Text1.Text, (10011101 - 15) * 6, ";")
Text1.Text = Replace(Text1.Text, (10011101 - 20) * 6, "-")
Text1.Text = Replace(Text1.Text, (10011101 - 25) * 6, "'")
Text1.Text = Replace(Text1.Text, (10011101 - 30) * 6, ",")
Text1.Text = Replace(Text1.Text, (10011101 - 35) * 6, ".")
End Sub

Private Sub HScroll1_Change()

End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option1_Click()
If Option1 = True Then Text2.Visible = False
If Option1 = True Then Label1.Visible = False

End Sub

Private Sub Option2_Click()
If Option2 = True Then Text2.Visible = True
If Option2 = True Then Label1.Visible = True
End Sub

Conclusion :


crypte: lettre masjuscule et minuscule, espace et . , ; ! ? etc....

Codes Sources

A voir également

Ajouter un commentaire Commentaires
aminebenn Messages postés 1 Date d'inscription dimanche 30 mai 2010 Statut Membre Dernière intervention 4 juin 2010
4 juin 2010 à 19:21
bon pas mal comme débutant
erreurs404 Messages postés 117 Date d'inscription lundi 23 octobre 2000 Statut Membre Dernière intervention 12 août 2009
23 sept. 2002 à 18:36
si tu as commencé la programmation il y a quelques jours, ne poste pas tout de suite une source ... enfin à mon avis.
Je dis ça pour t'éviter de te faire descendre en flame comme ça.
DocteurVB Messages postés 211 Date d'inscription lundi 19 août 2002 Statut Membre Dernière intervention 20 mai 2005
23 sept. 2002 à 17:11
c vrai que c'est bien lourd comme code...

pour le code secret regarde la page ci dessous :
http://www.vbfrance.com/article.aspx?Val=5512

c'est une de mes source et y'a un exemple tt con de code secret...
safireevil Messages postés 18 Date d'inscription mercredi 2 janvier 2002 Statut Membre Dernière intervention 23 septembre 2002
23 sept. 2002 à 09:07
hohohohohohohohohohohohohohohohohoho
houhouhouhouhouhouhou
hihihihihihihihihihihihihihihihihihihihihihihihihihihih
hahahahahahahahahahahahahahahah

c'est pas du cryptage mais de l'encodage de très mauvaise qualité, désolé :-)
lonclebob Messages postés 7 Date d'inscription samedi 21 septembre 2002 Statut Membre Dernière intervention 18 octobre 2002
22 sept. 2002 à 18:11
tu pourrais me donner un exemple ??
Afficher les 7 commentaires

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.