Coding tables - generateur de code de cryptage

Soyez le premier à donner votre avis sur cette source.

Vue 3 856 fois - Téléchargée 246 fois

Description

Voilà un prog qui vous permet de generer des tableaux de coorespondance ...

Ex :

CHAR -> ASCII -> CONVERION -> ASCII -> CHAR
A -> 65 -> IF..Then... -> 66 -> B

Cet exemple est une explication à la va vite ... mais les corespondance des lettres sont choisies aléatoirement , ce qui vous donne un grand nombre de tableau possibles .

Vous ne pouvez rentrer un mdp , cependant vous pourez vous consoler avec une chose , pas d'alogorithme , donc pas de force brute . Une info restée secrette à la base , ne pourra pas être décryptée , et cela c'est plus de l'ordre du casse tête , car pour trouver le tableau , faut avoir la game ASCII compléte de trouvée ... bréf , vous ne prendre aucun risque en cryptant avec ce prog .

Il vous générera un tablea , qui sera ensuite rédigé sous la forme d'un code vb . Vous aurez 2 Functions , Crypt Et Decrypt , et vous devrez les mettre dans un module , et y faire appel trés rapidement .

Le programme pourra vous générer un tableau qui pourra ou non garder votre mise en page des lignes , en gardant ou non la valeur vbcrlf .

Bonne prog , et j'espére que ce petit programme vous aidera à moins passer de temps sur la securisation de vos fichiers DATA .

Source / Exemple :


' Ici je vais vous montrer à koi ça ressemble le texte que sort le logiciel ... 

Function Encrypt(Texte) As String
Dim ValL, ValF As String
Encrypt = ""
For I = 1 To Len(Texte)
ValL = Mid(Texte, I, 1)
If Asc(ValL) = 0 Then ValF = CHR(176)
If Asc(ValL) = 1 Then ValF = CHR(155)
If Asc(ValL) = 2 Then ValF = CHR(99)
If Asc(ValL) = 3 Then ValF = CHR(199)
If Asc(ValL) = 4 Then ValF = CHR(152)
'.....etc .....
'et :

Function Decrypt(Texte) As String
Dim ValL, ValF As String
Decrypt = ""
For I = 1 To Len(Texte)
ValL = Mid(Texte, I, 1)
If Asc(ValL) = 176 Then ValF = CHR(0)
If Asc(ValL) = 155 Then ValF = CHR(1)
If Asc(ValL) = 99 Then ValF = CHR(2)
If Asc(ValL) = 199 Then ValF = CHR(3)
If Asc(ValL) = 152 Then ValF = CHR(4)
' Pour le décriptage des donées ....

Conclusion :


Pas de bug connu , le prog tourne nikel ...

Ce programme est conséillé dans :

La protection de Bases de donées
Fichier de Paramétrages

Il est déconséillé dans :

Cryptage pour plusieurs Utilisateurs
Cryptage de fichier déjà existant en décrypté
Fichiers suivant une logique d'écriture qui peut être analysée

Quand à l'utilisation du code de cette appli , et de l'appli elle même , c'est extremement Simple ...

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Messages postés
84
Date d'inscription
samedi 25 mai 2002
Statut
Membre
Dernière intervention
19 janvier 2004

j'aimerais que tu m'envoie un msg sur vbfrance car je sais po comment recuperer le texte crypté pares explique moi comment ton code fonctione svp ,.......

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.