[原创文章] 关于国内某知名大学网站加密算法的研究 算法, 大学, 研究

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm$ f' X* o2 [7 |; i4 K
原始出处：http://www.3ast.com.cm
: f/ g1 M) K8 X9 V5 a4 s8 F- F7 G8 O% o- T- }
看不懂的直接绕过
5 g) Y8 n+ O1 n6 o3 j2 ]/ L加密前为:hwy1234561 X9 k- s& u/ q8 g- U1 e) r
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
2 Z1 Y" @& o0 O$ b- I
2 \( o: u4 q& P4 Q3 v6 W# N: h============================================: L6 V3 ^( J, O+ T
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
0 C5 [: Y* c" a$ Y( L也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法& Q8 [$ ], C# h
以下是RSA算法文件/ ]" U' G, A: U" S
; e/ O) u# |% I8 T0 k
文件名RSA.ASP9 P& S6 N$ W, e
===============================================
, e, J9 \) ?1 V. _4 s<%
/ p0 I1 L! @: m. W+ eClass clsRSA
5 t4 p1 L5 n0 P/ yPublic PrivateKey
) }8 {8 [. `4 x% dPublic PublicKey
& c* e* w1 h' D2 s( HPublic Modulus
8 b& m# Y6 r% A% }! h; T! C$ qPublic Function Crypt(pLngMessage, pLngKey) - h, J, H( B6 f: Y) `  i) d5 `8 t: p+ @
On Error Resume Next
6 t# R0 u1 z  \) C* WDim lLngMod
2 j, J- R  x) h# m; mDim lLngResult
5 z2 M/ @$ M1 \Dim lLngIndex
9 E9 J' d* }8 l$ [+ A: ~If pLngKey Mod 2 = 0 Then 0 D2 V0 E4 z! O. e
lLngResult = 1
' R3 u* j- \- tFor lLngIndex = 1 To pLngKey / 2
+ M. A- K( p4 X% _# G. _lLngMod = (pLngMessage ^ 2) Mod Modulus
9 z6 v, S8 n2 X$ h# K, ~+ `2 X' Mod may error on key generation ' K" F8 h2 w: k. z9 j; o& a- N1 {$ h
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 d+ j( p1 y$ m8 b& C
If Err Then Exit Function
, g6 Q& E8 I, o+ GNext
2 c- d: s5 P- g2 o7 e5 q' cElse
$ H6 e+ i, ]" b+ OlLngResult = pLngMessage
3 ^3 r$ g2 g% v, z# e' rFor lLngIndex = 1 To pLngKey / 2
. t" d+ y* y7 Z+ j7 l+ q  T8 |! W% f; MlLngMod = (pLngMessage ^ 2) Mod Modulus ! w' f, ~6 [2 \( r
On Error Resume Next * J9 W) |" b4 D0 N
' Mod may error on key generation 4 g) h) c! ?+ c  j1 M
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 q( }1 Q4 A1 V  _8 P( q" N7 x
If Err Then Exit Function
& ^7 d1 |# N6 _" V/ F) s4 `/ wNext & n0 o, u6 u3 w: _8 a8 }* X/ i2 W
End If
& q. Y- y$ i2 n% K  R- H( QCrypt = lLngResult
# S. B# }$ a% f* @4 i. bEnd Function0 e8 ~$ y9 t* Y

' v" V( |* ]. d' @' H2 N; PPublic Function Encode(ByVal pStrMessage) 1 E; N; ]6 `5 |! ^' g9 v: V
Dim lLngIndex
  G: g3 z# u- Z; i: j3 F1 BDim lLngMaxIndex
. ^" l9 n2 u. c& T7 O/ ADim lBytAscii
0 Z. n" ]0 ]  m2 m6 V1 vDim lLngEncrypted * k# r1 c8 q$ P6 r9 N
lLngMaxIndex = Len(pStrMessage) " D! X+ h" q. U2 P4 K) w$ O" K
If lLngMaxIndex = 0 Then Exit Function
7 g. o- s# h) Y; NFor lLngIndex = 1 To lLngMaxIndex
* b& o: n' O$ u3 ], r1 n  QlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
, l$ `4 c, [0 G" h: @, W, v! mlLngEncrypted = Crypt(lBytAscii, PublicKey) - N+ J4 X4 ?* f" Z1 g3 |3 Q
Encode = Encode & NumberToHex(lLngEncrypted, 4) . }8 N" E: u! k' t( S
Next & ^, J7 k4 m( p& |' S# |* b4 `* c* W
End Function
+ `* k6 A8 l: b: p! U( oPublic Function Decode(ByVal pStrMessage)
! e; ]* `6 T. @2 h7 Q, `" E7 fDim lBytAscii 5 w' X2 l6 b9 A; w1 Y
Dim lLngIndex 3 D% D( {' l: T% Y) n' c. e' C
Dim lLngMaxIndex
0 V* E9 l0 {' kDim lLngEncryptedData . ~% O0 `( |$ ^
Decode = ""
9 M2 T$ l0 ^& NlLngMaxIndex = Len(pStrMessage) ! i6 Y! W1 g9 y6 N" A, F, d9 J9 [
For lLngIndex = 1 To lLngMaxIndex Step 4 ; B8 @1 V( X+ G& l
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
8 G2 `" n/ Z* L/ Y: C% VlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
+ R0 r0 G* A: Q( G, w6 u/ tDecode = Decode & Chr(lBytAscii)
  O- |  E6 Y9 P) y5 ]' r* t! bNext / O6 O! C- J6 Q5 x+ t5 e4 a
End Function 1 H( P* u! h; Z1 |# R( y6 w
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 9 u1 z' v: M, ]& x1 e9 L# I
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
0 i  B7 Z: P# w, y) bEnd Function
3 |) z4 C2 {# LPrivate Function HexToNumber(ByRef pStrHex) 4 c$ l' T! s/ b- n
HexToNumber = CLng("&h" & pStrHex) ! `  @) e% `3 a9 `2 _" @
End Function
/ U9 }3 E: A: s  s, i9 Q  Z8 l; PEnd Class
% u* Y$ f9 E, h2 b% Ifunction Encryptstr(Message)
/ p4 j1 e  @! oDim LngKeyE ( E, A8 o* D4 r2 g, }
Dim LngKeyD
7 e2 J! _) c, `" cDim LngKeyN
& I" H. |: x, R% d: {7 pDim StrMessage
) D$ _0 F- q: e! J! oDim ObjRSA
. Y; o, \" O6 T; p0 h& z/ LLngKeyE = "32823" ; C8 c8 c* L% t
LngKeyD = "20643" 5 q  t" U  m. h) S4 R$ `% W
LngKeyN = "29893" + N$ F( w9 S; a
StrMessage = Message
% Q, \- @% K& s* \. q8 ySet ObjRSA = New clsRSA 7 N6 G, o: V- Z8 M( _' k1 _
ObjRSA.PublicKey = LngKeyE
& {6 F& y4 A$ J8 F! [( v; yObjRSA.Modulus = LngKeyN
. w  C; T/ _7 @  G8 f0 R: |Encryptstr = ObjRSA.Encode(StrMessage)
" C+ T/ T) o3 U1 K" o8 t: M* xSet ObjRSA = Nothing / j2 N" l. v6 P' P) C7 j
end function% l9 x) x) h# P4 w6 X+ [0 T/ C
Function Decryptstr(Message) ; x+ J* o4 a! A) r6 c1 K  x
Dim LngKeyE ! d: D4 _) [4 `3 J" I9 W0 N' f0 i9 A
Dim LngKeyD 7 ]& n. z/ q0 h2 D1 M+ L
Dim LngKeyN ! D, @' k/ h: L( J1 D% m* }
Dim StrMessage . U) _- O6 H$ T/ G
Dim ObjRSA 5 ?' X8 p7 N7 I0 k: r0 J0 b
LngKeyE = "32823" ( i: b$ g9 J6 O0 ?6 M" N
LngKeyD = "20643"
+ {. \* m$ ~, E1 ?LngKeyN = "29893" . C# o, d$ D$ }
StrMessage = Message
  y* q7 Y- G6 K8 [2 ~Set ObjRSA = New clsRSA
! d! E2 \: [7 w; E. z$ g) jObjRSA.PrivateKey =LngKeyD
6 f+ u6 ?  x9 U3 _ObjRSA.Modulus=LngKeyN % X; C8 p/ h+ X5 a! ]
decryptstr=ObjRSA.Decode(StrMessage)
6 j0 O! S' j; E# uSet ObjRSA = Nothing
0 q. \. e' E7 Z; Vend function / j: _' C0 M5 B
%>' B5 ~( v! V# m5 Y  Y
===============================================  Q7 H- l; w1 S2 x' Q

5 k# w' \5 j) m$ X4 a还有一个用于测试这段代码的test.asp% O: N9 B" J- j- w+ G' ?7 y
有兴趣的自己搭建个IIS测试下
6 Z+ h" C6 J) ?9 J+ R2 ?+ I& M<!--#INCLUDE FILE="RSA.asp"-->
) D' A$ j& ?- D; u8 K2 q<%( b9 J9 r. R- n( d$ V
function Encryptstr(Message) ; m* O" P6 B# B) v+ Y
Dim LngKeyE 3 h$ C3 E) U! N0 I
Dim LngKeyD
6 [/ @8 ]3 d+ E2 a9 j& NDim LngKeyN : `: v! v( x" Z1 |; d) M/ q
Dim StrMessage
. P: H1 |. k; ODim ObjRSA
. ]* w7 F% v* h' T, f7 cLngKeyE = "32823" 2 a, r, i" z5 D) f' P* b
LngKeyD = "20643" , ], o9 i6 R7 u
LngKeyN = "29893"
  j( a' Z( w8 e) QStrMessage = Message - y3 g8 Q: f# X/ B
Set ObjRSA = New clsRSA
$ w. B+ v) ?& t# \0 n; qObjRSA.PublicKey = LngKeyE 9 M$ E# k8 v* S
ObjRSA.Modulus = LngKeyN % p2 b2 a( a. T& A* B" @9 \6 p; F; t
Encryptstr = ObjRSA.Encode(StrMessage) 9 o! J$ D2 f1 d! l
Set ObjRSA = Nothing
6 B; Q! |2 R) a3 l* M  `4 Eend function
! h% t: r& {" F" ufunction decryptstr(Message)
' M( u: n: ^0 V/ rDim LngKeyE
" I' O6 F: O% DDim LngKeyD
- C, D' g) [; M( ?Dim LngKeyN
7 b" P4 j. c2 t. o8 q- R- _5 oDim StrMessage
% [4 B* g+ S- i: Z" {( eDim ObjRSA
/ j7 F* w5 v" O! ~3 Q2 j! jLngKeyE = "32823" / y! m7 q  _8 N( V, n
LngKeyD = "20643"
0 C' ~6 @2 N, @+ }$ L; k. ILngKeyN = "29893"
* X, M8 x, ^, \. z% fStrMessage = Message ! s# Z) x0 D% f6 x/ E
Set ObjRSA = New clsRSA 0 O0 g' J3 n) v. z
ObjRSA.PrivateKey =LngKeyD
% s- r8 v0 x0 A4 C& c6 RObjRSA.Modulus=LngKeyN
3 i0 |3 @6 `% [# y2 ~9 Qdecryptstr=ObjRSA.Decode(StrMessage) ( K6 Q9 T: g; o- P3 E
Set ObjRSA = Nothing 0 o( q5 M& B! D) Q; G) n. q
end function 1 g8 ]2 B7 z! p8 p' M( K! l* i* F
dim last,first
$ F- M* ]' y" `first="!@#$%^&*()" 0 }$ \6 M5 y- \& C6 e6 j
Response.Write "加密前为:"&first 8 M8 C3 w; R7 f( ?) k' e: X
last=Encryptstr(first)
" a1 T" q3 q/ v, I  X: mResponse.Write "加密后为"&last
' n( n+ o: `& a  g: ]. p( NResponse.Write "解密后为" &decryptstr(last) # p7 S* a# U9 d+ e, R
%> ==============================================2 Z) f2 \$ v1 T/ D3 T2 B
剩下的就是字符的对照表了
5 {% N" \4 r7 G8 ]9 p( \1 ]/ l" q===================字符集================: f4 j& }4 s  ?  T5 `# E( A
1_____6EBB  \8 [5 E: C5 j0 L
2_____5C1F
1 J7 P/ [2 @& q3_____4D75
; U2 M7 q. k& T' Z; o4_____26CC
' q" p) ~' e, x& V' u/ ^5_____4F88
3 Z8 B0 N; u7 ^1 N  k. V8 K6_____3F4E4 o/ a9 Q+ C% f/ }$ }6 ?# f8 L
7_____0A9D
: B8 O. Y9 E* j: i9 f8_____1A1C0 f3 u, M" z. d. B( V
9_____6D206 z- j8 W+ l7 g( ^+ J, k
0_____1089
) z+ O! K! {+ _* Z1 r6 Y2 Na_____0F3E
) u3 x) D  `1 y6 _+ z& n6 \b_____3159+ y) e$ u) S% W. I  c
c_____3517( |; G; N3 h' n$ B% y" u
d_____419C
- P2 V: k( K( p, P( |e_____615C4 j* R  E& R7 [+ a& e' X$ A
f_____556F# e. z7 ~" n9 j' O; ?
g_____2B7F0 o" w$ n7 g, }) f$ S5 e, k3 w6 L
h_____0F9C
+ ^% [3 G' O2 y2 g% x3 xi_____00FA$ u' q6 w2 V' s) G; X$ U
j_____5A50- v7 d. W) o" T& ?/ z
k_____28505 \; ]; m! }4 x
l_____3E7B
& Y7 L. p& w! ~9 pm_____71C5+ L' p$ N: k1 K" I3 K
n_____1FC8  |9 X2 J% ~" K  _5 E/ J
o_____74C19 ?$ f2 F# j  q& a: i! t
p_____5FB8
/ [: q* H% \7 ?- c) A6 |q_____6085/ L! W# b1 j4 x( v6 Z# }. G
r_____3AC4
5 {6 }, D# u1 c& X; ^' os_____2F50
- T0 l/ T) r3 `1 @5 v9 m: t* X- Bt_____36F89 C8 V2 [! \* z0 B+ ^0 R
u_____70102 d8 r/ A( G3 i6 t$ \7 c$ B9 I( i
v_____0B42
, c9 J* K/ B4 b: [# B; O0 N) uw_____1C7A
7 o: o4 o3 ?' d! O6 V, P# |3 Y. Vx_____16F8
0 g2 y1 s0 |( ?& Ay_____2EE77 |0 v1 b# i; {$ H! W
z_____5CF33 n! l$ g; v$ h4 R
!_____6233
; d" \4 ~- o9 W& y6 y$ b0 l@_____3A45
: r; r* y* q9 I( d9 x# N#_____22912 e! R/ N+ c" Q# ?9 I$ a6 K& z
$_____5D5C
  D2 H% r; h2 }%_____09B9- w% l5 D1 S. s3 W- @- P% t
^_____43EA
) m1 u5 P3 s$ m8 T6 \&_____62B9; S: T, {+ H0 E  E3 y; P* G
*_____6301
- {2 C7 }, }1 A/ _4 ?(_____46594 a( Q& O4 y$ l; T- u, O7 @
)_____5C82

鱼儿无心

收藏了。。。。。。。。