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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
% w. }( }9 o1 ?/ E原始出处：http://www.3ast.com.cm
6 Y5 \. A% A* }+ G0 W3 P" Y& U0 Y3 U2 ]$ n
看不懂的直接绕过. T) ?: C' D" R1 Q; }, @
加密前为:hwy1234566 @- q7 [, ^. l
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
, X  o5 a+ f/ @! C* Y# f9 ^4 A$ V$ e( U# j" q
============================================9 Q5 M- C$ `( h
上面是当时自己校内的心情。现在已经解破出来了，分享给大家$ Z. N! d5 ~! f8 e/ e" _
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
0 c6 s( G! s1 n0 l以下是RSA算法文件
" v' X! Z( w, Q" `% W. u) L
' q) @2 y( ^" d* Z, \& m) u文件名RSA.ASP
, `3 g* K. `' p* e9 D; f- Z* `===============================================( m: H9 r3 F) S
<% * ^+ c0 |/ ?, [' O' q3 X
Class clsRSA # Q- `# }& i: g( c8 `5 V6 n
Public PrivateKey
2 l# u5 \2 C7 G; [% N  l, Q4 v4 sPublic PublicKey
' u: `# C- O; g0 a/ g2 qPublic Modulus 0 }- r. d& r0 l9 \
Public Function Crypt(pLngMessage, pLngKey) ; B8 T' `# I0 O
On Error Resume Next
0 c7 e" Q: H# ?; `Dim lLngMod
) ]' U3 ]7 ]9 a  jDim lLngResult / Y% ]; C; A: M& F5 F
Dim lLngIndex
( d  F8 l- l! C, Q/ c5 H2 z% i/ @: wIf pLngKey Mod 2 = 0 Then
5 q1 x) v% T. C( J1 slLngResult = 1 $ \' }5 A% k' j% X3 @
For lLngIndex = 1 To pLngKey / 2
8 t( M+ f& p; @4 f$ P. [lLngMod = (pLngMessage ^ 2) Mod Modulus 8 k( K. `7 x1 r1 t# C
' Mod may error on key generation 6 ]  Q' p# |% M
lLngResult = (lLngMod * lLngResult) Mod Modulus
# I- B" z( r( M2 N0 J+ PIf Err Then Exit Function
+ J0 r" r$ ^  {5 ^Next $ @/ L9 J& b3 ?" e3 p- |2 s
Else , |8 E- T" h  Z+ n$ h
lLngResult = pLngMessage ; _7 X  Y. `* ?) I
For lLngIndex = 1 To pLngKey / 2 . l- O- l- _' U. A; L
lLngMod = (pLngMessage ^ 2) Mod Modulus
3 d2 J( ?+ z/ P: J6 F7 G# uOn Error Resume Next 3 o+ k; K( ~9 A4 ^4 n7 m
' Mod may error on key generation
! Y9 t8 `/ T+ W+ i, HlLngResult = (lLngMod * lLngResult) Mod Modulus
; q" X3 c6 [/ L0 T& ]8 yIf Err Then Exit Function + k/ s# D1 U$ ?5 s# C3 z
Next
9 v0 x" I# _9 S2 IEnd If
% U! A, Y9 G# ~& uCrypt = lLngResult 2 `5 T" [# X3 m# d* h5 n) M5 H' P
End Function
6 e6 P  c. U- S; ]( ^! W. b5 f- U7 ]% v9 e% n% O# C
Public Function Encode(ByVal pStrMessage)
1 e; G3 k8 y3 YDim lLngIndex / ^! U, N! _# J
Dim lLngMaxIndex
, n( L( t' B( ~Dim lBytAscii
( r, ]7 r' S2 R) |8 M5 XDim lLngEncrypted 6 ]1 |9 r4 x- K! T. e$ o' _
lLngMaxIndex = Len(pStrMessage) $ n: D$ r  d/ o, @  P, Y/ m/ m
If lLngMaxIndex = 0 Then Exit Function
/ B# `, H* y1 o# Y( eFor lLngIndex = 1 To lLngMaxIndex
3 v5 s" z- y! z/ e5 g4 S$ p2 clBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
; i, r+ h- f3 VlLngEncrypted = Crypt(lBytAscii, PublicKey)
  N) }- p% Y, x  j  o* O6 dEncode = Encode & NumberToHex(lLngEncrypted, 4)
: D+ o$ o7 R  \Next
3 _( i+ H$ K/ M+ N6 W* m# x! W) kEnd Function
& m+ N9 A. i% RPublic Function Decode(ByVal pStrMessage)
+ J. C2 }+ @- y$ UDim lBytAscii , _6 p0 P2 o4 w" z; z
Dim lLngIndex 1 I; b$ B& W, v7 ~
Dim lLngMaxIndex
. b( ?& _. e1 ZDim lLngEncryptedData % N( K; O3 Q1 K' }, d  P2 G( u% I
Decode = "" + t2 `1 M) w7 o8 S7 H: q4 p
lLngMaxIndex = Len(pStrMessage) 9 Z8 G: x0 g$ [7 {, E1 \: Y
For lLngIndex = 1 To lLngMaxIndex Step 4 + G8 u0 j& e) P6 @* O  b/ E+ a
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 2 r% z0 D% D) \1 M* P
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) % l; |$ |8 `2 B; a7 X
Decode = Decode & Chr(lBytAscii) . A) _9 _: R( [8 a4 `' k8 {
Next
- z/ s) ?8 z8 b1 R& @& J9 AEnd Function $ ]8 e/ y# H5 a" L4 `0 ^/ _
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) & S; j6 B, |3 Y+ F& o: u! Z
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) , i" a" w( u7 e! J
End Function
$ Z4 U& J6 [; ~Private Function HexToNumber(ByRef pStrHex)
: O+ p$ H5 T6 }HexToNumber = CLng("&h" & pStrHex) ; z; R3 K3 O8 P. p  |- Q
End Function
7 E7 C& ?3 L  }3 d' H5 \End Class 1 w5 J) z0 r; ^
function Encryptstr(Message)
) [- n& @4 P. MDim LngKeyE
1 P, K0 c9 _' U! A" Y: qDim LngKeyD
% _0 M5 w( |/ vDim LngKeyN
3 e$ v9 Z: C+ p# d/ k8 L* o0 DDim StrMessage
3 b0 u9 B( S# z) u, BDim ObjRSA ' Q* ^; z+ P, D4 f, h; q
LngKeyE = "32823" 2 x9 \6 Q. ?4 r6 {- _/ \
LngKeyD = "20643"
( L1 a5 n8 w& n/ L* g5 Z0 wLngKeyN = "29893"
/ z8 H, q, g* z+ O) hStrMessage = Message
0 Y$ Q  `3 }- v4 K+ k5 I  L" }Set ObjRSA = New clsRSA
5 r0 Q! Z5 e' cObjRSA.PublicKey = LngKeyE
# w% q5 d+ U9 R+ X1 qObjRSA.Modulus = LngKeyN 6 j! v: W' ?- ?5 q) E2 }
Encryptstr = ObjRSA.Encode(StrMessage)
! [& y* o8 [7 wSet ObjRSA = Nothing % _6 i+ e7 ]3 S. t4 M7 G8 c4 \
end function0 c, l+ E) d9 u0 G" h! q$ e
Function Decryptstr(Message) 7 I+ N3 O3 ^7 K" [
Dim LngKeyE
) ]. o1 j/ r' C, ZDim LngKeyD   t0 O! U0 d% e( E* E: y& \
Dim LngKeyN
5 t5 s; R+ J* a+ gDim StrMessage 2 v. r7 }( B& d" Z
Dim ObjRSA
- b& d8 d' b$ @LngKeyE = "32823" - Z$ u' O! w9 `( Q0 c4 }* i
LngKeyD = "20643"
8 J# k! F3 Y, k4 bLngKeyN = "29893" * [* s7 ]( [( l- P2 t
StrMessage = Message / |. t/ ^* y4 |* F7 @7 |
Set ObjRSA = New clsRSA
& V: N% h- G% O" @. l: X: NObjRSA.PrivateKey =LngKeyD
# Y7 `# ~8 j8 F) O  P& LObjRSA.Modulus=LngKeyN
+ P" {' i4 G0 R3 Vdecryptstr=ObjRSA.Decode(StrMessage) 0 ]* B. E8 j+ a5 q7 t& {$ m
Set ObjRSA = Nothing   M/ |& X0 U4 Y/ N* H* Q% d. f. _
end function " i8 l  w! p! J4 ~; ^6 |
%>
; E* f& b. R9 [( L' t! i===============================================4 P$ l. ^2 n8 U6 K( z) x9 r
) e* e* t! X* Z- m- R4 k( T* D
还有一个用于测试这段代码的test.asp
" O0 n1 U; H, v6 Q4 `有兴趣的自己搭建个IIS测试下: O, e* J6 Z7 e; [
<!--#INCLUDE FILE="RSA.asp"-->
. R# h8 Q8 G# @  ~5 P' b! s& X<%* ]# [3 W* X& O4 K  X
function Encryptstr(Message)
- D5 }. j! v" O6 L0 f# d$ |) oDim LngKeyE - s3 w' K) P5 Y! j. `) |, ^- D
Dim LngKeyD ) T( Z# M1 i0 [9 X& O4 b+ ?0 i
Dim LngKeyN
3 q6 ?+ f, r+ V: L7 O( W' u4 |Dim StrMessage
2 ?5 B5 _5 c, o( HDim ObjRSA $ J1 N. T" d' }; \7 J5 f1 ^$ e/ Y
LngKeyE = "32823"
' j2 O8 }$ c1 I) N! R' e" `LngKeyD = "20643"
3 D! Y+ m/ ?2 a' @1 ?) ?LngKeyN = "29893" ' `3 P  k: j) z5 _, G- U* O; u
StrMessage = Message ! v5 K/ t- j, T+ `
Set ObjRSA = New clsRSA
: c  W- L6 S" i" M- cObjRSA.PublicKey = LngKeyE % y* z; r1 b/ Y8 [) {3 y
ObjRSA.Modulus = LngKeyN
! S. f* I2 S. n6 ^+ REncryptstr = ObjRSA.Encode(StrMessage) 0 u  |  Q; L8 C
Set ObjRSA = Nothing
5 c; b" @, C- j1 @/ A8 fend function 5 _1 b. T; ~' R( ^" Y- {
function decryptstr(Message)
- `- `; \/ D2 u! lDim LngKeyE , H, U, }2 n4 }5 `
Dim LngKeyD
6 x# d+ L! g; }9 D) ?Dim LngKeyN 1 o1 ?. b# n8 I) m+ n# j* }
Dim StrMessage / t5 H) h) H# }4 u
Dim ObjRSA
/ ^6 E  C9 t9 `8 u5 FLngKeyE = "32823" 8 A3 J4 N1 T0 v( [0 k9 o1 C
LngKeyD = "20643" / |) J6 K  Z% M' h3 ~
LngKeyN = "29893" ' \+ g% e- ~- j
StrMessage = Message
. z1 o- h6 j, p) j0 V$ SSet ObjRSA = New clsRSA
$ b% G7 X% S  k+ I2 @ObjRSA.PrivateKey =LngKeyD 4 |/ q/ w* ?6 h) J
ObjRSA.Modulus=LngKeyN
0 t% Z6 J$ R/ `4 x- `  Kdecryptstr=ObjRSA.Decode(StrMessage) . p3 V" C% m' Q) W# ^3 y0 Y5 L& M% }, h* x
Set ObjRSA = Nothing
* R8 l* |" K: d$ m& rend function % w! Z: s# S2 U5 `: n' \
dim last,first
) s2 {* h1 F" R: I+ }0 Ifirst="!@#$%^&*()" ! I2 b8 Y. @1 I: X4 T& J
Response.Write "加密前为:"&first
0 |/ A# l3 G: a: z% m' Q& mlast=Encryptstr(first) . Y$ a5 Q7 M% {: A
Response.Write "加密后为"&last , f5 @, N' Y) f' h# w' d4 j! U1 N
Response.Write "解密后为" &decryptstr(last) . l+ @" R# F% ?7 G- P
%> ==============================================$ B5 `# T/ P: t# q  y) |* T
剩下的就是字符的对照表了
/ N/ ]% y2 ~, v0 ?8 i6 a===================字符集================0 t: R3 ^- b7 \7 I$ M- c: H/ V7 T
1_____6EBB7 T: }) p: n' }# R
2_____5C1F5 [% z) ?2 f+ N' g$ m" z+ a* V
3_____4D75* i% w! s7 j! u( u
4_____26CC
5 B4 m5 P+ \9 B# X+ ^% P8 o5_____4F88  o4 K0 s: E5 @) F
6_____3F4E2 R1 z6 }4 B8 Z" }
7_____0A9D
- t: P- g/ `9 T! g4 G8_____1A1C
1 o% P1 ~; l" i: `0 o8 a! Q5 J9_____6D20
& I1 V8 v5 C/ i5 h: L  `0_____1089
! A& \6 B' n$ aa_____0F3E0 s9 V/ R+ l4 @! V/ _! }3 e  N# E
b_____31590 R  a/ b* ^$ O, b+ S& t* ^0 T
c_____3517
2 r3 D; r( ~# x9 p' f* Pd_____419C' \, u  |9 E/ N3 \2 ]$ @7 i
e_____615C
) \& \) |) z4 W+ Jf_____556F
" F* D6 i1 E5 M& tg_____2B7F
1 Z& d& w" ]! ]9 P8 f( B" N, I  Vh_____0F9C
& j$ v5 X9 _* j* J( xi_____00FA) @( U/ o' C6 F+ b
j_____5A50/ e0 e7 L3 x2 c. {, i8 A0 p3 Y4 P
k_____2850! R! t3 a2 D+ j! Z# d* u. ~
l_____3E7B
* S. h  X, ~+ o4 Gm_____71C5
+ l& f% ~# _2 E" |7 p. \5 ^n_____1FC8
# g$ G- J, u; i0 go_____74C1
5 k2 {3 M* Z& _+ A. Yp_____5FB8
) H6 ]. w7 N* B8 E% A$ h5 |( v. xq_____6085
, I* X  t' |7 F  M, ]r_____3AC4! f8 U) d6 P1 d* W. s$ [
s_____2F50
( k/ c2 ]% v1 P2 z. M% Y2 [t_____36F8( ]! N9 a0 `: j; f$ D: Q( S  H
u_____7010- l% C4 _# f: X2 M8 y
v_____0B42
! r& d- B' v+ t) D8 @. h% Pw_____1C7A" i8 Y/ O& t& R1 N1 |" j6 g
x_____16F8
: o0 C* p( ?( l+ N9 vy_____2EE7
4 C  R8 _& s" d' W& h3 sz_____5CF34 S$ @5 o+ C1 j0 {% R% X
!_____6233) E& c6 H# j, b+ a+ j. n, q
@_____3A45
; p$ w' |- M, B8 a* z#_____22911 T4 h/ S! B5 Y. ~+ o' C+ U
$_____5D5C; Z8 I2 w) e- i/ n7 o$ l4 A, g
%_____09B9
! V4 j( k6 R1 f: c: n* o^_____43EA9 V7 K/ j+ B" |" F' z4 {
&_____62B9
; S" u' \6 C2 }9 j( @*_____6301& [4 `  e' G- o, t& o7 X8 Q( a
(_____4659
& E8 ?# p3 W0 r)_____5C82

鱼儿无心

收藏了。。。。。。。。