在asp中通过vbs类实现rsa加密与解密

豹子

版主

Rank: 7 Rank: 7 Rank: 7

1^# 大中小发表于 2007-6-23 10:30 只看该作者

在asp中通过vbs类实现rsa加密与解密

本文章有两文件组成/ |7 r' d/ s: T
test.asp 测试演示文件9 P7 J" \' m; a
clsrsa.asp 实现rsa加密与解密的vbs类文件
下面是代码:
+ c# X7 B/ @1 D, d9 p7 l

! a. Y' p  U+ I; G4 w. \+ ^* |3 |
1. test.asp  , S8 b/ u: o- v  J, \; R9 a
9 I5 Z- S. n( y& l& B% r
%; ~. r9 u0 ?) E4 Z1 K. I$ [6 v
rem 文章标题:在asp中通过vbs类实现rsa加密与解密
rem 收集整理:yanek! G7 H5 E7 ]. O. h' l9 u1 q  H
rem 联系:aspboy@263.net
# ^8 J8 t$ I) o4 |$ B: a
%7 c7 l3 g: R. L- f
%Option Explicit%
!--#INCLUDE FILE="clsRSA.asp"--# y2 K! l2 e" ]: ^1 E
%  $ N# a3 D. T- \% z9 F/ L* _' z4 z9 l

Dim LngKeyE  D8 o: _9 o6 S! [2 w, h0 X( ^( P# i
Dim LngKeyD; ?% v  V5 `$ }! K# k  \: N
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
If Not Request.Form = "" Then  $ Q3 t6 s2 m/ H1 U3 n
) p6 x1 ^& x1 D1 ?
LngKeyE = Request.Form("KeyE")
LngKeyD = Request.Form("KeyD")" A( D( B9 h( A* Y
LngKeyN = Request.Form("KeyN")
StrMessage = Request.Form("Message")

Set ObjRSA = New clsRSA! [0 f% u8 B/ R

Select Case Request.Form("Action")1 m' s+ ~- x% t, G
Case "Generate Keys"
Call ObjRSA.GenKey()
LngKeyE = ObjRSA.PublicKey
LngKeyD = ObjRSA.PrivateKey- {8 w* S! P4 M3 q
LngKeyN = ObjRSA.Modulus
Case "Encrypt"
ObjRSA.PublicKey = LngKeyE, k* E' y3 W/ J; g& t7 x3 `+ I
ObjRSA.Modulus = LngKeyN, y" d8 e8 F8 p4 p( {
StrMessage = ObjRSA.Encode(StrMessage)
Case "Decrypt"" r9 @+ Z* y, e
ObjRSA.PrivateKey = LngKeyD7 U, v  i: X" v/ q  y
ObjRSA.Modulus = LngKeyN3 r) v& N( a5 d7 n0 ^3 U
StrMessage = ObjRSA.Decode(StrMessage)
End Select

Set ObjRSA = Nothing
9 M5 X1 H1 X# l6 R' b6 A( H7 H
End If
%9 G% n2 x- n2 P; b0 ~
HTML
HEAD
TITLERSA Cipher Demonstration/TITLE
/HEAD
BODY8 ~& V( P- a3 A9 C8 y( e
H1RSA Cipher Demonstration/H1
P0 V) w- V! c8 P; b1 r6 g
You will first need to generate your public/privage key-pair4 X6 F9 d4 _, K, D* P9 ^6 c+ u
before you can encrypt/decrypt messages.) K# j4 H$ u% $ J1 _7 {
/P1 r2 G. ~8 ?5 g& d
FORM method="post"
TABLE
TR9 O, M7 O8 v0 B
TDPublic Key/TD
TDINPUT name="KeyE" value="%=Server.HTMLEncode(LngKeyE)%"/TD
TD rowspan="3"
INPUT type="Submit" name="Action" value="Generate Keys"2 S3 @. F$ }( @% T& d$ y
/TD& x6 `7 P. t  m) I
/TR4 t; e! M2 P, Y2 o% h$ v, T7 u- p
TR* w2 X: T( u. o: I( Y! j$ f
TDPrivate Key/TD
TDINPUT name="KeyD" value="%=Server.HTMLEncode(LngKeyD)%"/TD8 U9 ]3 `8 j6 ~* Q( B3 M9 N
/TR
TR
TDModulus/TD
TDINPUT name="KeyN" value="%=Server.HTMLEncode(LngKeyN)%"/TD
/TR+ B3 [% I. o$ {# X7 E! |  }- W
TR
TD colspan="3"8 K) W4 M7 x' A) R+ V! E  g8 Y; e
Test Message:BR
TEXTAREA name="Message" cols="50" rows="7"%=Server.HTMLEncode(StrMessage)%/TEXTAREA7 E+ {. B4 N6 c- _% G  Z" k5 ?' d0 _
/TD/ N; N: [  d8 s' N
/TR
TR
TD align="right" colspan="3"
INPUT type="Submit" name="Action" value="Encrypt"
INPUT type="Submit" name="Action" value="Decrypt"9 F0 b6 |; Y* {
/TD& \- q$ A! E; `9 w
/TR9 r; ?$ C( y# ]% b
/TABLE/ x" _. s2 q( M3 l! {) f
/FORM
/BODY, A& r$ m: ]/ [' j; $ M$ o+ `- u
/HTML

7 L- N9 E- H' V7 ]8 Q+ v1 J
clsrsa.asp 3 O8 }3 R! X0 y4 S! M, b
' L$ l; o3 y/ ~/ h% {
%- x7 u  }0 _6 X5 R8 V  z. \6 K
rem 实现rsa加密与解密的vbs类文件. U/ i3 t2 L+ c  [0 G- Q9 h& M3 ^
rem 文章标题:在asp中通过vbs类实现rsa加密与解密
rem 收集整理:yanek  q# E$ O, B1 H9 y
rem 联系:aspboy@263.net

' RSA Encryption Class, [: h+ P3 O8 L$ X& F" M& V
'
' .PrivateKey
' Your personal private key. Keep this hidden.: M" L! Y$ s' \& U' j$ F
'$ ]: @4 s2 c! D: A
' .PublicKey
' Key for others to encrypt data with.( ~, O2 l1 h' `- |( C* T( ]
'
' .Modulus, u+ N. x  ^# Y- R  P5 D
' Used with both public and private keys when encrypting3 `3 Y7 |# L  R7 y
' and decrypting data.
'
' .GenKey()3 z1 |# b* p$ ]+ o% f
' Creates Public/Private key set and Modulus9 o' @: P6 j* W- }$ S5 s" n
'
' .Crypt(pLngMessage, pLngKey)
' Encrypts/Decrypts message and returns
' as a string.
'3 I% Q% t0 Y, @) d
' .Encode(pStrMessage)
' Encrypts message and returns in double-hex format2 d& t6 `! x. p8 F( T+ |* p
') y7 s% J+ Z" ~: m+ Y& t
' .Decode(pStrMessage)
' Decrypts message from double-hex format and returns a string
'2 K6 P, B# V2 O+ {& _7 }9 R' Q; @
Class clsRSA
# W; k& T# R4 r
Public PrivateKey
Public PublicKey
Public Modulus
2 @9 R% s# V5 W
Public Sub GenKey()- [( {$ j3 I% E3 u/ V
Dim lLngPhi) Z  e( ~; q9 t
Dim q8 T4 i; h, j+ g: K! E
Dim p  8 m! U5 S9 }1 C. K( Q5 e8 |$ g1 K

Randomize  * I4 y6 b/ f, i' c) n

Do
Do

' 2 random primary numbers (0 to 1000), `! D& o' }' F" A, ?/ ~
Do3 A3 a" h  l) c! X) D8 Q
p = Rnd * 1000 \ 1
Loop While Not IsPrime(p)( V  ]1 B) Y$ D) L
1 t3 ]# I3 l$ _- B1 g" C
Do* J+ ?6 y2 `/ d6 v- t, m- f, E
q = Rnd * 1000 \ 1" D* O+ N6 w& ]# H0 m- J! W
Loop While Not IsPrime(q)  7 r1 ^9 Q- l0 P" q. x

6 I7 h! L* q( C! ]
' n = product of 2 primes
Modulus = p * q \ 15 x) Y) O: m6 O3 D5 d8 J2 x8 U

' random decryptor (2 to n)
PrivateKey = Rnd * (Modulus - 2) \ 1 2

lLngPhi = (p - 1) * (q - 1) \ 1
PublicKey = Euler(lLngPhi, PrivateKey)

Loop While PublicKey = 0 Or PublicKey = 1
7 q+ p# J4 Z7 @) E
' Loop if we can't crypt/decrypt a byte , `0 }, ^2 i" @8 @9 }& w3 `: @
Loop While Not TestCrypt(255)

End Sub
; i$ }7 T* E/ X7 Y
Private Function TestCrypt(ByRef pBytData)
Dim lStrCrypted
lStrCrypted = Crypt(pBytData, PublicKey)
TestCrypt = Crypt(lStrCrypted, PrivateKey) = pBytData. C% Y( T- A9 Z. H
End Function  1 b2 a5 f+ C, u& r2 l

Private Function Euler(ByRef pLngPHI, ByRef pLngKey)
; y- F' W9 B: }# L7 Y! t
Dim lLngR(3)5 |- ^8 Y: ~$ ^% a
Dim lLngP(3)
Dim lLngQ(3)
/ G% Q- o& m/ w9 P7 u" A
Dim lLngCounter( k5 I' b) _4 u
Dim lLngResult
# \5 N  ]: L, `0 E$ ]
Euler = 0  0 y5 P3 H& R% n/ v% L) h' I

lLngR(1) = pLngPHI: lLngR(0) = pLngKey
lLngP(1) = 0: lLngP(0) = 15 `# \4 Q5 ^5 V' g0 C+ N) N7 s+ A! \
lLngQ(1) = 2: lLngQ(0) = 0

lLngCounter = -1  0 _0 S1 x$ h$ \- u5 D+ k

Do Until lLngR(0) = 0  % O" ~, \7 p& }. n1 Q
& t6 b" D9 u' u& }8 K% p: z% f& x
lLngR(2) = lLngR(1): lLngR(1) = lLngR(0)
lLngP(2) = lLngP(1): lLngP(1) = lLngP(0)( Z4 a  `. s7 ~
lLngQ(2) = lLngQ(1): lLngQ(1) = lLngQ(0)
% x5 }1 L# c  Q+ ~) u. N% I
lLngCounter = lLngCounter 1

lLngR(0) = lLngR(2) Mod lLngR(1)
lLngP(0) = ((lLngR(2)\lLngR(1)) * lLngP(1)) lLngP(2)+ U4 f  e$ t4 z7 K* C
lLngQ(0) = ((lLngR(2)\lLngR(1)) * lLngQ(1)) lLngQ(2)  : \, y! D4 D( R- r
' @( e! Z2 J! F  Y* ]6 Y4 W: r0 t
Loop    m* I7 ^9 M$ C# o5 g/ n3 S0 D

lLngResult = (pLngKey * lLngP(1)) - (pLngPHI * lLngQ(1))  . f* |! H$ C+ }; d- x) G% G. J

If lLngResult  0 Then
Euler = lLngP(1)
Else
Euler = Abs(lLngP(1)) pLngPHI
End If

End Function

Public Function Crypt(pLngMessage, pLngKey): G2 e6 S2 `( m, m5 @2 R
On Error Resume Next$ u. ^" X4 }- J( t
Dim lLngMod8 b" J! U" A; G: j
Dim lLngResult$ @" u- B& E- ~. B8 X
Dim lLngIndex" r9 b% O# K* W0 K' j2 |$ I, g
If pLngKey Mod 2 = 0 Then
lLngResult = 19 @7 Y0 E2 e8 f+ V, o  T! X: z
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus  X) V+ P& J  \) b0 ~! }( k# A
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus & |0 }0 l, K2 c) _  f
If Err Then Exit Function
Next" ^+ a5 `3 [1 K  n
Else& g5 f. J5 L' _- R$ x, a4 Q
lLngResult = pLngMessage2 W3 y0 h4 z* Y, l
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus. X  b2 l( a  G3 a
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus: ~. b" D5 [/ h( m$ ~7 ^0 v
If Err Then Exit Function5 q' z2 F, K- X/ R' U" A0 j" O
Next! ?+ w8 C! F- a& [
End If
Crypt = lLngResult
End Function  1 u$ S* [5 M7 L- V( _
0 h6 ]5 {5 k+ c  Y" P4 ^1 ?6 ^
Private Function IsPrime(ByRef pLngNumber)% J  Y1 ~. ]' a1 h: J1 y: x4 Q
Dim lLngSquare
Dim lLngIndex
IsPrime = False
If pLngNumber  2 Then Exit Function) I, D$ Q- a& j+ C4 u3 }6 d
If pLngNumber Mod 2 = 0 Then Exit Function
lLngSquare = Sqr(pLngNumber)
For lLngIndex = 3 To lLngSquare Step 2
If pLngNumber Mod lLngIndex = 0 Then Exit Function* z9 z& n7 l" e1 n2 T
Next
IsPrime = True
End Function  3 e+ |5 l; c6 ?5 w$ I4 e* `
* I2 H. V; _+ d: g: D  P
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)* l6 t5 k. a7 Z
If lLngMaxIndex = 0 Then Exit Function- r5 G8 h$ c; a* h
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))8 R3 {: v2 F- g
lLngEncrypted = Crypt(lBytAscii, PublicKey). F& ~& J5 A, |6 _) i2 r* R
Encode = Encode  NumberToHex(lLngEncrypted, 4)  U) u) A% n! V7 |; U$ @7 g
Next' I# a9 O8 e/ P& S
End Function

Public Function Decode(ByVal pStrMessage)0 u1 t0 w* L( T9 D' h
Dim lBytAscii
Dim lLngIndex# \; y! x+ ]3 ^4 Z0 t
Dim lLngMaxIndex  e% N, F" a2 X! O3 C
Dim lLngEncryptedData2 k# B$ Y1 R( B; [  z' W
Decode = ""4 d# g5 w1 B/ N& x$ {4 {4 ^5 e. q
lLngMaxIndex = Len(pStrMessage)0 `! B1 ^1 M/ G2 j( @( |( t& D/ r9 ^
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))$ s+ `+ R3 k! S$ e" c) n0 f) `& Z
lBytAscii = Crypt(lLngEncryptedData, PrivateKey): r. p8 i" L7 J. {3 |* d+ Q  w- d3 p' U
Decode = Decode  Chr(lBytAscii)
Next
End Function6 v$ p6 l# X8 j: c  z/ z" j& Z

Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)5 ^* d+ f; S+ H# R
NumberToHex = Right(String(pLngLength, "0")  Hex(pLngNumber), pLngLength)
End Function

Private Function HexToNumber(ByRef pStrHex); t7 \# h6 H/ p
HexToNumber = CLng("h"  pStrHex)
End Function    [9 @& `- R" X
+ K3 L  [  {# [( b+ t
End Class
%% f# B" `/ {- I8 }
演示地址:http://www.cnaspol.com/myrsa/test.asp

点击图标进入精品网摘收藏欢迎大家加入网络收藏夹

TOP

‹‹ 上一主题 | 下一主题 ››