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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
; r, Q& Y4 V3 V& M- d% }3 f原始出处：http://www.3ast.com.cm, z, F8 A$ h+ A1 J" z5 T5 l

9 w& n. q( b+ d& n) |4 @4 z看不懂的直接绕过- S/ t; D) F* r. h
加密前为:hwy123456" l6 R+ \3 G' ^0 e! [2 n2 `* l
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
7 L8 A5 S# v5 g5 u7 \8 p0 C: e
! C9 P0 E  t: w0 ?% }- z============================================' X6 W- \: b' B+ `
上面是当时自己校内的心情。现在已经解破出来了，分享给大家* j' y4 j9 Y. m6 h) v" W
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法( H' a: }# [; t$ O" a0 ^
以下是RSA算法文件
- b& s9 \( n' k
; W1 c2 w9 P. E& I) i1 }文件名RSA.ASP
0 O+ |9 r6 F0 p0 k) s===============================================
1 L2 r5 t% }/ q! m1 ^<%
# z& o: p* Z% O6 fClass clsRSA : P/ M" m) J2 V  y! E1 m, U
Public PrivateKey : h. K9 t$ a  Z  u* m
Public PublicKey
' j. N+ W4 Z0 ]* A# Z* q1 y) ePublic Modulus % C& T' Y0 Z& s
Public Function Crypt(pLngMessage, pLngKey)
8 X' Y1 R. U( @0 [On Error Resume Next 4 A( L1 ~) l" F9 ^' A. j
Dim lLngMod
, f) _( q6 E( t, U! N: _) f+ P% L* vDim lLngResult * Y/ P$ p* L4 L* y  J
Dim lLngIndex
4 O' E% y7 w3 Q7 ]; ?If pLngKey Mod 2 = 0 Then
* _& S1 Z, N4 m3 [4 {/ glLngResult = 1 ! K7 |( G4 _2 t- e# ~% e% C
For lLngIndex = 1 To pLngKey / 2 # S& j$ z% F2 r" y6 _  p
lLngMod = (pLngMessage ^ 2) Mod Modulus   j9 I& ~3 \6 Z, i" y+ _% J
' Mod may error on key generation
* I# }$ O# M+ ?lLngResult = (lLngMod * lLngResult) Mod Modulus
2 O2 C5 Z7 f1 T( |% zIf Err Then Exit Function
! U3 Q% q8 u+ a  W6 l; `  VNext
* x6 P! W/ q5 _5 \# N( dElse 6 W0 X  A' y6 O  _4 r8 z
lLngResult = pLngMessage & t) h5 ?' o# K" j! Z
For lLngIndex = 1 To pLngKey / 2 4 o8 F+ d) e) K; U0 B( E0 b+ u
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 s# G% t0 v7 a0 ]
On Error Resume Next ! n& F, r0 k0 ~* B& x3 @+ T! Y
' Mod may error on key generation
2 l) ]0 K  O0 G8 }lLngResult = (lLngMod * lLngResult) Mod Modulus ! X; w; \6 Y" m1 f! a
If Err Then Exit Function
- o  n! c) L' P+ ?/ C5 _7 |. C( rNext , L# Q: K4 f3 Q
End If , L0 U0 G/ L# a" y# f4 W
Crypt = lLngResult ( t( l; I6 p0 Z( ^. U! I
End Function
9 O3 ^- \( v; |! ]5 V" B' {+ j# q7 a  [
Public Function Encode(ByVal pStrMessage)
6 b  ^& Z0 r& R! W" GDim lLngIndex / Y  ?% j) S. A# D/ H* `2 a
Dim lLngMaxIndex ' P/ g7 V+ }' S* i
Dim lBytAscii + I. G" O' `1 ~6 r0 M+ w# [
Dim lLngEncrypted ) I# }6 k/ `  R- u! d
lLngMaxIndex = Len(pStrMessage) 5 {2 Y1 p8 G3 I" V
If lLngMaxIndex = 0 Then Exit Function & d. a/ t7 m1 I4 y4 O- T
For lLngIndex = 1 To lLngMaxIndex * W* t3 {- U$ }2 v
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 6 Z# h$ B; d2 E' D' _9 F. W
lLngEncrypted = Crypt(lBytAscii, PublicKey) 2 X! ~$ N, ]0 [. \' h
Encode = Encode & NumberToHex(lLngEncrypted, 4)
2 I4 L  i1 U% f4 G6 xNext % q; U( s) L1 R" a( o$ c
End Function
6 Z8 e+ w: x3 E6 qPublic Function Decode(ByVal pStrMessage)
7 n" N* G9 F2 QDim lBytAscii
, A; Z2 Y  y8 t) Z5 uDim lLngIndex
) ?. K$ g3 F4 W* A! H- y* SDim lLngMaxIndex
2 L& a7 {; _9 ^Dim lLngEncryptedData
! \( _+ J# m9 y4 K- S& d: l, ^Decode = ""
0 [' D7 ?4 g3 e5 p! L1 y5 b! ulLngMaxIndex = Len(pStrMessage) # ?; {. t/ ]% ^# W, F3 X
For lLngIndex = 1 To lLngMaxIndex Step 4
( q2 a; g4 l& w! t/ K$ Z, rlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
' Y" k% u9 X4 zlBytAscii = Crypt(lLngEncryptedData, PrivateKey) ' r  l4 m% n2 X* t# C
Decode = Decode & Chr(lBytAscii)
4 M& C. T; Q' ]5 P9 a2 {3 a3 i2 JNext ; _3 h9 A5 |: _3 d; O) t7 o
End Function & u+ i$ V! Q) y( o1 x! N
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
8 K, t  F9 U/ x3 ^NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
8 }; N9 B5 K- _+ l3 e5 Z4 ^& z4 TEnd Function
3 `/ J' u, O. X+ `0 D0 S4 W- Y: PPrivate Function HexToNumber(ByRef pStrHex) . Z0 x5 d7 h  Z1 z: g, c! _! W) ?" ?
HexToNumber = CLng("&h" & pStrHex)
$ B1 o  k4 y4 {, u, f3 g! zEnd Function " n+ z$ P4 ^. h7 `
End Class
: |# f6 H5 W+ K0 e: a- nfunction Encryptstr(Message)
# }& G5 y: a9 @! I( p% HDim LngKeyE ' g* C  ~! h1 g  A+ t
Dim LngKeyD 4 p9 l4 Y' u+ z8 R( P, n
Dim LngKeyN $ q! b( |2 y3 }' O
Dim StrMessage
2 M" Y) H3 R" \! D1 @" LDim ObjRSA
3 P; O6 v: O7 d" l- \LngKeyE = "32823"
5 L; [) v! I/ S; LLngKeyD = "20643" " ]% L  T' A% E; X, ?: R" m+ d, J
LngKeyN = "29893"
0 x$ O* y4 o2 z2 n+ Y1 SStrMessage = Message
; x0 J+ w9 a0 sSet ObjRSA = New clsRSA
2 R5 e& N6 j' N% R+ M& L  V7 sObjRSA.PublicKey = LngKeyE 6 ]" v1 N. E8 O" L* p
ObjRSA.Modulus = LngKeyN
% W3 z. N% i, I0 m; y3 k! I, pEncryptstr = ObjRSA.Encode(StrMessage)
1 M- `4 [9 I! `" K. iSet ObjRSA = Nothing
) k/ ^: P8 R2 Y7 [8 S( @, o5 T5 hend function
7 ~# C/ D% k( P' MFunction Decryptstr(Message) . r; J, g  `% R0 N5 R2 `6 K
Dim LngKeyE
5 F5 N" S; A1 X' N8 ?2 Y+ y) ^Dim LngKeyD
) Y0 z' l& _; M& qDim LngKeyN " @6 B" i' o/ F; b0 B: \3 s. t
Dim StrMessage
( F* }9 [+ Q. G# e+ qDim ObjRSA
* _, A% S; Q; \, C0 \6 q7 mLngKeyE = "32823" 8 G  f. P" b) U1 Y! G" \4 g
LngKeyD = "20643" + t3 F9 ]  d, {$ p& S! h  O
LngKeyN = "29893" / Z9 l2 o/ k- L7 C
StrMessage = Message 8 G9 y/ y1 H; ~% ?& p
Set ObjRSA = New clsRSA " h8 p; G* m; O& l' d
ObjRSA.PrivateKey =LngKeyD
+ C) L# ]' L. n5 tObjRSA.Modulus=LngKeyN
6 R+ \0 m4 ^9 b: N3 edecryptstr=ObjRSA.Decode(StrMessage) & |# |% y" T( K$ n& ?8 r8 d
Set ObjRSA = Nothing
8 {( s  I( s: G0 t+ r) @* t$ @  Iend function 4 O6 F) k( L4 @/ L4 o0 H
%>: L/ P; @8 I& t- X' j* \
===============================================7 [; m$ i9 X# e$ ?5 ?$ s) ?
* Z4 K0 N( G3 i! E6 A
还有一个用于测试这段代码的test.asp
0 |" K  l& U" O6 e; ~+ n  @: `有兴趣的自己搭建个IIS测试下& }8 p2 y8 r! `. [
<!--#INCLUDE FILE="RSA.asp"--> - u3 W7 g5 Y/ J5 x
<%: p6 a( j# q2 y3 o6 F  ~
function Encryptstr(Message)
9 U" U' b8 N# K  a. H0 j8 y4 y  JDim LngKeyE . I/ i' g9 E7 G$ H* z% _  `- }
Dim LngKeyD
  E6 x) b' W* j: h9 i, A" D; N7 @1 ZDim LngKeyN % I9 t, m3 A/ ]* g3 B5 A5 ~
Dim StrMessage $ O. u( j7 N! F6 S0 ]# L
Dim ObjRSA
# M4 v0 [( Y/ _; [  X6 f% V9 V& s( X, ELngKeyE = "32823"
7 I9 R, V% T( l9 _  f* y. }) O" qLngKeyD = "20643"
3 y( M5 ]) A: Q* zLngKeyN = "29893"
' J* Z' R/ c2 M& S2 v6 tStrMessage = Message 1 o" Q/ `5 b5 ^
Set ObjRSA = New clsRSA . O* f7 Y* {) Q) f
ObjRSA.PublicKey = LngKeyE ( E; d. u9 E  B, w& L
ObjRSA.Modulus = LngKeyN # }6 Y8 `$ E* Z. s, G
Encryptstr = ObjRSA.Encode(StrMessage)
; G3 q9 g+ `' T& LSet ObjRSA = Nothing ! I8 o: |1 N* X% z: F5 e
end function ) L' S* X% S3 k1 ~, ^" a
function decryptstr(Message)
! L4 B) n& Q8 u5 XDim LngKeyE 0 i! P1 {+ G* L6 c- g( D7 i  b
Dim LngKeyD
5 t+ j( h/ B# V0 n6 O6 `7 \4 D. t9 nDim LngKeyN
7 e# ~: K& M% [/ l0 U7 nDim StrMessage
6 a0 s7 B6 @+ |% G1 |0 u: FDim ObjRSA
3 o9 H  ?& W3 d, ELngKeyE = "32823"
9 y, w' c5 i6 A* _" ZLngKeyD = "20643" . U) c& f' r. R! L) @
LngKeyN = "29893" - }3 Y8 V% B  N' v, h1 S
StrMessage = Message 8 G) b8 |7 F( w* F' @
Set ObjRSA = New clsRSA
6 f: B: U. b5 TObjRSA.PrivateKey =LngKeyD
4 m3 A1 x7 N3 l6 oObjRSA.Modulus=LngKeyN
  K5 K) u# ^% y& P: fdecryptstr=ObjRSA.Decode(StrMessage) & [: y# K7 W) B% ?, O
Set ObjRSA = Nothing ) Y; ^( s4 {( @4 O6 d* R  ?
end function
5 B9 }# F& f& Z/ W1 wdim last,first
7 X- F% u) E! t$ q7 rfirst="!@#$%^&*()"
1 j1 K. r; ]+ K% H+ J, kResponse.Write "加密前为:"&first 3 S5 U; i; F& c1 j( S
last=Encryptstr(first)
( ^# u; X, j$ H7 NResponse.Write "加密后为"&last
; y3 R4 d- I- A* J) g; E$ w" l: q- zResponse.Write "解密后为" &decryptstr(last) % g- s$ v" h* \2 [% B% f9 E
%> ==============================================: d' g  L( S: B. r; n
剩下的就是字符的对照表了
2 @1 _) G3 v: P( S! d===================字符集================9 o! U1 g1 t2 l1 [; l" E1 g
1_____6EBB
& e3 l2 r* o! R, t; w2_____5C1F1 }1 A8 |* |, X' o+ V; @2 @9 H
3_____4D75
  u6 |3 Y" h; J7 a2 G4_____26CC
  ~1 Q  [3 `" y' ?7 O# W# L& q5_____4F88
& t: T3 f3 K* F0 j6_____3F4E
) D# C1 c, O0 J% N% n: h; `& u7 x7_____0A9D
. l1 w. L+ i) F, k3 s$ R2 W8_____1A1C  T( S( v7 e) `
9_____6D20
" e) G" T+ q* s9 n+ F/ Y3 E0_____1089
& p" T! ~" o, T  s& {. X/ N! Ta_____0F3E. L; }/ W1 y# r! E' C% Z* z) m
b_____3159, d% p8 T5 d$ ~* O6 l3 B" o
c_____3517! o0 Y. r  e& P
d_____419C% C6 m0 V: U7 Y/ C
e_____615C
% }4 z& q+ v& P* t. F- k% V' i- o, vf_____556F  c; U6 M4 k4 p
g_____2B7F
) v. ~( i7 S" o2 j  m0 ?3 K" lh_____0F9C, a9 n* ]9 M5 F( s8 B
i_____00FA
" G& j/ `! _; `! Qj_____5A50. |" h& C1 U  f9 F5 X. z3 ^
k_____2850  z  ^% \% v5 _' m. _" F
l_____3E7B
0 Q5 C' ?+ Z' A8 k0 B/ A# am_____71C5/ b1 M0 M$ p! F. C4 r$ F+ P
n_____1FC8" i5 T. ~- O( J) b$ {
o_____74C19 Q' E/ D6 l( C# O4 r1 m- i
p_____5FB89 p# W- V' `" ]% B% ^
q_____6085
! P3 v- ?5 l( Y9 T3 {0 Kr_____3AC45 p/ c  l- R# `/ V6 o" r1 p5 O. b# o
s_____2F50& N( s# k  |3 q" f+ E* Y) u
t_____36F8( t6 U3 z" r: O+ g: P
u_____7010
8 M/ e+ s6 P) Z. ev_____0B42; E9 K. v( ]* P
w_____1C7A* L8 D8 Q4 x. [
x_____16F8( J4 R/ C+ t* D1 t! d. |$ _
y_____2EE7
1 n$ L+ d8 j6 C& S- D( lz_____5CF3
8 J# ]  k7 t( R( t5 ~, }' g!_____6233
0 l* E: H5 A3 ^5 U/ W@_____3A45
0 L2 W( e) c. T# o#_____2291
  G2 L& H. W- n! m5 o* M$_____5D5C
% ~1 V3 t1 T; i. g# C%_____09B9' {$ n: i- _. K
^_____43EA
: ~# i$ p; D* y&_____62B9
7 H# h  i& m/ @: H) d*_____63012 Y  [0 M- r4 w% t4 @6 T' Z+ A6 w
(_____4659
' u* _$ e0 m& U" y& A) z/ |)_____5C82

鱼儿无心

收藏了。。。。。。。。