Cryptage de fichier par la méthode rsa (avec de petits nombres)
5/5 (2 avis)
Snippet vu 6 124 fois - Téléchargée 28 fois
Contenu du snippet
C'est un code permettant de crypter n'importe quel fichier avec la méthode RSA, mais avec des petites clés et le fichier obtenu et trois fois plus grand que celui à crypter.
Désolé, mais je ne donnerai pas l'algorithme extremement difficile du cryptage RSA avec de grands nombres.
Source / Exemple :
'Pour crypter
Dim Bit As Byte, Bit2 As Byte, m(2), N1 As Long, Mt As Long
Adn=Adresse du fichier à encrypter
Adc=Adresse du fichier encrypté
N = 33
e = 3
c = 1
Open Adn For Binary As #1
Open Adc For Binary As #2
Do While Not EOF(1)
DoEvents
Cp = Cp + 1
Get #1, Cp, Bit
For v = 0 To Len("" & Bit) - 1
N1 = Mid("" & Bit, v + 1, 1)
m(v) = N1
m(v) = m(v) ^ d
m(v) = Round(((m(v) / N) - Int(m(v) / N)) * N, 0)
Bit2 = m(v)
Select Case Len("" & Bit)
Case 1
Put #2, c, 0
Put #2, c + 1, 0
Put #2, c + 2, Bit2
Case 2
If Two = False Then Put #2, c, 0
Put #2, c + a + 1, Bit2
Two = True
Case 3
Put #2, c + a, Bit2
End Select
a = a + 1
Next v
a = 0
c = c + 3
Two = False
Loop
Close #2
Close #1
'''''''''''''''''''''''
'Pour décrypter
Dim Bit As Byte, Bit2 As Byte, m(2), N1 As Long, Mt As Long
Adn=Adresse du fichier à encrypter
Adc=Adresse du fichier encrypté
N = 33
d = 7
Open Adc For Binary As #1
Open Adn For Binary As #2
Do While Not EOF(1)
Do While v <> 3
DoEvents
Cp = Cp + 1
Get #1, Cp, Bit
N1 = Bit
If N1 = 0 Then GoTo F
m(v) = N1
m(v) = m(v) ^ e
m(v) = Round(((m(v) / N) - Int(m(v) / N)) * N, 0)
Mt = Mt + m(v) * 10 ^ (2 - v)
F:
v = v + 1
Loop
Cp2 = Cp2 + 1
Bit2 = Mt
Put #2, Cp2, Bit2
Mt = 0
v = 0
Loop
Close #2
Close #1
''''''''''''''''''''''''''''
Conclusion :
Désolé, mais je ne donnerai pas l'algorithme extremement difficile du cryptage RSA avec de grands nombres.
A voir également
- Cryptage de fichier par la méthode rsa (avec de petits nombres)
- Ocx de cryptage méthode rsa - Codes sources - Visual Basic / VB.NET (Sécurité)
- Delphi / Pascal : Cryptage de fichiers (méthode vernam) ultimate version - CodeS SourceS - Guide
- Cryptage de fichiers (tout types) - Codes sources - Visual Basic / VB.NET (Sécurité)
- Visual Basic / VB.NET : Clm's xor : cryptage de fichiers sans limite de taille - CodeS SourceS - Guide
- Visual Basic / VB.NET : Crypteur (cryptage de fichier et message) - CodeS SourceS - Guide
Du même auteur (gandalfkhorne)
-
Fonction de decoupe de chaine, grace a instr
-
Module de decoupage elliptique de controls : text, form, command, scrolls, slider, ...
-
Base de gestionnaire de fichier, a finir tres simplement
-
Effet pour form, changement de fond, d'icone et titre deroulant (en fonction du temps)
-
Effet sur des picturebox : code tres simple, fluide et commenter
25 avril 2004 à 16:47
++
22 janv. 2004 à 10:28
Sinon, pour augmenter la taille de tes clefs il faut utiliser le théorême suivant :
m^x [c]= m*m*m*...*m [c]
= (...((m*m [c])*m [c])..*m[c])
ce qui se traduit par
temp=1
m= unnombre
MaxX = unexposant
C = unmodulo
for x=0 to MaxX
temp = m*temp mod c
next x
et qui permet d'utiliser des clef sur 32 bit avec vb et 64 bits avec .NET
pour aller plus loin, il faut reprogrammer un système de calcul à soi.
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.