Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 16 00:46:19

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

CRYPTOGRAPHIE

Information sur la source

Note :

7,00 / 10

Catégorie :Maths Niveau :Débutant Date de création :22/09/2002 Date de mise à jour :22/09/2002 18:15:21 Vu / téléchargé :2 821 / 194

Auteur : lonclebob

Ecrire un message privé

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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,label 1,option1,option2

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

et je crois que cest tous =)

Source

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

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

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Cryptographie.exe49 152 octets
cryptographie.PDM3 024 octets
cryptographie.vbp 629 octets
cryptographie.vbw 48 octets

Télécharger le zip

Sources de la même categorie

CONVERTISSEUR HEXAVIGÉSIMAL par shaeks

CRYPTOGRAPHIE AFFINE par Tigrou66

SCANNER FLEX par lajouad

EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge

SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5

Toutes les sources de la catégorie Maths

Commentaires et avis

Commentaire de PtitJeoJeo le 22/09/2002 18:05:53

POUFFFFFFFFFFFFFFFFF ! c lourd ton truc ! essaye de créer une petite fonction qui s'adapte en fonction du caracter ! imagine si t'a un texte qui fé plusieur millier de carctères ! soit doit être un peu long nan ?

Commentaire de celiphane le 22/09/2002 18:11:42

??? c'est quoi ce bordel ?

Commentaire de lonclebob le 22/09/2002 18:11:45

tu pourrais me donner un exemple ??

Commentaire de safireevil le 23/09/2002 09:07:33

hohohohohohohohohohohohohohohohohoho
houhouhouhouhouhouhou
hihihihihihihihihihihihihihihihihihihihihihihihihihihih
hahahahahahahahahahahahahahahah

c'est pas du cryptage mais de l'encodage de très mauvaise qualité, désolé :-)

Commentaire de DocteurVB le 23/09/2002 17:11:44

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

Commentaire de erreurs404 le 23/09/2002 18:36:29

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.

Commentaire de aminebenn le 04/06/2010 19:21:59

bon pas mal comme débutant

Ajouter un commentaire

Nos sponsors

Derniers Blogs

GESTION D'EXCEPTION AVEC LES TASKS par richardc

DéMARRONS AVEC LES TASKS par richardc

SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

Forum

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par NHenry

RE : OUVRIR PLUSIEURS FICHIERS EXCEL EN MêME AVEC VB par ossama261988

ACCES ODBC par yannickcottin

RE : PROBLEME PROCEDURE FERMETURE FORM par thomasaurelien

RE : PROBLEME PROCEDURE FERMETURE FORM par ShayW

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Finalisation site d-encheres au centime
Budget : 2 800€
Recherche expert webmarketing
Budget : 3 000€
Republication - fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System