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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
4 G5 `: N4 U: L; z# }4 [( O- w4 d- ]原始出处：http://www.3ast.com.cm( Z0 T3 R( [. T. S

/ H( F; _& O5 g" r* O看不懂的直接绕过
6 Q: W% W  d" z$ [加密前为:hwy1234569 v" h* \2 i2 ]
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
4 {9 o% ?3 |* A  ]; `, k3 `3 L" b( E. @* e
============================================
7 k& J; g9 R7 T6 u7 {4 c5 Z+ K# O+ J上面是当时自己校内的心情。现在已经解破出来了，分享给大家
; o! ?* B! h% j也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
/ c  |3 R! W/ I  C% c; c! L4 i6 X以下是RSA算法文件4 Q' _$ n4 H8 V

1 @2 B" a8 d' p  v; r; y  x( O文件名RSA.ASP
8 x# e9 X9 F1 K( E+ `" y5 K===============================================
% a# w- z8 S! S5 x<% / u, N, D; L" L
Class clsRSA . h; f4 h; \* T( e5 v
Public PrivateKey
1 N8 W: c* f- X4 WPublic PublicKey
( ~9 g9 |2 _  I2 e; @! o; mPublic Modulus
$ x# ~$ P3 Q5 `/ e5 Z4 h+ Q0 OPublic Function Crypt(pLngMessage, pLngKey)
8 M: `0 \# D0 N- K+ iOn Error Resume Next . \3 c/ l) a% K
Dim lLngMod 3 _2 L! S" B* q9 @5 r
Dim lLngResult 8 q. M- I8 V; Y. c3 P
Dim lLngIndex   P  G9 |- a  C2 c( T
If pLngKey Mod 2 = 0 Then & ?; r- H0 H  F
lLngResult = 1
9 K+ _$ j' L& Z# q, F3 \For lLngIndex = 1 To pLngKey / 2 3 ?) Q  C* Q1 t% s1 I/ n
lLngMod = (pLngMessage ^ 2) Mod Modulus $ @- ^' H4 E, [) r( K+ p2 ~
' Mod may error on key generation 0 Y" y2 D8 c8 Q3 u, q0 V
lLngResult = (lLngMod * lLngResult) Mod Modulus
4 |$ s+ C9 V# A; G: j" x, w1 K2 |If Err Then Exit Function
2 Q# E1 x8 l& y8 _Next
2 ?+ r; Z' y5 ?6 ?3 K% Z: UElse 1 v0 U: b( e( j: N+ z7 ]# q
lLngResult = pLngMessage
3 T& v. T, w8 TFor lLngIndex = 1 To pLngKey / 2 # y1 `! B( y' ]( E8 i1 O
lLngMod = (pLngMessage ^ 2) Mod Modulus
" y. A6 t! q4 `3 p0 o- R$ r' j0 SOn Error Resume Next   V) m+ T( R( R
' Mod may error on key generation
. Q' g" J- h  Y  ~- blLngResult = (lLngMod * lLngResult) Mod Modulus
9 S+ |" K$ }# R) d/ YIf Err Then Exit Function 6 d. J, l0 O8 C  H
Next
) i4 T8 Z: I, B, l% fEnd If
2 c4 ]/ [3 I! R+ mCrypt = lLngResult 6 F+ g4 O; e0 v) O' B
End Function
! y( G" s  M1 v0 y  M% f7 Y! a0 e) c
Public Function Encode(ByVal pStrMessage) % f. y; T$ V. E2 A
Dim lLngIndex
2 Q9 M6 Z! B4 Y; w4 J8 L* i; _Dim lLngMaxIndex 5 R# q) v6 P+ w! X; ^
Dim lBytAscii   J5 z9 g+ ]1 d$ O( \
Dim lLngEncrypted & @2 E4 U5 Q# V* p0 Y- z
lLngMaxIndex = Len(pStrMessage) & y& Y/ A; N5 d. N0 z
If lLngMaxIndex = 0 Then Exit Function : j! c; [- R: c7 n. K
For lLngIndex = 1 To lLngMaxIndex : ~, z6 u9 b" N1 @' p
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
: j+ `6 Q8 c) H6 o6 clLngEncrypted = Crypt(lBytAscii, PublicKey) , m+ |3 W" Y* W
Encode = Encode & NumberToHex(lLngEncrypted, 4)   r! m7 V- U* i
Next . P/ W) G* g  k4 f
End Function
4 P: g' b& q2 ?' a8 z; ]3 e$ l9 kPublic Function Decode(ByVal pStrMessage)
! X  f) r% y, kDim lBytAscii
, k. T" U$ b, a2 n) {Dim lLngIndex
0 A& V  Q& P. _7 \8 r. `2 XDim lLngMaxIndex
, `4 s" K9 [4 w0 E) `: HDim lLngEncryptedData ) f/ F/ P0 k# @% }
Decode = ""
& C  T; _3 [, |+ W% \/ PlLngMaxIndex = Len(pStrMessage) # v+ @, {' f- o9 L( |9 l) s
For lLngIndex = 1 To lLngMaxIndex Step 4
) c- `: d5 w5 x  @3 klLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 4 f- R1 `, Y) w. O6 h5 f
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 8 r' u1 F$ D% _  Z( W# H% L3 i
Decode = Decode & Chr(lBytAscii) $ k" B2 B2 Y) N% [8 T! W: F
Next
. C  ]: h, g5 o, eEnd Function
+ \) q" l* W5 s0 NPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)   O( R' ]9 V1 {2 ^
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
* i8 E+ s- r4 J3 @$ ^/ F9 F( G1 rEnd Function
+ |8 A7 O/ F, s5 B  |8 c; C3 bPrivate Function HexToNumber(ByRef pStrHex) ( \! ?) f1 @& b. u
HexToNumber = CLng("&h" & pStrHex) " e& a% H; j1 L# Z7 B0 \
End Function
+ g( _- Q0 U) p0 {, XEnd Class
/ h  g) w$ b  p& B' Ofunction Encryptstr(Message) - H; P/ L7 S, l0 \* L/ }7 B; @* \2 A
Dim LngKeyE 6 G9 ^% P, v9 m7 {+ Q0 n3 |
Dim LngKeyD 2 m7 }5 a2 Z: Q9 Q0 U" a( I7 {& M8 v
Dim LngKeyN
6 }. u7 o% h; W6 UDim StrMessage
. g; @) T$ ?8 N/ }) ?' CDim ObjRSA / @% i, D3 `- _# R. s/ S
LngKeyE = "32823" - _* {5 L# o$ _4 ]. D
LngKeyD = "20643"
) P9 s% O$ b+ F/ I/ J9 ]LngKeyN = "29893"
! x% e6 ^" {- n8 K- oStrMessage = Message
2 ]8 H) y- N+ j  ZSet ObjRSA = New clsRSA
) S' a5 G' a* S! [ObjRSA.PublicKey = LngKeyE
* h9 V. V4 o# ]3 @. y& d1 q# rObjRSA.Modulus = LngKeyN
1 o) p0 O. h7 U. D8 TEncryptstr = ObjRSA.Encode(StrMessage)
6 i8 D  |" l3 e# B$ a8 _( hSet ObjRSA = Nothing , \2 p- P, C8 q% X/ y4 X$ f
end function4 u+ w9 E4 J$ A
Function Decryptstr(Message) 2 Y, f+ m; L' i
Dim LngKeyE
9 k6 ]8 [$ G- t" |Dim LngKeyD
/ ?: T7 A" u0 _; ?& x, PDim LngKeyN - m+ p4 @" A" x& k$ T0 Y: J4 `. [; q
Dim StrMessage ( O& |) Q& A- Y* Z% X
Dim ObjRSA 0 r% |) P. `$ @( \2 Q# }& |0 a4 o8 o
LngKeyE = "32823"
+ T2 R* z8 A3 X0 R0 n, HLngKeyD = "20643"
. l, ^- Z+ s* D! D3 D' {LngKeyN = "29893"
2 e/ D/ G8 M/ \; m) qStrMessage = Message * E0 o4 c( J$ ^8 r" U: ~6 D: Y* U
Set ObjRSA = New clsRSA
0 v( x' _9 r2 K& R5 C9 [ObjRSA.PrivateKey =LngKeyD & u: [4 ~9 W: {, E( F
ObjRSA.Modulus=LngKeyN * Q9 d0 s( H, S4 ~) ?7 O' d
decryptstr=ObjRSA.Decode(StrMessage) " e7 W) @! o) b6 ~
Set ObjRSA = Nothing ( N3 m  W8 i# c& n% `2 Z, o) V
end function - _  S- J* k7 y& p/ J6 A9 s. y; q
%>
$ ~# E$ M8 W) P, p6 V===============================================& U, M. o# O5 H. j! P3 U6 i: K8 a

; b# z; w; P; Y3 E5 U+ N6 E还有一个用于测试这段代码的test.asp
( u- }! ]9 @, s8 O2 X8 }+ E有兴趣的自己搭建个IIS测试下
, S3 q4 ^4 z) }+ ]! y, c, ~* ~5 h<!--#INCLUDE FILE="RSA.asp"--> 2 T! y" c! q' w9 X! s
<%
) I& u  a- E7 z1 K+ dfunction Encryptstr(Message)
$ ~1 _' k8 |% P/ Z3 uDim LngKeyE
" ~( s0 t' J5 \/ i; Z7 l# WDim LngKeyD
5 g& t! i: J0 SDim LngKeyN ! _% R  ]2 t+ P: i' d9 F* L! ^3 ~$ k& z
Dim StrMessage
' o$ q( m/ |6 k& N, |; BDim ObjRSA ' ]0 y$ x9 {- M5 y$ I2 Y
LngKeyE = "32823"
/ v& }9 w/ U# L4 Z5 ^" TLngKeyD = "20643"
/ Q  T; x$ F' M- r+ i7 OLngKeyN = "29893"
) J" s3 W+ _( n- i; v( z4 bStrMessage = Message , s, M# U# ^9 ?' E: U6 p
Set ObjRSA = New clsRSA
# h( B8 H3 N$ f& [# vObjRSA.PublicKey = LngKeyE 7 }; B( F. ~7 V4 F
ObjRSA.Modulus = LngKeyN
# {" z3 c) u! s% j5 B* }# ?, z' TEncryptstr = ObjRSA.Encode(StrMessage) ; T# E% Y4 V8 l; x& F7 u3 [* k( O4 S
Set ObjRSA = Nothing
6 ]. [" T& l# p! K0 P8 ?. [  Nend function 7 M: H% f2 M8 t
function decryptstr(Message)
( n$ U+ f, p4 @' c/ |) @& b% K" L+ b, JDim LngKeyE ( {) n9 }/ p& ^7 g7 Q+ Z$ w
Dim LngKeyD
7 l( K1 c$ ]0 @+ v$ \Dim LngKeyN
$ w% y+ O; v% V+ m, h  oDim StrMessage
& ~% `+ Z6 u& B% W5 {4 i4 c3 hDim ObjRSA & s/ l0 H3 _9 t. U" k" C
LngKeyE = "32823" 4 _2 X$ q6 _3 r: w
LngKeyD = "20643"
) e1 h$ G% v/ [9 Z, ZLngKeyN = "29893"
8 N; Y/ V6 y3 w/ [8 SStrMessage = Message ! {) z7 U% @5 v/ K
Set ObjRSA = New clsRSA
6 K/ D( a6 k5 M- v; UObjRSA.PrivateKey =LngKeyD 1 u$ o" E4 D) ?
ObjRSA.Modulus=LngKeyN
. r! ?2 `3 w/ t9 f- J8 edecryptstr=ObjRSA.Decode(StrMessage) 9 I& e. U* }6 [8 c0 z
Set ObjRSA = Nothing , [+ Z8 ^. h0 |0 R* @
end function , o" t; O+ Q! c( X/ z$ Q
dim last,first
, p9 \! Y+ l9 f+ g) |1 |first="!@#$%^&*()" ! [* D7 }- j3 U5 V* o( L9 F" O# o
Response.Write "加密前为:"&first ; ~6 z+ k0 }6 t- J# K
last=Encryptstr(first)
) g" X! p) o& c6 s; ]9 ?4 bResponse.Write "加密后为"&last $ ^/ j, ^& `/ q
Response.Write "解密后为" &decryptstr(last)
/ Y/ p. W  O$ M4 A%> ==============================================
1 |  t6 Q( U* \* K/ u0 V; y剩下的就是字符的对照表了0 K3 b3 I+ q) R! c- n
===================字符集================
6 |* I1 s+ U: q0 a0 P6 k& ^1_____6EBB5 d) z# J, m( m. ~  K5 @
2_____5C1F. r2 S5 x% R7 H7 R7 {6 M) `7 [
3_____4D75
) [5 v' ]7 ]$ x: ?; G4_____26CC
$ u" ~" e' p! ^6 r. n- n4 c/ I5_____4F88! b/ U5 I! P4 N( Y  Y% y0 M( V
6_____3F4E
. r6 U4 ^; I, a7_____0A9D2 s# ?0 K* o/ a  x: I
8_____1A1C
: [& G  r, Y% W, R9_____6D20
) k  F$ n2 a' b7 j5 H0_____10892 G5 f% E* W# j: m; D
a_____0F3E
2 t8 O3 W9 i: D9 Y4 w; |& k% rb_____3159
0 |) Z3 X* U, `7 f, v! l) }/ Jc_____3517# r" h2 P% ^! Z% u  E; ]* A
d_____419C, N- w( s* t" D& j9 H" G6 a
e_____615C/ [& G& y! o" C8 }1 t
f_____556F
0 u2 V8 L) U$ G; gg_____2B7F
9 r+ }0 F- A: v  y4 Hh_____0F9C
6 ~2 q3 f% o; t& @7 t4 oi_____00FA. l  M/ A/ B8 c" O2 @. z
j_____5A50  T; g2 Y% d+ e; _0 N& S' Q
k_____2850
, r4 k3 o0 S9 nl_____3E7B
2 ^4 j6 e9 b- |- j' Am_____71C58 ]% d+ D3 {3 g
n_____1FC80 ^  a$ A% f9 X$ g# l
o_____74C1
8 c) H5 [1 @9 e3 M9 D' t+ [3 q' _5 Wp_____5FB8
2 }' w3 x/ U0 `2 lq_____6085
! K! z/ T! u1 M2 J/ O0 u# hr_____3AC4
6 o! P2 J8 @% s5 P* B. ls_____2F50* r5 L* L2 c+ l
t_____36F8) E5 {5 p( j  t5 D7 y
u_____7010
# ~& o' J: S4 p. v$ Qv_____0B42
6 f# V4 M) d4 d! ?4 Ww_____1C7A
1 J- Z* p- s7 w: t+ hx_____16F8! [( b) B0 Y  S. Z/ ^
y_____2EE7
0 k7 c  x; U  jz_____5CF3! z* g1 }. X2 Y. V  a$ H  p
!_____6233" i* ^6 F3 x9 c8 {0 e% c3 e
@_____3A45/ t. P6 b8 Q5 F7 x1 q4 @
#_____2291' N/ v& d) G, h  p" V. W3 r8 q
$_____5D5C4 F0 a3 S* r# J
%_____09B9
& g, c0 D4 S9 r; y3 T^_____43EA
/ \# r7 R' M. j, C&_____62B94 S  y: R) G( W4 ~, f) j) X0 i
*_____6301, l6 D% u" z# n& |% N
(_____4659$ B2 J1 k8 M( a1 t8 [8 }
)_____5C82

鱼儿无心

收藏了。。。。。。。。