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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm) R& y9 J3 }; l$ p& B) }0 h. n& x
原始出处：http://www.3ast.com.cm
# A0 x1 |1 s  z; @5 w* b& E0 ~) o$ B0 V$ z- _
看不懂的直接绕过
3 v& _" Z4 L# F1 E3 E3 V+ I+ @( e加密前为:hwy123456
6 h0 @2 L* @! |& C" _加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
$ `$ }) V& T: }' U1 U2 F5 l: ?' W, s& o8 d1 R$ F
============================================7 a5 K5 g* Z) o; B6 i1 Q0 x
上面是当时自己校内的心情。现在已经解破出来了，分享给大家+ \  }) ~- _" @' V4 l1 n
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
) T! R+ B& X) u" G$ s0 A以下是RSA算法文件9 n& ]; e% V) F( m& @3 N7 n$ A

) {9 x  W) u9 ?! ~" X' H0 C* g# G" p文件名RSA.ASP: N+ S  e* Z" r6 ~- v: r
===============================================* X2 \/ q7 E$ n. T# C5 |
<% 3 f. H' l, \! D+ ]
Class clsRSA
* G6 k2 ^1 S  c0 {$ A8 s' CPublic PrivateKey & ^2 |; E& b/ P
Public PublicKey
# R# I% `. v+ }, a6 w- d! JPublic Modulus 9 X8 @8 Q9 v& Z( ^- d
Public Function Crypt(pLngMessage, pLngKey)
0 y9 Y" o* W( G" a: s5 v: w% DOn Error Resume Next
) b+ y1 b/ H% p) J- i/ \  jDim lLngMod % p) r  v5 r; {* X0 {9 t
Dim lLngResult + ~9 z/ x, e6 N  l5 W- |
Dim lLngIndex . O# t, V4 r0 h# d  R) y. {' s
If pLngKey Mod 2 = 0 Then * [# `0 O8 a/ t1 F* [
lLngResult = 1
" N7 G# A4 _, j/ z! jFor lLngIndex = 1 To pLngKey / 2
7 ^1 @* P% V5 ]; Q7 r8 n6 KlLngMod = (pLngMessage ^ 2) Mod Modulus 2 @; y9 n& ~0 Y2 m
' Mod may error on key generation
& ]) v0 ?- s0 j: RlLngResult = (lLngMod * lLngResult) Mod Modulus
! O" A" |4 F, z! f0 jIf Err Then Exit Function 2 ^& F* Q) j2 v+ o  X
Next 0 K+ U# p' ?: Y
Else 6 e9 z( g$ g3 n+ n% ]
lLngResult = pLngMessage
' f  c# G- B8 o3 J9 VFor lLngIndex = 1 To pLngKey / 2   }! }) y, v, X
lLngMod = (pLngMessage ^ 2) Mod Modulus
, S8 `" ?) d6 r+ k. nOn Error Resume Next : q. A8 _& G' |8 C. X
' Mod may error on key generation ! s% E7 X% x1 ?( `4 l$ g
lLngResult = (lLngMod * lLngResult) Mod Modulus
* Q5 l! Y# h% O2 T% l9 HIf Err Then Exit Function 7 S- {4 E# X, F( Z' I8 p
Next
, j0 J# z* B0 oEnd If ( ^0 [" J; S- S2 E4 X, D4 \
Crypt = lLngResult
2 W8 K$ p& d3 }, x5 O6 x" vEnd Function
/ H- q0 i0 I4 i" q3 T- m1 h4 Q0 u; A9 C- Q4 I' ?7 q
Public Function Encode(ByVal pStrMessage) . X# V% g1 p2 u9 D9 {
Dim lLngIndex 1 j; R! H  _. C4 n
Dim lLngMaxIndex , F" x8 ~1 @& @
Dim lBytAscii
  E4 C0 F) ~, y: uDim lLngEncrypted
6 {! d  E3 N) d/ i6 L0 V: B; w6 n1 `lLngMaxIndex = Len(pStrMessage)
4 v7 S. e2 h4 w2 c  _; JIf lLngMaxIndex = 0 Then Exit Function 5 ]: h& p7 }7 e+ K9 [3 X
For lLngIndex = 1 To lLngMaxIndex + B) ^. h1 {. Y0 ~
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 8 n6 ^) @( P0 w; W9 L
lLngEncrypted = Crypt(lBytAscii, PublicKey) 3 b% {- d2 a- ^; ~$ Q
Encode = Encode & NumberToHex(lLngEncrypted, 4)
" T8 F9 s7 b, S2 \: X: v% FNext 5 P2 `% L& J/ E/ d7 I5 C
End Function + E+ j# W+ S& T% S- N  ~
Public Function Decode(ByVal pStrMessage) ' L2 ~: M3 V- t: Z
Dim lBytAscii   X( m1 f; k, ^, P3 r
Dim lLngIndex ) w% V- S+ A7 `2 O
Dim lLngMaxIndex 4 R% r8 g- A- r0 A
Dim lLngEncryptedData
# I. s5 O0 D5 BDecode = "" " ~; G: b0 B" F$ [8 W; |/ j5 A: g9 [
lLngMaxIndex = Len(pStrMessage)
. J6 K# x3 H9 M4 H6 qFor lLngIndex = 1 To lLngMaxIndex Step 4
0 X7 H( g- _+ R  Y6 XlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) + _( ~/ w! |/ A" l2 H3 f
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; P  j: `: A& u% v
Decode = Decode & Chr(lBytAscii) 0 M0 {' F: y/ |& h
Next
+ l: h2 f1 {  T: F+ s% V4 |/ K! v# j' ^End Function 4 v+ }; H3 j1 P' V9 z8 p
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
, ^6 W$ d4 ^# |6 m3 dNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) & Z0 X1 P, K; y7 d" N& D7 y
End Function
( {! c6 w' r& W4 ]% [  uPrivate Function HexToNumber(ByRef pStrHex)
+ I8 y) p5 q  V9 RHexToNumber = CLng("&h" & pStrHex)
/ {  R; N; f2 D) L! a* p; ZEnd Function * D# F) A& L! Q9 v  F  F
End Class
1 |. @& O1 O: l' a$ P5 m! efunction Encryptstr(Message)
7 C. P% {7 |7 E; oDim LngKeyE 0 x# e) H# y9 Z  ~
Dim LngKeyD 3 J: [4 T- d9 }" \2 Z! |. x- L
Dim LngKeyN
8 ]5 g" Y) m& W8 Z' C1 uDim StrMessage # R: {% f/ F$ X  a8 V
Dim ObjRSA 6 `5 x# h. p" {
LngKeyE = "32823"   S2 S' d* f- |9 Y
LngKeyD = "20643"
0 }4 l" q' c) a/ s8 y1 e# _LngKeyN = "29893"
5 U+ j) S& ~7 S8 ZStrMessage = Message " F- ]) w1 o5 ~! B: t! M0 |
Set ObjRSA = New clsRSA ' e* B! J. {9 ^8 D" Y4 ]( _
ObjRSA.PublicKey = LngKeyE
, x; u) t' u  @& F3 V6 p* _ObjRSA.Modulus = LngKeyN
& g$ L" u2 b" v, S1 b9 aEncryptstr = ObjRSA.Encode(StrMessage)
; s" U+ y2 }* DSet ObjRSA = Nothing
! g7 ]) o. o. ^( n6 }% d4 e8 Cend function
8 F2 \7 }" a2 p$ S/ u3 `Function Decryptstr(Message) ( t+ y& u* w: B4 |9 ?# J
Dim LngKeyE
, E0 a' f, P) Y1 {9 e; `Dim LngKeyD 3 m6 v9 K2 s2 N
Dim LngKeyN
2 u) J/ w' Z8 i% `! N+ ODim StrMessage
7 E( l2 {- K7 s6 s* z7 Q8 BDim ObjRSA
- T3 f7 Y' z! s$ M# Z; b4 ?% CLngKeyE = "32823" 0 N) v$ b5 Y# q) C2 F  k
LngKeyD = "20643" - g% ?  v5 u. b8 b9 b0 k: n. V% E
LngKeyN = "29893" 0 q0 v4 V7 O* p3 R% z% A
StrMessage = Message $ @! ]$ J. x" \, }6 y  T8 b
Set ObjRSA = New clsRSA + l& ^1 Q3 p: M* e; ], S) _
ObjRSA.PrivateKey =LngKeyD
6 o! f7 U$ H* f+ IObjRSA.Modulus=LngKeyN / n5 L8 {0 Y) t5 \9 l. O/ G
decryptstr=ObjRSA.Decode(StrMessage) 9 C% o1 ^+ K) C- m" R' W
Set ObjRSA = Nothing
, p7 s. a( }& [# e, Wend function
0 H; Y- e0 [! e9 ?0 n- g( J%>8 ~( m- [6 X' |
===============================================
9 o; f8 S  o5 g  D* V) p* `4 P' l4 D4 p" K# q  E0 T$ w
还有一个用于测试这段代码的test.asp
' X4 F: F$ V3 O6 I( L& k" _有兴趣的自己搭建个IIS测试下% ]- K' f6 Y, J$ [0 Z  r
<!--#INCLUDE FILE="RSA.asp"-->
% U! B( Y3 R; {; h, p( `" A6 x' G<%  J& A% W+ y7 D- J* l  A4 c
function Encryptstr(Message)
  `2 E) T  c& R: s7 I! E+ r1 }  I$ ADim LngKeyE . h7 u/ t$ g/ J# _
Dim LngKeyD
2 d! [- a# \! z( }1 wDim LngKeyN 0 |! I9 L& u0 ~. ^* }. N3 ^. ]
Dim StrMessage 3 ~3 t$ t' L4 C! M: g- }
Dim ObjRSA
7 q3 z7 J7 @6 v; G4 E' ~LngKeyE = "32823"
0 [0 s. B: b0 G5 j1 xLngKeyD = "20643" 2 }. R6 k6 a% r2 M6 ^2 i1 j% B9 e9 T
LngKeyN = "29893" $ h" e$ z5 ?# g7 A7 m) {
StrMessage = Message ! F7 t+ l1 v* v0 q
Set ObjRSA = New clsRSA   q  H6 \) g& v- N% ?; ?5 g
ObjRSA.PublicKey = LngKeyE
- B( ~- d, X' ~, {) u5 nObjRSA.Modulus = LngKeyN 4 }. N- B! w& T- d4 k7 C
Encryptstr = ObjRSA.Encode(StrMessage) ( [  W4 G( X% \% m0 C3 F% Y
Set ObjRSA = Nothing ) C+ K8 W' R' }
end function ! N0 d" Q8 h: Y7 P2 P
function decryptstr(Message) % d1 L5 A, C+ s! k% v! w! v0 ^
Dim LngKeyE
. X* x& F! v9 w  T/ ^Dim LngKeyD ( E; x* P* P8 H2 ]- C. ?: O4 t
Dim LngKeyN " [( V4 \' v4 J5 U5 Q5 h4 a# u& Z
Dim StrMessage & C* y+ O! L, D7 u% J' J
Dim ObjRSA 9 v3 Z" S) S3 W) t) e4 ]& v
LngKeyE = "32823"
7 K, W7 S, ~7 ]LngKeyD = "20643" 9 u, m( c; T9 z# |0 l; x
LngKeyN = "29893"
- E  n/ `' W1 ?/ ^7 ]StrMessage = Message # \" ?% H& a0 [9 o2 J2 \
Set ObjRSA = New clsRSA 6 Y( @  C# }: g
ObjRSA.PrivateKey =LngKeyD + Z4 Z: |4 ^: N! v& @- f0 o* R: @
ObjRSA.Modulus=LngKeyN
! L2 `6 Y* L" |  Q: g+ w8 x1 k3 rdecryptstr=ObjRSA.Decode(StrMessage) ! ?: ^; D( Y4 ~& U' ?+ T
Set ObjRSA = Nothing & ~" `3 ~2 [3 F+ ^& {3 G
end function
/ {, h) h) w1 _, ?. t6 Hdim last,first 8 p7 e# w8 e6 @& @; F" M; k
first="!@#$%^&*()" , j: B2 o0 E7 W* j& G; V, K/ y* R
Response.Write "加密前为:"&first   F8 R$ s0 R% K! w
last=Encryptstr(first)
! I; s9 q) H2 VResponse.Write "加密后为"&last / ?, t5 X' q! S5 C) r  r( _5 j
Response.Write "解密后为" &decryptstr(last) 6 K# v3 _: ?1 O& e% j/ M# B
%> ==============================================
7 W' X' s8 ], N# y+ n' O: q+ `剩下的就是字符的对照表了# y2 S7 |  m3 F# d. f
===================字符集================1 q8 N& x+ h* G! }
1_____6EBB
1 D0 i6 O; J" A2_____5C1F
$ k; @. W9 t1 A6 `; p0 w( V2 k3_____4D75: A! s! p! l4 M! w6 W- j, L( r
4_____26CC0 {7 M4 x6 S5 V3 ?, m4 b& f
5_____4F888 q% X/ _3 G- L2 M  c0 L. q
6_____3F4E) ?* m6 M2 I: o0 h8 e
7_____0A9D
* L5 {9 |( D6 x* v/ e8_____1A1C4 }, G3 P; E% l! u6 q' ]. O
9_____6D20
$ z8 ]* Q! \% T4 W. c- K( @0_____1089
1 a) o* t  L# O$ w7 U! v- R2 B, v6 Ja_____0F3E8 P& J$ ?! H4 A/ H
b_____3159. j* `7 G' F- E" Y( J. U
c_____3517
0 C6 W2 B+ d; {0 x/ ed_____419C, i5 Z& W! _" S. P: ~
e_____615C
- m0 l+ Z' f( }! J( t& x; s* vf_____556F' F" B- |# s$ Z6 k- U; g
g_____2B7F! g9 l0 ?3 j2 Y' B% N- {* L
h_____0F9C5 q+ {% B  I- M
i_____00FA
: o2 M$ i1 u* }2 h& h/ ~! n' zj_____5A501 ^4 s9 c2 M+ M& a1 ?# l  _
k_____2850
9 Z, ?( i% B; x& a$ g! x0 C* t+ Kl_____3E7B' ]6 i8 c- g+ E9 b# j
m_____71C57 s. T$ V5 w: o0 O( ^# d* _, t
n_____1FC8
, `: ^- j% ~5 g: Y( oo_____74C17 L. I) r" w' ~
p_____5FB8
7 j" ]# t& C8 e1 K1 |  Lq_____6085
5 B. }, t$ [; X' `3 i1 \r_____3AC4
9 v: _; O% u' T0 Z2 as_____2F50) `. @; H' O3 K9 ]* }
t_____36F8
' C- S5 C) k0 ~. j0 L% P" K6 t$ Bu_____7010
4 m7 E0 |+ y  U- L) S, Vv_____0B42
6 N8 Y/ l  p. Nw_____1C7A
& X) S& G$ k% r3 z+ D( m+ Gx_____16F8; G7 H% D2 M4 r% ]) Y+ y$ |% l
y_____2EE7
% f% j) J- {" F4 v* |! sz_____5CF32 J* z4 E7 u( Y$ G$ {& H
!_____62339 K0 s& T6 h7 b2 O6 z, ], J7 m0 y
@_____3A45- V0 j6 U* k% o$ J/ A
#_____2291: o) E; T" @0 ^8 {* S$ }
$_____5D5C4 i& [8 ?3 M, @% m
%_____09B9
! g* n8 _4 m" K+ `% S; J^_____43EA/ y) S) U, T- H" `4 e, A' M
&_____62B99 Z% \+ A, A, A& _' c0 g5 H4 Q6 g% g
*_____6301* X, }  x, _4 k; D
(_____4659+ U) c4 C6 f8 t9 u% G
)_____5C82

鱼儿无心

收藏了。。。。。。。。