CRYPTER ET DÉCRYPTER UNE CHAÎNE

'Si operation=0 la fonction crypte la chaine Entree selon la cle défini (préférablement entre 0 et 10)
'Si operation=1 la fonction décrypte la chaine entree selon la cle définie (préférablement entre 0 et 10)
Public Function Cryptage(ByVal Entree As String, ByVal Cle As Long, ByVal Operation As Long) As String
Dim Entree1(20000) 'Création des tableaux
Dim Sortie1(20000)
If Operation = 0 Then 'Boucle de cryptage
For i = 1 To Len(Entree)
Entree1(i) = Mid(Entree, i, 1)
Sortie1(i) = Chr(Asc(Entree1(i)) + Cle)
Cryptage = Cryptage + Sortie1(i)
Next i
End If
If Operation = 1 Then 'Boucle de décryptage
For i = 1 To Len(Entree)
Entree1(i) = Mid(Entree, i, 1)
Sortie1(i) = Chr(Asc(Entree1(i)) - Cle)
Cryptage = Cryptage + Sortie1(i)
Next i
End If
End Function 

• COMPARER DEUX HEURES(TEMPS)

• LES ACL (ACCESS CONTROL LIST ) STANDARD EN VB
• SIMULATION D'UNE CONNEXION NETBUS
• TRACE ERASE
• VBSPAMCHECK : RÉCUPÉRER LES COURRIELS LÉGITIMES DANS UNE BASE DE SPAM DBX
• PROTECTION PAR MOT DE PASSE

• CRYPTAGE ET DÉCRYPTAGE DE TEXTE (SIMPLE)
• RC4 ENCRYPT/DECRYPT FONCTION
• CHARLIGMA
• CRYPTAGE/DÉCRYPTAGE DES SCRIPTS "UNIVERSAL MATRICE V0.57"
• UN SIMPLE CRYPTEUR/DÉCRYPTEUR DE FICHIERS AVEC UNE OPTION INTÉRESSANTE