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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm# J1 L6 J, R$ b' K
原始出处：http://www.3ast.com.cm4 D, }: W' s# T; {( ^# S

6 R9 D7 J- P4 q3 s% y) `: d4 Y* ?5 S看不懂的直接绕过
/ O' Q8 K5 j3 q$ D! _加密前为:hwy123456
* [. }( h# O% ?- z" s. W* X$ W7 x加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
6 x0 V6 K1 T6 E( p$ M$ M
; T$ N' R+ e8 A6 N% `============================================8 d  B2 _; @( g* e
上面是当时自己校内的心情。现在已经解破出来了，分享给大家6 ^, T2 U! z  T$ x, [
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
9 f, Y  W, v# V/ x) x" }6 Z以下是RSA算法文件% w0 u3 p. S0 T" T- i
" V7 O7 ]. e& E
文件名RSA.ASP
4 k; }/ Z8 w4 z' M===============================================2 t$ `/ J; A. l( P/ v9 Z
<%
6 I0 q/ B& `, t! }. dClass clsRSA
4 ]& Q+ }) |2 s, A- c+ b' S( ePublic PrivateKey # f' b/ y& F; ^8 R& }0 d
Public PublicKey % j7 R6 J, g$ D2 T* R, k+ ^1 [' i* b
Public Modulus
, V6 K% t& r8 ]7 C" ~( a4 EPublic Function Crypt(pLngMessage, pLngKey)
9 U* l3 ]8 q3 O# \" X3 ]: I; fOn Error Resume Next
3 {: O. K2 }$ |0 U$ ~Dim lLngMod & K8 y. [( ^2 D7 a% U
Dim lLngResult 6 A9 }, u# \0 B
Dim lLngIndex 3 W- V0 x" P) y. a% y$ y
If pLngKey Mod 2 = 0 Then
2 n% c/ h! O8 n5 o+ }) O1 blLngResult = 1
+ Q- W3 p$ O; u! qFor lLngIndex = 1 To pLngKey / 2
1 o7 k0 f2 u0 a( F0 Q7 rlLngMod = (pLngMessage ^ 2) Mod Modulus * r! Q, s. X9 P7 A
' Mod may error on key generation ) `6 n7 x! n. A* i9 o
lLngResult = (lLngMod * lLngResult) Mod Modulus
) h& @& _8 O4 [; M7 R6 s7 k' M% rIf Err Then Exit Function
0 `7 T/ I- t. x* ~: LNext # g3 }) _% X) l1 |9 @
Else
, n/ |/ O% \  [# z7 ^lLngResult = pLngMessage * y5 N# A6 c# u" b; X
For lLngIndex = 1 To pLngKey / 2 ! }5 f: A& v# k$ K
lLngMod = (pLngMessage ^ 2) Mod Modulus   U# C% {% {& Y
On Error Resume Next
8 _& F% H# W$ B. p6 r/ g% ~' Mod may error on key generation 6 P7 C1 L+ u7 f, g2 h
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 ^7 a; T, L' t7 T
If Err Then Exit Function
+ h- V7 |& V8 M  uNext
) p$ Q+ n9 a, C# n5 d, Z/ b/ W/ fEnd If
( [' p5 k5 E( S- D: t9 FCrypt = lLngResult . m6 p8 ^  O  J$ u7 G
End Function$ C( r+ F8 p: @  {: i

, j  q4 t8 Z2 K% }1 T' CPublic Function Encode(ByVal pStrMessage)
- `" D; Q, g/ [" e, O- W5 YDim lLngIndex % a& R2 U4 h8 ^' y1 s! `
Dim lLngMaxIndex + f7 `6 m+ k! ]6 t! s+ M
Dim lBytAscii
0 v. I/ I' I; H& @2 z  NDim lLngEncrypted
; s$ p3 b. b; |7 z% o5 _" \" ClLngMaxIndex = Len(pStrMessage) " L) l" U) F! A/ D# P/ Z* r
If lLngMaxIndex = 0 Then Exit Function
8 p+ i3 ^6 z  z( I) D; O$ oFor lLngIndex = 1 To lLngMaxIndex
/ p, p3 g. A+ {/ b, @0 e8 @: _lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
) h$ a! X7 `- I6 flLngEncrypted = Crypt(lBytAscii, PublicKey) " K+ a! V8 ]: m2 d- t: c
Encode = Encode & NumberToHex(lLngEncrypted, 4) " a. r! l1 W4 t3 W0 d3 b
Next
; D! j  Q- T5 H3 zEnd Function
: T. U8 w; R% V' a: @; mPublic Function Decode(ByVal pStrMessage) ! c" x7 a& I* {) `
Dim lBytAscii
' e+ o2 t# A% V' U# q  w4 }Dim lLngIndex $ }* i& E2 m$ o- r% T( V
Dim lLngMaxIndex
: |: ?! H" a% p5 D; V( n1 l; m9 dDim lLngEncryptedData   T- @( S0 I* s( g6 A8 Y
Decode = "" 8 n6 v0 A( ^( m: Z) z
lLngMaxIndex = Len(pStrMessage)
+ h4 F6 H, B! M: Y9 I2 cFor lLngIndex = 1 To lLngMaxIndex Step 4 & {) ^. O0 L, F
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ) C, L; L; R' `2 h
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
# t" J- Z* E; E$ a/ B) `+ k6 @0 nDecode = Decode & Chr(lBytAscii) & a9 |6 x6 v3 }; t
Next + R# T7 f, M- _  j7 [4 i% |$ R+ B
End Function
+ I# \$ H3 c6 L9 bPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) + `' P. Z+ a! }& m" l6 P+ J8 F9 g
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) " n* [9 Z4 X# T. i5 B" @1 W' h: W
End Function ' {1 d. \6 e' Q0 G, b% l
Private Function HexToNumber(ByRef pStrHex)
6 u9 u4 D' l, T% u( mHexToNumber = CLng("&h" & pStrHex) 0 R! D* u5 b% A: @0 M; w
End Function 7 H  s+ z3 A% \% o8 a
End Class - `6 a) b; C9 S5 J9 J. q
function Encryptstr(Message)
( Y  Z/ b1 h- c) N1 m; R! b$ F1 m- sDim LngKeyE , M5 `8 t. I  }5 |% b
Dim LngKeyD ' I' O1 q) t: B* [% c
Dim LngKeyN % T: P) z# R! F6 U6 {
Dim StrMessage
$ y& s/ U5 J2 UDim ObjRSA
" p0 b) O8 |& V% F6 LLngKeyE = "32823" 6 v! y7 \, f. s5 t* Z
LngKeyD = "20643"
/ T1 e& _0 @6 bLngKeyN = "29893"
/ ~) f6 a* E. J' `/ I, h! e4 IStrMessage = Message " |% }0 V* L# [
Set ObjRSA = New clsRSA % V; z" |. D% R) b. m3 b: [1 N7 c
ObjRSA.PublicKey = LngKeyE 6 w: M2 Q! \) C8 q* h
ObjRSA.Modulus = LngKeyN
' m/ _+ M  _- }1 K; X$ E' bEncryptstr = ObjRSA.Encode(StrMessage)
% K$ _/ f% e, B4 SSet ObjRSA = Nothing % o% y1 w( q4 |/ _; M
end function( u1 U$ \0 J# J7 ?4 y7 @9 s- U
Function Decryptstr(Message) & L* N4 U6 K2 N6 _- i; g
Dim LngKeyE ) a) `9 C6 n. u) v( r) {
Dim LngKeyD % ], X& a& b9 a- \' H7 x% R
Dim LngKeyN . {( X3 E& X- @+ d# v7 B* F. S
Dim StrMessage , {2 ~* E$ T5 q8 A* \% P
Dim ObjRSA   C, w3 \6 O& R5 V; C- W/ x
LngKeyE = "32823"
9 E4 z: w" l4 _LngKeyD = "20643" 7 [0 m6 c2 Z2 Z2 A- A4 F
LngKeyN = "29893" * ?& Y/ ?8 z/ w
StrMessage = Message $ X" l8 ]1 I# [
Set ObjRSA = New clsRSA
* `( W4 Q; b# |7 K# S# U- kObjRSA.PrivateKey =LngKeyD ) L% o$ T2 v7 O: A6 P
ObjRSA.Modulus=LngKeyN . ?0 c+ v7 a, _* _
decryptstr=ObjRSA.Decode(StrMessage)
: R1 h, g" z! x) y" I# D/ r3 MSet ObjRSA = Nothing
% l# N3 _; b8 m6 v* T: q- T# I$ i0 dend function
5 v2 V  x% }1 V/ ~3 t# {3 L%>5 S. t7 t9 P& b
===============================================! J  A. K2 _0 e. W
' s: O. }% b) f8 R
还有一个用于测试这段代码的test.asp
/ y( ?) p# c7 u! u有兴趣的自己搭建个IIS测试下
& @7 V* T# Q5 F" A<!--#INCLUDE FILE="RSA.asp"--> ; B! \$ f7 d0 b+ L
<%
) N8 o3 Y1 S0 n. I9 Sfunction Encryptstr(Message) ! @6 L5 M  R9 |; y  ]
Dim LngKeyE
& g+ Q/ E1 @) e3 yDim LngKeyD
6 l8 h$ t0 Q: h  EDim LngKeyN 7 {) [$ L5 R! C3 B- q& `& H: X* `
Dim StrMessage : G+ V! W- n/ x' K
Dim ObjRSA ! a% q1 F3 D  E( I8 l: N# X5 A
LngKeyE = "32823"
9 R' y# r+ f) ^* m. RLngKeyD = "20643"
1 `' Q1 X2 L$ L! S+ X) l2 }" [LngKeyN = "29893" 9 s' `1 Z6 ]( Y% _: W( A" d
StrMessage = Message 0 |" J, \1 |7 ?% z0 [% }/ }* {
Set ObjRSA = New clsRSA
3 Q8 B+ O3 y( N; D0 t" g0 n2 q4 ?5 bObjRSA.PublicKey = LngKeyE & w% P" t" `8 Y! ?' ^
ObjRSA.Modulus = LngKeyN   f/ S! ^5 e6 U* B% ~
Encryptstr = ObjRSA.Encode(StrMessage) + u5 u1 W, i* i# k; ^; P' p4 ?
Set ObjRSA = Nothing
9 f" o2 G) b' w% V' r. @$ @end function 1 B; M. _8 n7 y* G
function decryptstr(Message)
, x! s6 M& }: m8 ^; jDim LngKeyE # g, H% J; I% G0 F
Dim LngKeyD
1 t, M& f( u. l- w1 m3 uDim LngKeyN
  k, z( j, T7 M: WDim StrMessage
+ t$ |/ T$ V7 }7 ?) B* c* l% BDim ObjRSA
3 C9 }- k! `0 v, x+ K" ELngKeyE = "32823" , K3 p5 [. g- [4 ?
LngKeyD = "20643"
! V( ~* \# Z/ i9 _( b- x& Q! |5 L1 OLngKeyN = "29893"
: _1 A7 S5 [% N3 jStrMessage = Message
  d' @2 J# h( d; m, ESet ObjRSA = New clsRSA , {6 u5 D3 h0 L8 l. D$ i) s; |7 A
ObjRSA.PrivateKey =LngKeyD
# }% R% J3 J1 O8 n6 jObjRSA.Modulus=LngKeyN
& q' M7 k  U4 ^3 ]( G6 j6 gdecryptstr=ObjRSA.Decode(StrMessage)
( C5 N0 S/ i$ h; h% B4 USet ObjRSA = Nothing 3 U( c$ N; a+ X; g8 k& p
end function
  A8 v7 @5 v1 y, t! _dim last,first , l; ~, n) ?- d  g# v# ]
first="!@#$%^&*()" 9 h9 h5 i% L- z' s- g7 e  ^
Response.Write "加密前为:"&first 8 L3 x5 e! p- H, _* ^" O
last=Encryptstr(first)
4 d: P1 r) A$ D1 v: {Response.Write "加密后为"&last
- }2 W+ q" R  \9 P0 u( FResponse.Write "解密后为" &decryptstr(last) ! @8 L7 r3 _; W. u5 S9 U% d$ O( ]
%> ==============================================
5 n- @6 P$ K3 P0 F2 J# r剩下的就是字符的对照表了* m; M1 j/ t/ P: M/ b( A3 v% \
===================字符集================# G* v( I& l, f8 U1 o4 S
1_____6EBB  h: H8 C' k) b6 R0 H$ ^! J
2_____5C1F+ @4 ~  L) X' A+ Y5 X3 Y' v' N
3_____4D75
& h* f. A2 \7 F/ t) h% ]2 p4_____26CC+ _& m, `1 X6 ]* L4 g" }8 C
5_____4F88
) v' Y: B7 F) D7 F6_____3F4E
  ?: c' J. ?0 A# J8 j8 ^2 g7_____0A9D
8 [* P1 v" }* w8_____1A1C5 _9 h3 r) x( a% d5 u& Z7 L2 s9 j4 q
9_____6D20
" C' V3 J9 E/ n4 X) v' C0_____10898 s8 ^1 w! m6 h! n6 x. J+ R1 ~
a_____0F3E! r0 ^2 O8 o& q
b_____3159! ^; U' g% \3 F0 ~
c_____3517# x. E, \: i8 i/ w
d_____419C  {3 s  e7 f$ I% e& v1 p2 i
e_____615C% b$ z# `+ q$ ~/ f: b7 \" ]
f_____556F3 i4 O, e: _8 u! G8 i' W
g_____2B7F
) t8 o7 M4 O; Z. dh_____0F9C7 ~4 q( Y& ?; |$ s/ D
i_____00FA, I$ U1 Q5 \: S3 x' |0 \
j_____5A50
: ~6 I% a$ u0 P: z# }  g0 u& G+ Rk_____2850
4 J1 q6 F- ^& x" Ol_____3E7B
: ?0 o- c% z3 |' i* v, {m_____71C5% Z( n( y, L, C( I& W% Z$ {
n_____1FC8
) |) Z. y5 j' no_____74C1$ E$ z& M4 u5 j5 K  ?
p_____5FB8, q" _" D: |; I8 l9 c" j# D
q_____6085
' a! l' X( q/ h# s: R" b7 S$ @r_____3AC47 n& |7 K7 H/ {; |
s_____2F50
% v, {$ Y6 X) M) ^. }7 at_____36F87 `2 }& T6 K$ [( Z0 F) h
u_____7010
; w5 F0 y! D" i  }v_____0B42' ?* j! \) ~1 j4 g2 d
w_____1C7A
, i, j+ X6 u7 h. c+ C# Dx_____16F8# h3 r7 n& M. I1 t, ?
y_____2EE7) M% ~% M  I6 i9 ?7 R
z_____5CF3# S$ E0 F1 O* R8 w
!_____62334 b- \' t" A2 Q
@_____3A451 i5 C3 X# ^: Y3 ^3 d. g& `
#_____22914 q0 _5 ^# H1 R" V! U4 v
$_____5D5C$ ^' b4 Q0 s7 f2 w; u
%_____09B9
5 s% F6 T: h, {+ C; n^_____43EA
- f! |5 U1 }: I9 G; F&_____62B9
7 ~! [/ B9 R0 ?*_____6301
& u( \5 w& q8 j(_____4659( ~5 o6 I6 |+ F1 j- @9 X( f
)_____5C82

鱼儿无心

收藏了。。。。。。。。