Cryptage/decryptage rsa sur 64 bits
1/5 (17 avis)
Vue 17 604 fois - Téléchargée 2 011 fois
Description
Module de cryptage/decryptage RSA 64 bits avec génération des clés privée/public.
N'oubliez pas de générer les clés !
Lundi 21 Mai ajout d'un projet démo et de l'exécutable.
Source / Exemple :
Public key(1 To 3) As Double
Public p As Double, q As Double
Public PHI As Double
Public Sub keyGen()
Dim E#, D#, N#
Const PQ_UP As Integer = 9999
Const PQ_LW As Integer = 3170
Const KEY_LOWER_LIMIT As Long = 10000000
p = 0: q = 0
Randomize
Do Until D > KEY_LOWER_LIMIT
Do Until IsPrime(p) And IsPrime(q)
p = Int((PQ_UP - PQ_LW + 1) * Rnd + PQ_LW)
q = Int((PQ_UP - PQ_LW + 1) * Rnd + PQ_LW)
Loop
N = p * q
PHI = (p - 1) * (q - 1)
E = GCD(PHI)
D = Euler(E, PHI)
Loop
key(1) = E
key(2) = D
key(3) = N
End Sub
Private Function Euler(E3 As Double, PHI3 As Double) As Double
On Error Resume Next
Dim u1#, u2#, u3#, v1#, v2#, v3#, q#
Dim t1#, t2#, t3#, z#, uu#, vv#, inverse#
u1 = 1
u2 = 0
u3 = PHI3
v1 = 0
v2 = 1
v3 = E3
Do Until (v3 = 0)
q = Int(u3 / v3)
t1 = u1 - q * v1
t2 = u2 - q * v2
t3 = u3 - q * v3
u1 = v1
u2 = v2
u3 = v3
v1 = t1
v2 = t2
v3 = t3
z = 1
Loop
uu = u1
vv = u2
If (vv < 0) Then
inverse = vv + PHI3
Else
inverse = vv
End If
Euler = inverse
End Function
Private Function GCD(nPHI As Double) As Double
On Error Resume Next
Dim nE#, y#
Const N_UP = 99999999
Const N_LW = 10000000
Randomize
nE = Int((N_UP - N_LW + 1) * Rnd + N_LW)
top:
x = nPHI Mod nE
y = x Mod nE
If y <> 0 And IsPrime(nE) Then
GCD = nE
Exit Function
Else
nE = nE + 1
End If
GoTo top
End Function
Private Function IsPrime(lngNumber As Double) As Boolean
On Error Resume Next
Dim lngCount#
Dim lngSqr#
Dim x#
lngSqr = Int(Sqr(lngNumber))
If lngNumber < 2 Then
IsPrime = False
Exit Function
End If
lngCount = 2
IsPrime = True
If lngNumber Mod lngCount = 0 Then
IsPrime = False
Exit Function
End If
lngCount = 3
For x = lngCount To lngSqr Step 2
If lngNumber Mod x = 0 Then
IsPrime = False
Exit Function
End If
Next
End Function
Public Function Mult(ByVal x As Double, ByVal p As Double, ByVal m As Double) As Double
On Error GoTo error1
y = 1
Do While p > 0
Do While (p / 2) = Int((p / 2))
x = nMod((x * x), m)
p = p / 2
Loop
y = nMod((x * y), m)
p = p - 1
Loop
Mult = y
Exit Function
error1:
y = 0
End Function
Private Function nMod(x As Double, y As Double) As Double
On Error Resume Next
Dim z#
z = x - (Int(x / y) * y)
nMod = z
End Function
Public Function enc(tIp As String, eE As Double, eN As Double) As String
On Error Resume Next
Dim encSt As String
encSt = ""
e2st = ""
If tIp = "" Then Exit Function
For i = 1 To Len(tIp)
encSt = encSt & Mult(CLng(Asc(Mid(tIp, i, 1))), eE, eN) & "+"
Next i
enc = encSt
End Function
Public Function dec(tIp As String, dD As Double, dN As Double) As String
On Error Resume Next
Dim decSt As String
decSt = ""
For z = 1 To Len(tIp)
ptr = InStr(z, tIp, "+")
tok = Val(Mid(tIp, z, ptr))
decSt = decSt + Chr(Mult(tok, dD, dN))
z = ptr
Next z
dec = decSt
End Function
Conclusion :
N'oubliez pas de générer les clés !
Lundi 21 Mai ajout d'un projet démo et de l'exécutable.
Codes Sources
A voir également
- Rsa bits
- C / C++ / C++.NET : Cryptage decryptage rsa 32 bits (c++/mfc) - CodeS SourceS - Guide
- C / C++ / C++.NET : Crypeur de fichier rsa 64 bits - CodeS SourceS - Guide
- Le code contenu dans ce projet doit être mis à jour 64 bits vba ✓ - Forum - VBA Office (Excel, Word ...)
- Visual Basic / VB.NET : Petit cryptage décryptage avec xor - CodeS SourceS - Guide
- Visual Basic / VB.NET : Conversion de base 2,8,10,16 nombre a virgule,norme ieee 32 et 64 bits, dcb. - Guide
7 nov. 2008 à 11:00
20 janv. 2008 à 19:46
Si l'algorythme est correct, ce chiffre se contente de substituer une lettre à un chiffre quelque soit sa place dans le texte.
C'est un chiffre monoalphabétique qui ne résisterai pas à une simple analyse de fréquence !?!
Je ne pense pas que les banques utilisent un tel chiffre...
1 mai 2007 à 19:24
6 janv. 2004 à 00:40
11 nov. 2002 à 22:39
Mais comme VBFrance est open source je ne vais pas attaquer tous ceux qui copie.
Ce source est une introduction au RSA, su tu vas sur planet-source-code il y en à encore plus.
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.