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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm3 b4 Z# M' U1 V8 X
原始出处：http://www.3ast.com.cm) @- E1 `, n- V" t, V! H/ x! `

# {7 F: e8 A3 n0 r) K看不懂的直接绕过# @9 `1 u1 b4 m4 a
加密前为:hwy123456
6 T. k5 S1 c# V9 b4 U- |加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
( S8 H) [2 N) W4 i8 |* P5 B" v; J: k/ X' n
============================================
& S& X/ `" M5 R/ h: U上面是当时自己校内的心情。现在已经解破出来了，分享给大家/ ~. W. D8 _7 Z& q$ K" P
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
+ g) E* Z  |7 s2 S以下是RSA算法文件7 @* F6 V; O3 \, @* R

" c+ ?6 W) l  ]; ^/ V/ H6 R文件名RSA.ASP8 B; I# A8 [$ _' }
===============================================
7 k) F# D. y$ Q# ?7 n<% 9 B* D* P- l0 q; {& @% j6 h' X4 m) m
Class clsRSA & D7 ^' y# h& a' Q* C3 A
Public PrivateKey " Q1 U" S! A' {' u& r% p( I
Public PublicKey
( J" Z" X" W/ D  g9 vPublic Modulus ) N5 d* ^7 X" p7 [  n, P. R& w
Public Function Crypt(pLngMessage, pLngKey) + \2 |5 y$ s& F* z+ [( F/ f( t
On Error Resume Next 0 c7 i3 _) P- P3 P' B* X' s
Dim lLngMod 4 @* o( o" v0 f7 J; Y4 L* Q
Dim lLngResult 8 W' w" }7 ^, A& H) p8 v
Dim lLngIndex
' e: t5 s; ]% |* E' MIf pLngKey Mod 2 = 0 Then
* W: G/ H1 G0 v. `4 i3 }) g4 OlLngResult = 1 $ m" c7 Q* y6 {/ i8 u
For lLngIndex = 1 To pLngKey / 2 7 l& D! {! w2 t( I! P6 U
lLngMod = (pLngMessage ^ 2) Mod Modulus & i! h9 |* I7 K1 e: o" K: P; Q; D
' Mod may error on key generation & v5 m; Z( n$ _3 }: \5 N
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 F5 x2 {- _& U$ i! e
If Err Then Exit Function 6 ~6 z( Y; J6 G8 \% ^
Next " ~. B  R: f4 @* Z' {" e* h2 d
Else
- y; p/ v5 F6 a* b! \lLngResult = pLngMessage 9 K. f  Z' K( _; d
For lLngIndex = 1 To pLngKey / 2 . l7 s4 o. R: k) q& h
lLngMod = (pLngMessage ^ 2) Mod Modulus + e/ T* x, B) B
On Error Resume Next " b7 y& W0 P3 D2 Q
' Mod may error on key generation
9 P6 {1 ^  K  b) X( b7 E% ?lLngResult = (lLngMod * lLngResult) Mod Modulus 5 B4 i5 M/ ]( X" Q) F
If Err Then Exit Function
1 z) q+ w4 R/ V9 _" cNext 6 |' Z3 _- q$ }  v7 H9 y$ T
End If
# ~# {% \" \. z: LCrypt = lLngResult
4 H4 |; h- @5 I8 h  n8 |' u8 r6 ^End Function/ Q2 F0 L) x4 q4 G0 \- M

: P( {) D% j$ \9 a( h/ lPublic Function Encode(ByVal pStrMessage)
+ \3 v6 x! n- b& w3 j0 e9 f. SDim lLngIndex % `8 W: K( c- _; }5 Q
Dim lLngMaxIndex
& K3 v7 x8 S4 pDim lBytAscii ) w, S9 Q3 w* S. {) F: Y2 e8 e0 d5 n
Dim lLngEncrypted
9 @/ T8 C3 ]0 R7 l$ I; `lLngMaxIndex = Len(pStrMessage) * Z$ K+ i% z* _3 S+ u
If lLngMaxIndex = 0 Then Exit Function ) x: C# R: p% p4 \& q+ h
For lLngIndex = 1 To lLngMaxIndex
% g: q- ^* Q( \* U/ OlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 H* S2 {/ n% T& H3 r- B  }! ]
lLngEncrypted = Crypt(lBytAscii, PublicKey)
$ q9 B( l: m7 ?Encode = Encode & NumberToHex(lLngEncrypted, 4)
' j: f. t" J" q7 A$ R1 rNext 4 m  w9 D  b1 e0 D
End Function
  T; v* _! h( b2 y* Q3 x1 ^Public Function Decode(ByVal pStrMessage) : i( e9 b- d  y. v5 ~  q# l/ U' g
Dim lBytAscii 7 e8 W' s& ?$ V
Dim lLngIndex
8 |. b% t& b$ pDim lLngMaxIndex
) d( p, |3 x6 |: [  w) IDim lLngEncryptedData 1 q$ _6 c6 S$ f0 U2 X8 O- e
Decode = ""
, s& ~+ X! b" ?! N- D1 HlLngMaxIndex = Len(pStrMessage) & x8 [+ B* G7 m8 `. H
For lLngIndex = 1 To lLngMaxIndex Step 4 - e& @: x; M9 i2 O3 K, e. o" ]) T
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
" f+ x, c+ U5 D7 x! z8 UlBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; t; L1 ^! e# M7 r% p
Decode = Decode & Chr(lBytAscii)
! a/ J. r7 [: Z& lNext 4 D! t- H! F, f0 G% p2 N" u* ]
End Function 6 J9 t) |% c" t6 ]& o1 d9 }2 \0 J
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
; n) j$ t+ b/ o  G; E+ S0 gNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 5 m$ A+ h1 E3 ?+ Q/ Y  Y
End Function
& B  x+ ~; R+ yPrivate Function HexToNumber(ByRef pStrHex)
: |) f, j1 h' P$ g  B/ FHexToNumber = CLng("&h" & pStrHex) ) \, E/ r4 X8 G
End Function 9 M& b! w0 ?% a: x: X6 m( e7 J
End Class , z: ]; e' j, F+ `" {1 m" v
function Encryptstr(Message)
% v" Z, {2 _8 g# uDim LngKeyE
% j& ?4 ]& z& W* a+ r8 c" Z2 dDim LngKeyD " I% P3 V8 E) A" o# S* i
Dim LngKeyN # k# }% Q& o/ O6 Q
Dim StrMessage & m; l# S+ o( ]4 b; X
Dim ObjRSA 5 U1 s6 d/ {! E9 I% @: f# D' C
LngKeyE = "32823"
: ~( q- |8 ?3 T" oLngKeyD = "20643"
6 f% F5 }/ E: V# L! O/ tLngKeyN = "29893" 0 U$ M. _  y! J: k/ q, g# r. _
StrMessage = Message % s6 P3 e4 g& m! U8 E, e  Z
Set ObjRSA = New clsRSA # O3 E9 y) Y! K. o8 `
ObjRSA.PublicKey = LngKeyE
  o; _# q$ H6 D- G/ i: ^: p1 }ObjRSA.Modulus = LngKeyN
2 z9 Q+ A8 B. M$ sEncryptstr = ObjRSA.Encode(StrMessage) ; }& i( i1 ^& ?8 s
Set ObjRSA = Nothing $ ^: H# S  L& W# x1 w" h2 D. ]6 a& }6 x7 r
end function1 g# l) h& O' Y2 |; _
Function Decryptstr(Message) ) w: e7 l$ J. [4 f( W+ ?
Dim LngKeyE ; w1 m6 f/ R) p* z! u5 Q2 z
Dim LngKeyD
. O/ r2 i/ n3 p9 W* w) t; sDim LngKeyN
% t  P* D5 g5 x! R+ {6 }Dim StrMessage & c! z8 a6 V4 A; G( D2 o. R
Dim ObjRSA # O3 @+ G! \, x$ K/ p3 ~
LngKeyE = "32823" & l! o5 W1 t$ Y3 A- ^& {
LngKeyD = "20643" 0 _* e9 R8 L) u) c
LngKeyN = "29893"
5 e, p9 ^! H  z8 R! G7 N6 SStrMessage = Message 7 S6 s. Q" n8 j1 t# W/ _% ]9 P( Y
Set ObjRSA = New clsRSA ( k6 L- g- N" E  v0 _9 _, D$ Q
ObjRSA.PrivateKey =LngKeyD 5 i7 v0 t: d( w+ G) b6 [6 a4 Q
ObjRSA.Modulus=LngKeyN
' e2 k! J& R# I& R8 N7 Ydecryptstr=ObjRSA.Decode(StrMessage) $ A5 ]/ a5 ]* f. \% L7 A' C6 C
Set ObjRSA = Nothing ! {/ l; v: @' z
end function % K  l# d, L; Y& g
%>
. F2 W' s0 N$ D$ [) _===============================================7 G( t% v* B, d$ ^

' F9 F" s# A% Y& y( w1 b' @/ a还有一个用于测试这段代码的test.asp) u& F# k4 o8 Z
有兴趣的自己搭建个IIS测试下
* D/ m% V+ S2 R/ D& u4 b) e, V<!--#INCLUDE FILE="RSA.asp"-->
$ x9 @& J6 P' q& ?- B! b& g<%' J! x8 }- p" Q' W' x0 Q2 w  I- E
function Encryptstr(Message) 0 s' @! o5 R+ O* U: ]8 `, o
Dim LngKeyE
( Z6 B0 S+ p- i/ X/ M$ LDim LngKeyD
4 r3 C5 m; @7 ?  n7 E! ~Dim LngKeyN + b/ Z* R& v1 |1 @
Dim StrMessage 2 B1 u8 L: X- T# [3 o6 w( @! z
Dim ObjRSA # D# h' k5 g3 k6 F8 W! z
LngKeyE = "32823" , n! n3 x2 f- G3 O" V+ }# s+ a
LngKeyD = "20643" + f7 t$ v- ~7 [- @" x5 k  T1 ?$ e
LngKeyN = "29893" & K$ ^- v3 O9 N; m2 X' K" ^: ^
StrMessage = Message ' b: U& P% x6 i  P# j6 \
Set ObjRSA = New clsRSA : p+ ?- p) I' A2 A5 Z
ObjRSA.PublicKey = LngKeyE . A4 R; o4 ]3 f% ?9 R$ x' Z/ H1 D
ObjRSA.Modulus = LngKeyN " F0 ?+ f% y8 I- L( n
Encryptstr = ObjRSA.Encode(StrMessage) - e' b9 F) [9 s. _
Set ObjRSA = Nothing 7 D  }1 s7 M0 M
end function
8 k; j9 w# u6 }4 I, B' R- i$ ?5 d  @9 }function decryptstr(Message)
8 a7 w( e! J! B+ T/ R! Y( \8 [Dim LngKeyE
, [! O% S, K8 |$ A3 A1 t. BDim LngKeyD ; B$ a* Q' y  C. H* E' u5 u
Dim LngKeyN
) H, \/ t8 c7 W& u! z! pDim StrMessage ( l. |( M% l' S/ k, e$ Y( l7 H
Dim ObjRSA
5 {) Z* v/ p) ~, KLngKeyE = "32823" 1 V8 u2 q5 F' L' f0 z- y, J5 T
LngKeyD = "20643" 2 H# y2 b/ t* z/ o
LngKeyN = "29893"
) y6 e$ Z9 E2 B2 `9 c4 UStrMessage = Message " G/ h) o8 f: `5 Q
Set ObjRSA = New clsRSA * K% Z' @( A- @8 A: W3 @6 C# h
ObjRSA.PrivateKey =LngKeyD
4 V8 T1 I" E+ ~6 T9 x) cObjRSA.Modulus=LngKeyN ! ?' s% p7 Y& s1 j& ?7 w+ ~
decryptstr=ObjRSA.Decode(StrMessage) 1 `. a3 p+ W) G& i/ a$ F' E
Set ObjRSA = Nothing $ I) J5 Z' x4 t" k$ y( Q$ y" `
end function
* f5 O8 J; V2 Udim last,first
% i) i0 r. K# P: f/ h( \6 Y) h3 wfirst="!@#$%^&*()"
! ^& h2 g8 J2 Z# H" R( v8 O  RResponse.Write "加密前为:"&first
+ s" z5 w, m  mlast=Encryptstr(first) * e3 c3 H1 p$ z5 A7 b$ M
Response.Write "加密后为"&last
& e5 K) f% C- R0 nResponse.Write "解密后为" &decryptstr(last) : ?* }$ S& O5 _0 s. l% `
%> ==============================================$ y& c# A+ H  V+ I$ `4 D' r
剩下的就是字符的对照表了3 N$ T5 z( M1 T+ }% s$ y3 a
===================字符集================
# P( C, f# ~6 f$ s1_____6EBB2 x( l. r1 a$ Z$ a
2_____5C1F
( t% @7 l$ A! E) E3_____4D75
( Y$ R* J  K! \1 l4_____26CC! y- K' _- G- e( l  J9 ^& C+ A
5_____4F88
$ |4 v: r5 ]% D8 F; z1 ]- q6_____3F4E
: T0 f  ]+ M- ?9 E. m7_____0A9D
% t. G8 F; S  M, \8_____1A1C; V, s8 t6 z+ d7 ?. z2 Z# K. r
9_____6D20
3 j1 I9 w2 R1 v0 S0_____1089
/ t7 p" d- t* U4 M4 f/ }6 I  ^a_____0F3E
. n# O9 c" `( k" @- I; }, S9 wb_____3159  B, F( k* `' `0 Q! z& `
c_____3517
" {- b& G. m5 o3 v3 Id_____419C
$ g1 ]0 t: p7 {' K7 A/ ee_____615C9 R. f# w1 {* b/ T8 y
f_____556F
8 D; V4 V! h9 h/ o: Rg_____2B7F
, b+ B! G4 s: Q# {- N, o* ih_____0F9C( a  S- }; F+ A0 r: C1 a
i_____00FA
* f6 W: u! M6 p& X1 ij_____5A50/ C' M. R- v- V
k_____2850
, F) j* L, c% u8 ~% Bl_____3E7B) m* N) K* O) Y. l* F0 F
m_____71C5. s/ Q* ]& \4 Z) N0 I; ?
n_____1FC8
6 T: g. I; d3 j4 R: So_____74C1, t* G0 |8 S2 [5 j
p_____5FB8
' I9 R9 x9 {% j: g- Eq_____6085; v, E: B- G5 ]7 Y8 [4 s
r_____3AC4
& I/ Q# T1 D6 k1 A( f# Ts_____2F50( Z$ d  ?! N. f+ R" ?* o
t_____36F8. x( r3 L( ]+ ?- K1 s( n( {
u_____7010* K9 Q' ?- y: \+ ?
v_____0B42
: q4 {8 x8 \% E0 ]8 P% m, K* f/ Rw_____1C7A
& i. N% J* d6 M/ t) C2 m- l  [x_____16F8/ I2 O# n, \3 j
y_____2EE7
* E8 R! d( Z. g( ^: }- b$ x* oz_____5CF3
# v1 [7 _% {$ u, c  x+ M!_____6233
& t6 |; b* k3 L" \6 N, X# f9 |2 M@_____3A45: H2 b, K! h* k1 d; a4 t2 N
#_____2291
, o2 G& F% E5 [; k, r% ]$_____5D5C; Q3 n4 I! ^3 T2 l  z% ?
%_____09B9# k+ I* ?. ]# F) {( Z5 O2 M
^_____43EA! b  \/ N0 H; _4 e0 @8 O# \
&_____62B9
3 V) B3 Y! a( o! J6 T# K*_____63014 m5 F; F7 x, i6 d7 Y& N
(_____4659$ I# {3 H( [- j' B) j! [
)_____5C82