5/5 (5 avis)
Vue 9 862 fois - Téléchargée 806 fois
'Tout petit : 3 subs : Aucune gestion des Erreurs mais c'est prévu pour ne pas avoir les Erreurs stupides, cad celles qui sont dues à une réécriture sur un fichier (l'effacement du fichier est automatique si il existe) 'C'est le module, si vous ne voulez pas apprendre mais vous en servir, décompacter le ZIP avec votre programme et ajouter le module à votre programme. 'Vous pourrez dés lors utiliser les instructions : '-CRYPT pour crypter '-DECRYPT pour décrypter '-KEYGEN pour générer une clef randomizer Sub Crypt(Clef As String, Source As String, Destination As String) Dim a As Integer Dim b As Double Dim c As String * 1 Dim K(0 To 255) As Integer Open Clef For Random As #1 Len = 1 For a = 1 To 256 Get #1, a, c K(a - 1) = Asc(c) Next a Close If Len(Dir(Destination, 14)) > 0 Then Kill Destination Open Source For Random As #1 Len = 1 Open Destination For Random As #2 Len = 1 For b = 1 To LOF(1) Get #1, b, c c = Chr(K(Asc(c))) Put #2, b, c Next b Close End Sub Sub Decrypt(Clef As String, Source As String, Destination As String) Dim a As Integer Dim b As Double Dim c As String * 1 Dim K(0 To 255) As Integer Open Clef For Random As #1 Len = 1 For a = 1 To 256 Get #1, a, c K(Asc(c)) = a - 1 Next a Close If Len(Dir(Destination, 14)) > 0 Then Kill Destination Open Source For Random As #1 Len = 1 Open Destination For Random As #2 Len = 1 For b = 1 To LOF(1) Get #1, b, c c = Chr(K(Asc(c))) Put #2, b, c Next b Close End Sub Sub KeyGen(Destination As String) Dim a As Integer Dim b As Integer Dim c As String * 1 Dim K(0 To 255) As Integer For a = 0 To 255 K(a) = a Next a Randomize Timer If Len(Dir(Destination, 14)) > 0 Then Kill Destination Open Destination For Random As #1 Len = 1 For a = 1 To 256 Do b = Int(Rnd * 256) Loop While K(b) < 0 c = Chr$(K(b)) Put #1, a, c K(b) = -1 Next a Close End Sub
7 mai 2011 à 23:33
J'ai un soucis avec la syntaxe
Dans mon exemple :
Clef = "D:\Test\Clef.ini"
Source= "D:\Test\Source.ini"
Destination="D:\Test\Destination.ini"
1°) La sub ci-dessous marche
Sub CréerClé()
KeyGen ("D:\Test\Clef.ini")
End Sub
Le fichier Clef.ini est bien créé
2°) La sub ci-dessous n'est pas valide pour appeler ta sub Crypt :
Sub Crypter()
Clef = "D:\Test\Clef.ini"
Source = "D:\Test\Source.ini"
Destination = "D:\Test\Destination.ini"
Crypt(Clef, Source, Destination)
End Sub
La dernière ligne passe en rouge avec le message:
"erreur de compilation, attendu: ="
J'ai donc une erreur de syntaxe...
3°) Même chose pour appeler ta sub Decrypt,
Comment appeler les sub Crypt et Decrypt correctement?
J'ai essayé de les passer en "Function", mais sans plus de succès...
ça doit être tout bête, mais je tourne en rond...
Merci beaucoup
15 déc. 2009 à 01:37
Merci d'avance.
19 avril 2004 à 17:35
Pour générer une clef : KeyGen("emplacement_cible")
Pour crypter un fichier : Crypt("emplacement_de_la_clef", "fichier_a_crypter", "fichier_crypte")
Pour décrypter un fichier : Decrypt("emplacement_de_la_clef", "fichier_crypte", "fichier_decrypte")
C'est tout ^^
9 avril 2004 à 18:26
22 juin 2002 à 11:48
----------------------------------------------------
PerfectVB2k2 / Programmes VB
http://www.perfectvb2k2.fr.st
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.