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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm& o: \) M6 L' k2 s; ?
原始出处：http://www.3ast.com.cm( ]% Q0 o7 G# R; ^# o  L6 \) w
1 \/ r6 f9 d9 \, d
看不懂的直接绕过8 @& U, S. B8 k& x
加密前为:hwy123456
( W; n, [7 p/ v8 I. |加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E! @% n+ S/ }5 \5 N
1 n2 k5 }! {' {4 \* h7 Q1 q
============================================
. C7 q2 |* ]7 X/ z3 v上面是当时自己校内的心情。现在已经解破出来了，分享给大家
8 m9 R8 T5 [6 C8 h0 }5 o; K也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, w) j1 t) u6 R% r4 |
以下是RSA算法文件
. i- u; I7 z! V/ o" C
  O5 V' U: p7 c' o/ T% B文件名RSA.ASP1 [9 C* `' t: e1 z, v- V( s/ k6 X
===============================================
3 b) y2 B4 @" _5 [<%
/ d/ Z, O, z! z% C+ ^4 BClass clsRSA ! J% |; u3 V2 B1 J# [- Z% n+ N
Public PrivateKey
  B/ ?, `( \+ J  hPublic PublicKey 4 `$ ]" l/ X* U6 p5 V
Public Modulus " v1 e0 b3 I4 }
Public Function Crypt(pLngMessage, pLngKey) / W$ {' D5 B& e: y8 `2 W
On Error Resume Next
+ S* [  R4 U- O$ j# [) K9 bDim lLngMod
# S0 f7 j. P% e1 n) F  f& pDim lLngResult
( {6 O/ a+ L* D9 R0 m# O% LDim lLngIndex ) v/ m$ B  `( {% {0 ^
If pLngKey Mod 2 = 0 Then
) S# w$ L) k) T% e  k2 klLngResult = 1
" a. E. \! J  S, X5 w* G; VFor lLngIndex = 1 To pLngKey / 2
/ o1 q4 K" W! llLngMod = (pLngMessage ^ 2) Mod Modulus " c" z- p7 n/ {0 ~7 K
' Mod may error on key generation + M$ d* P6 l. B
lLngResult = (lLngMod * lLngResult) Mod Modulus $ }7 l, S6 \1 E" F/ \+ k
If Err Then Exit Function
. I" _9 q( ?. Z5 eNext
" ~$ i( G; C6 _3 @Else , p2 u3 _5 P$ U
lLngResult = pLngMessage
7 f6 m' S1 H6 R2 |4 W- s. s! n+ \+ wFor lLngIndex = 1 To pLngKey / 2
1 b* r' ]9 y) ~5 e4 ^lLngMod = (pLngMessage ^ 2) Mod Modulus & {0 z6 o4 r6 {* s
On Error Resume Next ( u* o2 _( y) g  f
' Mod may error on key generation ( X/ u5 s6 P! [  Q- S5 H' W
lLngResult = (lLngMod * lLngResult) Mod Modulus / Z; C0 w$ U, _  {9 `& P
If Err Then Exit Function
% n) I) m) u1 Z' I& W4 aNext / \4 Q# T# O4 B5 U
End If $ p5 S4 y2 k# \0 ~4 y7 m9 e2 L$ e
Crypt = lLngResult
4 S$ z; @  H0 x  p9 H$ S% {End Function
: P- }$ d# ~$ P4 ?, E' n3 S( ^- L6 r' I$ B) V6 j5 {, v3 x
Public Function Encode(ByVal pStrMessage)
: i. P+ y) Z  y* w  X$ C: D# ^Dim lLngIndex ( Y0 z( C- w  S4 Q1 K2 D
Dim lLngMaxIndex ( \9 m5 A# m0 `# |; q2 ?% P+ S
Dim lBytAscii 1 R8 s# n9 S3 v+ R* h$ @+ B  V
Dim lLngEncrypted + ^5 M  A! V, v: C" i
lLngMaxIndex = Len(pStrMessage)
) f; r' x  G+ IIf lLngMaxIndex = 0 Then Exit Function & Q; g& p  G* L' y: o- m7 a
For lLngIndex = 1 To lLngMaxIndex 8 O  d  d  ?$ Z; x# O7 u4 }& ~
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) , m1 ~5 e& z) w4 r' t6 m
lLngEncrypted = Crypt(lBytAscii, PublicKey) ' J1 O( @5 o$ s* w' I. u
Encode = Encode & NumberToHex(lLngEncrypted, 4) " Q& p# _6 o9 J. [' ?
Next
2 ~* W% v$ G" a: _End Function 6 F* Y, c, T2 s7 F, }$ q. I
Public Function Decode(ByVal pStrMessage) 1 O. [, g9 z1 P% t
Dim lBytAscii
/ o! B5 B. o9 `) ~8 R" W( V+ uDim lLngIndex 8 ^$ {1 s* z2 o2 D) v' I2 x
Dim lLngMaxIndex
! \. P: A, j" A. C1 U7 G1 q$ W( xDim lLngEncryptedData
0 ~/ s6 V; E( h1 f0 S2 h4 MDecode = "" ) D/ s7 f; A* L6 U# O8 s9 t
lLngMaxIndex = Len(pStrMessage)
& o$ z5 W% z) M' v- U0 l* `1 G7 E4 Y& aFor lLngIndex = 1 To lLngMaxIndex Step 4
$ ?1 ]0 z0 n8 G9 blLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
' q# a# ~( ^. C( j! OlBytAscii = Crypt(lLngEncryptedData, PrivateKey)
( x$ I4 h- h5 X/ qDecode = Decode & Chr(lBytAscii) ; c! c$ C7 p/ g2 g8 H3 z5 A% c1 e/ Q& r
Next
5 `0 f, J+ K8 r) I2 R6 S5 \1 EEnd Function
/ u7 T6 K5 }2 Y: `4 SPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) % Y/ n% l3 T* [! ^* v' x
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
0 ^- l& I0 e9 O) p$ X7 KEnd Function % W) R' H& o( G
Private Function HexToNumber(ByRef pStrHex) % R) m% W5 ?7 r& S" |) u" }' W
HexToNumber = CLng("&h" & pStrHex)
2 W+ o5 r  E% @" Q/ WEnd Function
* s' W* E- G: ^4 X1 c2 |End Class
. G& T$ e; n( Tfunction Encryptstr(Message)
8 ], m( i. ~, p" O7 T2 v$ v3 F: HDim LngKeyE
6 [' \( s4 S0 QDim LngKeyD ; g1 `) d  x# y
Dim LngKeyN
9 W4 i/ c. F6 X0 g, ?. E9 EDim StrMessage
- e; u5 \1 p- a0 D; cDim ObjRSA ( w: y, K6 ^, ~8 m9 w
LngKeyE = "32823" ) f/ S6 h! H9 ?8 d% Z
LngKeyD = "20643" 9 _7 r7 G6 L( t$ H3 n3 b
LngKeyN = "29893"
( t  N$ c" z% x+ C! i. kStrMessage = Message
. x7 X+ q9 t! W; h2 vSet ObjRSA = New clsRSA
0 c, b% c  |: f/ w; c  R5 d6 WObjRSA.PublicKey = LngKeyE
' X% v8 N7 X5 s( E3 XObjRSA.Modulus = LngKeyN 5 X/ l( x$ l6 ]- ]. D; `$ a& l
Encryptstr = ObjRSA.Encode(StrMessage) 7 ~' a2 _9 X" _: {* o
Set ObjRSA = Nothing $ j' w% h/ S; [  m2 T  L
end function
5 j! ^# u: D3 aFunction Decryptstr(Message) ( t' W4 o4 }2 ]0 k" }9 v( Q3 x
Dim LngKeyE % Z1 _5 G7 i8 A6 g% ~! C! V
Dim LngKeyD 8 H$ }, `2 J# P$ ~: z0 R) q
Dim LngKeyN
( ?% |, N& J8 A/ b; V" s7 FDim StrMessage 1 I& ?: f/ B. ?$ o/ l  R% T
Dim ObjRSA ( t, p1 M6 r9 B5 m
LngKeyE = "32823"
# `" p) G0 q* g% ?! p3 l- p$ wLngKeyD = "20643" 3 Q* x0 k( P0 Y, t. s+ ?
LngKeyN = "29893" * c7 n( j6 D, \* I+ C1 B
StrMessage = Message
: O& e1 K$ H4 [& f1 N# r- Q# Y6 z7 @Set ObjRSA = New clsRSA
/ V/ h) R( f3 }+ ^- H' x2 U8 d0 HObjRSA.PrivateKey =LngKeyD
" q6 e6 j$ o6 P) m( u: W% mObjRSA.Modulus=LngKeyN
/ b" K6 q+ X& m/ Ndecryptstr=ObjRSA.Decode(StrMessage) & ?6 T) O6 X1 E2 [0 h" N
Set ObjRSA = Nothing
0 x2 J1 T. m' n* e( Qend function / F& K- V/ I+ a! k
%>
& j& i; j! M/ P6 r+ i- b! L===============================================
4 Z( |" K# `9 V
8 ^5 N5 y3 I. N  N7 P还有一个用于测试这段代码的test.asp
. x3 x2 B; ]' P, }. D& P有兴趣的自己搭建个IIS测试下
4 C- ^) F7 t7 j/ D5 v$ i+ B<!--#INCLUDE FILE="RSA.asp"--> ' {2 V1 r3 H3 \8 Q# b- K
<%
/ {% f. Z9 S2 l4 i& b) ffunction Encryptstr(Message) 5 c* ]: o: S3 E% U
Dim LngKeyE 8 r5 K  D' u4 H
Dim LngKeyD ) |8 p; W& \6 W; P/ T6 d" F
Dim LngKeyN
1 |" f5 W7 ^/ L% k- @1 yDim StrMessage
+ X$ W. \" X, z1 m: rDim ObjRSA
6 \6 Y4 [7 g/ m& xLngKeyE = "32823"
0 c1 |5 k7 A& F' t! q# b& H' G3 SLngKeyD = "20643" , I# s" b) N% V' i
LngKeyN = "29893"
4 k5 w) a7 _$ MStrMessage = Message ' J1 c! }9 G* h  F
Set ObjRSA = New clsRSA : X& [$ Q! y' h6 X4 D7 i" U" e4 s
ObjRSA.PublicKey = LngKeyE ) S: j1 J8 F1 t5 B" S
ObjRSA.Modulus = LngKeyN / Y0 r% |% }0 A
Encryptstr = ObjRSA.Encode(StrMessage)
' E( @$ t& {' H1 kSet ObjRSA = Nothing
$ V, C& K8 c7 P- x& B# zend function
. [' x4 P! ?' Ufunction decryptstr(Message)
2 B4 q6 u) p' D) c8 y7 fDim LngKeyE - _' `0 M2 }3 X; i8 t1 O
Dim LngKeyD
6 n, X% i" N7 {/ N0 P, a4 t$ oDim LngKeyN - @) Z7 L: M% Q5 n
Dim StrMessage
- J2 t7 U8 S; S8 _/ A/ H2 e  A% A. n" dDim ObjRSA
( L$ H1 O, {4 w  e+ R* Z. p4 pLngKeyE = "32823"
4 E" a' q3 v" [LngKeyD = "20643" , Y5 H( b5 j1 ]$ r) ^
LngKeyN = "29893" * x, C4 Y# M: }+ |
StrMessage = Message
9 f4 _" s' L# Y  V. r' V* wSet ObjRSA = New clsRSA
; F9 C* x& f7 ~& d/ S7 XObjRSA.PrivateKey =LngKeyD ; V: R) ~* _! |, T3 u+ o, E' l  E) _
ObjRSA.Modulus=LngKeyN ( _; b# }( o6 @6 T0 i
decryptstr=ObjRSA.Decode(StrMessage) 1 [- U7 t4 A- K' Y
Set ObjRSA = Nothing
0 O& ^  m  o6 {# I7 }end function / ~% `. |& R9 k' _) c+ [$ P: n
dim last,first
( ]" }8 ]7 P: q3 d: cfirst="!@#$%^&*()" 9 n* x7 t; l' g! J7 |- s
Response.Write "加密前为:"&first
4 D6 C: B9 l$ z5 D/ ~last=Encryptstr(first)
. f0 z" O. N3 x3 {8 c% W4 M- mResponse.Write "加密后为"&last ( y+ Z2 ^% I- w- g/ l" C- Z* ^, W
Response.Write "解密后为" &decryptstr(last) 6 d; F3 m  `) P" w: }9 u7 f! m8 ?
%> ==============================================
3 F& `+ M0 \# L2 v+ n% u剩下的就是字符的对照表了2 x" J, |( J" @2 d' @% z4 C
===================字符集================
+ d+ U7 E7 y6 P1_____6EBB5 T% e6 g4 P; w8 V3 k0 Y
2_____5C1F% B/ q7 ~3 [# p  x: C) E7 ?
3_____4D75
! K( r4 R' q3 H# g' i' u4_____26CC
5 i7 b/ e. p, S! m5_____4F88
7 M' m( s! Z/ _4 K$ W+ _" y6_____3F4E
3 m- a3 H, M7 e+ q) Q0 u7_____0A9D
5 ^1 x. d) e. \, l, n9 G8_____1A1C- d  g- H4 Q4 J* W* G0 {/ v9 ?  v
9_____6D20! N' u5 b! N1 n8 Q$ ?. o
0_____1089
5 u6 w" x" o7 u8 \+ z- _a_____0F3E
- o+ I- f: X5 \+ x5 B7 vb_____31592 h1 m& ^; S9 E
c_____3517' N7 x  l' n' H. n2 U" t
d_____419C
4 v& P$ `5 N; M9 q1 Z. E7 De_____615C& @( i& i$ ~4 P/ @+ ]9 z1 g5 L2 A
f_____556F" d( J5 G* Y9 K0 C- Z; k
g_____2B7F
9 d* I: B" y1 Y. J7 qh_____0F9C9 _( S1 k: x; z+ h- Z, K
i_____00FA
' H' f, t& V3 ^: K2 D' kj_____5A50% b2 J8 G" A) }
k_____28502 x: \$ Q0 d( G; x! j6 C+ |, [
l_____3E7B
6 I  l& s  m9 qm_____71C5
6 v3 ?" W& P) z% T. @n_____1FC84 x% x& ?" u$ U6 z0 n4 B& f
o_____74C1
5 d7 R& ], Z5 {2 Op_____5FB8; z' O/ z* B, v/ u( r- b
q_____6085
- S' E0 m  m$ `! |* Ar_____3AC4  t7 M: q$ h$ n6 Z6 k* y& R
s_____2F50  M9 T; W% C- b: w
t_____36F87 t+ D, d2 q( f0 C1 j& e
u_____7010; h4 t1 Q+ Q' K- [
v_____0B427 s; t# N. O  @* U  Q  h) y3 X
w_____1C7A
( A2 h% d8 _. t/ D8 yx_____16F8; ]% p+ \. M7 |$ d. V' p
y_____2EE7
0 G9 y& m2 Y5 b: U% s* P" `z_____5CF39 Q! g+ x0 F) ]/ D0 b% D
!_____62339 `# u, x/ j, s& z& E: g! ]1 S
@_____3A450 \1 z! T' A, t" q' r- c
#_____22912 O" a, }( g' w0 C
$_____5D5C5 J$ ^- u2 |: s, v/ X/ Q
%_____09B9
! h/ H4 i3 c9 y& z1 k7 j^_____43EA
$ x0 A9 b1 ]" p" p* A9 a& ]- ^&_____62B9
1 K+ q" r/ Q  j8 A; `1 i$ E' R8 W*_____6301# k) b! R' s7 R! H% w% b# N8 C
(_____4659) ^3 p* M* K( l% d
)_____5C82

鱼儿无心

收藏了。。。。。。。。