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....
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.