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

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

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 09:39:59

ÇA AURAIT éTé COOL SI çA AVAIT éTé VRAI! par Miiitch

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

TOFINO : LE PLUGIN FLEX POUR VISUAL STUDIO par Nix

FLEX INTéGRé DANS VISUAL STUDIO ! par Nix

RE : DANS UNE FEUILLE FORM, REMPLACER UNE FRAME PAR UNE AUTRE DE TAILLE IDENTIQUE. par 2eio

RE : PROPERTY DANS DLL par candyraton

RE : RéCUPéRER LES DONNéES D'UNE AUTRE FORM par jrivet

RéCUPéRER LES DONNéES D'UNE AUTRE FORM par beet2che

RE : PROBLèME D'ADDITION DE COLONNE par mythiac

+ de logiciels à télécharger

1 302 131 membres
87 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 077 codes, 1 208 457 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ENCRYPTEUR ASCII

Information sur la source

Catégorie :Sécurité Niveau : Débutant Date de création : 14/02/2002 Date de mise à jour : 14/02/2002 22:09:49 Vu : 1 374

Auteur : Kruptos

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Un Encrypteur en Ascii simple et basique . Très pratique pour échanger des données cryptées , et même de crypter ses pass .

Source

Private Sub Label1_Click()
On Error Resume Next
Text2 = ""
Text2 = Chr(Text3)
For i = 1 To Len(Text1.Text)
NEW_CHAINE = Asc(Mid(Text1.Text, i, 1))
Text2.Text = Text2 & Chr(NEW_CHAINE + (Val(Text3.Text)))
Next i
Text1.Text = ""
End Sub
Private Sub Label3_Click()
Unload Me
End Sub
Private Sub Label2_Click()
On Error Resume Next
For i = 2 To Len(Text2.Text)
NEW_CHAINE = Asc(Mid(Text2.Text, i, 1))
Text1.Text = Text1 & Chr(NEW_CHAINE - Val(Asc((Mid(Text2.Text, 1, 1)))))
Next i
Text2.Text = ""
End Sub

Private Sub Label1_Click()
 On Error Resume Next
 Text2 = ""
 Text2 = Chr(Text3)
 For i = 1 To Len(Text1.Text)
 NEW_CHAINE = Asc(Mid(Text1.Text, i, 1))
 Text2.Text = Text2 & Chr(NEW_CHAINE + (Val(Text3.Text)))
 Next i
 Text1.Text = ""
End Sub

Private Sub Label3_Click()
Unload Me
End Sub

Private Sub Label2_Click()
    On Error Resume Next
    For i = 2 To Len(Text2.Text)
    NEW_CHAINE = Asc(Mid(Text2.Text, i, 1))
    Text1.Text = Text1 & Chr(NEW_CHAINE - Val(Asc((Mid(Text2.Text, 1, 1)))))
Next i
Text2.Text = ""
End Sub