Cryptographie

Télécharger le projet
Commenter

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....
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.