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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm; r3 o8 ^1 O. E( B, E0 q8 E
原始出处：http://www.3ast.com.cm
* U# r* q! t: b" M! [( M
* s2 P. n" j. F看不懂的直接绕过# V' t+ t6 F7 Y% F* e! d2 o- ~
加密前为:hwy123456/ \! c- V) O' k* `1 N7 x. c6 q
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E  I; j5 [7 s7 R) v' S

4 E3 N* q/ C+ W9 E============================================
6 [7 S8 T5 |, h+ ]: F上面是当时自己校内的心情。现在已经解破出来了，分享给大家1 k# o* N! e  |3 O3 c3 k( O6 U
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
* A0 g  e: x, l+ N5 z以下是RSA算法文件- c- g  b6 F8 P. B% A4 ?5 }( U
& e. U" S5 a# ?8 H: m& E
文件名RSA.ASP
) T* I3 ~1 [* c1 l! V' q===============================================/ x( c6 ?1 W: R" S7 H9 E: y* R* K
<%
: S- Y3 V, w! n1 D+ \Class clsRSA
4 l+ D+ q4 ]) R# P: ~Public PrivateKey * L9 s: P) e5 Y. H: C* Q  m8 A
Public PublicKey
+ Q. k' q# [2 IPublic Modulus 5 e$ b7 b+ ~  o: J6 x3 Y6 S
Public Function Crypt(pLngMessage, pLngKey)
) i7 h4 r' W( I1 Y9 zOn Error Resume Next
4 X! {# F  c( ZDim lLngMod
% e# r9 b3 A$ p( n' zDim lLngResult
& w2 ^5 A9 ^: T5 E( wDim lLngIndex
2 N. `- q, e+ g; e& l7 X1 _If pLngKey Mod 2 = 0 Then
! r, m% ?/ }0 O6 {: H$ ulLngResult = 1
& K& b, D, z+ ^7 n4 m+ d* G  U5 CFor lLngIndex = 1 To pLngKey / 2
; u* W% O  Z' u8 }. B4 \5 U: w3 GlLngMod = (pLngMessage ^ 2) Mod Modulus $ ]- x" }/ k, H) ?; r$ E) F( n
' Mod may error on key generation
4 n- v3 w: K3 C- ~" k. j7 PlLngResult = (lLngMod * lLngResult) Mod Modulus
( U; Y9 D$ a3 M! YIf Err Then Exit Function 0 q) [! Y, e1 ^1 X3 B) i
Next 4 ~, L6 z. ^# w, x1 H2 K
Else * \! z5 ]9 \4 @5 u
lLngResult = pLngMessage
  g; c/ u7 w2 n' \1 ]For lLngIndex = 1 To pLngKey / 2
# E7 E$ {) E1 n! g" ElLngMod = (pLngMessage ^ 2) Mod Modulus
- D2 R0 `) o2 yOn Error Resume Next
7 p0 F% F: b# E& d( ]' Mod may error on key generation
7 e1 K* s' ]! z" @/ w$ MlLngResult = (lLngMod * lLngResult) Mod Modulus
7 c, i' ]& P; I% _. O; |If Err Then Exit Function
$ A3 ?: Q. ~5 Y0 ONext 3 ?  s( T5 h8 u) C8 P( U/ m; C/ K
End If
! n# [( r# T" B" u. QCrypt = lLngResult " f7 R4 w2 y$ j6 q  J' @/ @( Z
End Function# j* n7 ^  f- r3 d/ l2 W( g

  `$ }  b- B, K! rPublic Function Encode(ByVal pStrMessage) 1 U6 _5 b! S8 W2 d7 V4 w% |
Dim lLngIndex
1 Q5 |5 {1 d' z9 EDim lLngMaxIndex
/ h0 k% {5 s% P; D2 z$ F3 o8 pDim lBytAscii
3 d% q  g( j* ?5 O& oDim lLngEncrypted
, A, `% Q' t7 l. B( ZlLngMaxIndex = Len(pStrMessage)   s4 z1 u, X/ Z3 W# b# P, v
If lLngMaxIndex = 0 Then Exit Function
9 {2 e3 N3 w0 U# ?% P& i8 tFor lLngIndex = 1 To lLngMaxIndex 1 D& i& b4 }" v1 [% `1 ~! L
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
" q5 ?6 o6 v& h: B* |lLngEncrypted = Crypt(lBytAscii, PublicKey) 6 T4 ?* n: H+ T4 u7 g% K
Encode = Encode & NumberToHex(lLngEncrypted, 4) 4 z2 j2 Y  h1 U
Next
3 Z8 [- ]' ]+ T% a: XEnd Function
2 n0 p. o6 O  P' fPublic Function Decode(ByVal pStrMessage) 2 Z" p+ ?5 K# i! Z: p6 _9 G
Dim lBytAscii
9 \# P, \$ P& ~* ^Dim lLngIndex
( p' u' Y2 E& ^/ T+ Y2 k; hDim lLngMaxIndex
$ v0 H% r; r/ [* tDim lLngEncryptedData
$ L2 [1 e/ ~6 _* YDecode = "" ( X# A) R% L5 v
lLngMaxIndex = Len(pStrMessage) ; u+ _0 U- O8 ^) u0 v
For lLngIndex = 1 To lLngMaxIndex Step 4
/ E# i; a9 j: D2 l1 f% B1 g& ulLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 5 i9 R; `2 |" Q1 i
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 6 u/ U8 Q5 \' U8 E4 _
Decode = Decode & Chr(lBytAscii) & Z' C% {" _1 p4 ?
Next
+ l+ [) _: I. {" b' wEnd Function
: W* {& [& u$ ?- o/ C0 YPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
* i/ P  ~* Z$ X* {NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 2 Q) Z8 j1 P4 `0 X+ u; p& C
End Function # `! k9 X: H1 W- j/ b% B
Private Function HexToNumber(ByRef pStrHex) % K( u' U# n0 O4 r: J) L1 g2 a2 S# R
HexToNumber = CLng("&h" & pStrHex) # e9 `+ l9 P- f, n1 N
End Function
- T/ J0 S; u* N4 M9 i8 r- i- WEnd Class " q9 T7 A3 {2 Q$ n. `
function Encryptstr(Message)
- _/ d1 O/ W7 g6 NDim LngKeyE
/ ~, |9 ]- D5 s# O- q, MDim LngKeyD
1 @' I$ k& a. V. ?+ c, gDim LngKeyN 7 c) _, E! l/ M6 \7 x1 m
Dim StrMessage ; \6 V4 M* `0 b! ~6 p* a, y5 O
Dim ObjRSA ' z. g1 z5 H+ l, P1 e1 U- }
LngKeyE = "32823"
0 E( a6 Q  g% ^+ q% w* R2 U- ^/ \LngKeyD = "20643"
! e& ~5 h' S" X6 C/ a  [0 L0 ZLngKeyN = "29893" 3 S: S6 K$ {$ q6 I; q
StrMessage = Message
, v+ x5 E( W9 }  R7 G6 E: OSet ObjRSA = New clsRSA
+ U4 O6 @* L4 A# x7 ^& A0 ^ObjRSA.PublicKey = LngKeyE
- {1 k1 W+ z, r: R; jObjRSA.Modulus = LngKeyN 4 k) Z8 i0 d6 l3 w" u* N% v
Encryptstr = ObjRSA.Encode(StrMessage)
2 O3 j5 ?% K4 R( l& U  wSet ObjRSA = Nothing 7 W+ K5 n$ p7 _$ Q' n- x1 c
end function
/ e. b# J& X1 G* @: p  i' Z8 WFunction Decryptstr(Message)
5 v7 A( A$ v/ W0 e+ O, p" YDim LngKeyE
, l1 f- ^$ T: ]" d* {8 vDim LngKeyD 4 f& V) Y# t2 {+ E' V1 z
Dim LngKeyN % t/ C- D3 h' _: O4 N) v6 z
Dim StrMessage , t" C: I7 {, f+ Z+ N; x
Dim ObjRSA
8 \& e( }) o4 p( s6 m7 K' k" r1 y2 OLngKeyE = "32823" * X( L! [2 X' i0 {% e( s5 W$ i
LngKeyD = "20643"
& b4 H  I9 W* g# V/ t( pLngKeyN = "29893" . \6 W, \# e  ^1 c# j9 m8 \
StrMessage = Message . c% M; p( l$ O/ |
Set ObjRSA = New clsRSA ! R, b+ |1 q- Z
ObjRSA.PrivateKey =LngKeyD - n5 _! q/ }  S: U8 ?/ g+ o
ObjRSA.Modulus=LngKeyN
& j  E/ \  N! }( r6 D' \$ r/ z& Idecryptstr=ObjRSA.Decode(StrMessage) 3 W$ ~# T5 L# G* L) V$ N
Set ObjRSA = Nothing 6 S2 a( G& R3 z6 t: ~
end function
- |  i2 F0 \' Y+ U%>
  s" |( {; P& a4 p; c! O===============================================- W9 @( f3 {5 \% Z! u

( ^  E. x; F1 l2 s% S还有一个用于测试这段代码的test.asp* o3 H2 H1 M+ k; k  `' l
有兴趣的自己搭建个IIS测试下2 \! \/ B$ V; {8 z- v0 s/ I
<!--#INCLUDE FILE="RSA.asp"--> # [+ o2 A1 w0 T% q+ N+ ]
<%
- U& A  E; q; r6 x3 yfunction Encryptstr(Message)
4 {( y: t0 q+ r: A# t! R# `Dim LngKeyE 9 l' _( q+ K4 m
Dim LngKeyD ! O  o2 u) V5 h  x
Dim LngKeyN * j3 G6 {7 y" l/ ~5 y4 p7 b, X6 n
Dim StrMessage
* d+ G  _- H0 J, c0 ?7 Z5 UDim ObjRSA
& U- Y$ {4 F% a8 U0 o% K9 ALngKeyE = "32823" ( |0 O! j+ Z( P8 f
LngKeyD = "20643" * }" B! C& M& \- K. ^
LngKeyN = "29893" & Z1 G# a5 n2 W, T( t- F
StrMessage = Message ' p. n; D" n! D! W) i* \- y6 P
Set ObjRSA = New clsRSA $ Y: D# G& p: u0 k9 F4 s. n
ObjRSA.PublicKey = LngKeyE 5 ~" X6 u4 s* G1 c7 X2 \
ObjRSA.Modulus = LngKeyN 0 o$ W2 n* S% S& f/ s
Encryptstr = ObjRSA.Encode(StrMessage)
" k3 y+ K6 d$ O/ A4 `' z1 o1 oSet ObjRSA = Nothing
, K/ J4 _. w* M, f7 O2 ?8 r& I( Nend function $ M# R+ z  B- R+ Y  c! s1 B/ ^
function decryptstr(Message)
+ _1 P- m' a' G7 _# lDim LngKeyE ) J6 {% h6 B1 a
Dim LngKeyD
2 }* @2 l% k5 O3 s3 o/ PDim LngKeyN ; A6 H, A5 I" n" k
Dim StrMessage
2 |4 y/ e1 g& f; jDim ObjRSA
1 `% h% O3 t' k4 t% G" lLngKeyE = "32823"
% v2 d$ S# [) Y9 J7 R! w4 O2 q: wLngKeyD = "20643" 0 K" T1 f- x: C
LngKeyN = "29893" - ?( z0 }* g. \. c9 j: x
StrMessage = Message
2 a$ z) Q4 a1 ?) m/ ASet ObjRSA = New clsRSA 4 Y( o8 h# R6 a, [
ObjRSA.PrivateKey =LngKeyD
  Y# s' G0 H+ h6 FObjRSA.Modulus=LngKeyN 4 j' |# k* ?- l8 q, [, L. X6 Y# `
decryptstr=ObjRSA.Decode(StrMessage) - h  F. F5 [( |, T( g
Set ObjRSA = Nothing
* U; s4 N+ K4 n: T& ?/ fend function ' r3 c8 k, p% s  L9 b5 H
dim last,first
/ T* {8 R6 \. `- X6 c; s; qfirst="!@#$%^&*()" , K" ?5 ?& h; R  X4 M/ W3 j2 N
Response.Write "加密前为:"&first
  g$ g7 I6 W  _0 `: n9 glast=Encryptstr(first) ' h8 K, `3 T! i  Z5 m& K( j0 C+ y
Response.Write "加密后为"&last
( n& P; G& w4 O+ Y$ q* P% h6 AResponse.Write "解密后为" &decryptstr(last) / \' U0 N1 `1 U# V; e( Y
%> ==============================================
; |) K1 ~% C) S6 Z1 l/ q; J* |5 [1 p剩下的就是字符的对照表了  {* z2 O6 ?* ^
===================字符集================1 ~# O: g* D. M
1_____6EBB
1 x4 Z3 J4 \4 C* E2_____5C1F
) ^! m/ Y* D1 }1 i5 h1 f3_____4D75
* }6 z( N) f; |$ v. g4_____26CC8 h  |' V) L4 Q' u1 \: m
5_____4F88) q) g& @3 r* U% [/ Q; P
6_____3F4E
7 Y: _" v" G% L9 M* W5 z7_____0A9D% x( Q4 P) }  U
8_____1A1C6 b, {+ }" [0 C: T0 k
9_____6D20+ W% R6 s* x/ \1 P
0_____1089* g4 @; J9 T/ d7 [+ [2 X
a_____0F3E
* J3 ]& H0 r: Y  l6 W4 sb_____3159
+ c' r9 R+ L5 o$ uc_____3517
2 c. A9 `' K& h  ]' V% }) s9 ^# {" Fd_____419C
" c7 X+ O9 Q6 T5 a8 d1 r) Me_____615C6 m) W; Y" M, F) m
f_____556F
# u2 B! r: ^, E7 w' wg_____2B7F
, e: N0 V: F$ Zh_____0F9C3 M9 i# s% q7 N9 x( a8 A
i_____00FA
1 Q7 _$ n& e" g; r6 U4 J3 Mj_____5A50
% w2 v6 o. o. {* {$ Hk_____2850$ Z' R& p. ]; K5 D% g
l_____3E7B
" G6 _" H3 y/ o2 R  |7 T# @7 ym_____71C52 e& ?1 M% {2 ~  h; L* N& H
n_____1FC81 N' h7 d& r  d3 G
o_____74C1
4 g/ R# V; M/ Q- y- f* a7 Wp_____5FB8! D% u* R2 P6 m- q! R! M' z! i# Y
q_____6085
  d* Z) j& G: K) ?2 _4 c' Zr_____3AC4
) j( _( Y# @4 G9 r, `% Os_____2F50
3 G! a/ v" H7 q# |* N* p9 y: I0 Zt_____36F8, S& t, g, d9 [7 Y- H
u_____7010& k, B) N, C6 q! ?9 x. X$ [
v_____0B420 {: a( y2 R5 d
w_____1C7A
! t0 t: L; u! O& h, X* p/ ^9 jx_____16F8
3 @5 h6 @6 ^4 Z( u& ~+ _* Iy_____2EE7
! |- J2 H) X1 {3 ]3 `z_____5CF3" U4 [' V4 q2 a+ z2 Z3 D5 r# }6 K0 p. [
!_____6233
" L- D2 R1 y: T) Z1 k4 V, U! w3 W@_____3A45
2 s# l: R' b1 S8 \8 ]/ ?4 c#_____2291
1 O" P; a5 U3 z8 }9 [/ u$_____5D5C+ E/ G' R' s* E2 M6 z0 e
%_____09B9
/ |3 k0 ]. @: w+ U# b; m^_____43EA: d7 q& z9 Z# l, j& a: ?& f. c. P
&_____62B9, P: v+ t' ~0 [
*_____6301
1 u$ Q8 O9 |4 [(_____4659# w! T) ^4 l  V* A
)_____5C82

鱼儿无心

收藏了。。。。。。。。