CRYPTAGE AVEC MOT DE PASSE

Commentaire de coolcrash le 22/02/2002 15:26:14

J'ai requarder ta souce et point vue de cryptage

sa marche pas fort

dans text à crypter il affiche seulement ta clé de cryptage inverser

c'é pas du cryptage sa

un genre de cryptage de base untilisé est

l'addition de clé

c'é simple du prend le text et tu lui ajoute ta clé ton pour le décrypter du fais l'opération inverse tu soustrait ta clé

example simple tu as besoin de dexu bouton un crypter un décrypter et tu as ausi besoin d'un textbox nommer Text

TextACrypter = "test de cryptage"
CleCryptage = "a"
TextADeCrypter = "ÕÆÔÕ�ÅÆ�ÄÓÚÑÕÂÈÆ"

voici le code pour crypter
For x = 1 To Len(TextACrypter)
  If y = Len(CleCryptage) Then
  y = 1
  Else
  y = y + 1
  End If
  TextCrypter = Asc(Mid(TextACrypter, x, 1)) + Asc(Mid(CleCryptage, y, 1))
  If TextCrypter > 255 Then
  TextCrypter = TextCrypter - 255
  End If
  Text = Text & Chr(TextCrypter)
Next x

et celui pour décryter
For x = 1 To Len(TextADECrypter)
If y = Len(CleCryptage) Then
y = 1
Else
y = y + 1
End If
TextDeCrypter = Asc(Mid(TextADECrypter, x, 1)) - Asc(Mid(CleCryptage, y, 1))
  If TextDeCrypter < 0 Then
  TextDeCrypter = TextDeCrypter + 255
  End If
  Text = Text & Chr(TextDeCrypter)
Next x

Si tu comprend pas dit moi le je vais t'expliquer