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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456: E- u  s! Y& P5 N& W5 g
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 d* x0 l+ k! T) P% R/ ^/ P

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家# Z2 g6 v, F- z- R  X, x+ \! q
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法0 h2 N! M$ o7 p  A
以下是RSA算法文件
9 U- y1 X  O" A( ]/ U8 \
文件名RSA.ASP
===============================================. k, q. m. {4 ]8 H6 h; t4 G
<%
Class clsRSA / W- ?$ I( ?7 X* t! y& E
Public PrivateKey 1 n3 Q9 c) L2 W* e" s! [8 K
Public PublicKey , O, L! a8 U: _8 s% ]
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult 9 ]7 s8 |0 T0 u) G2 H4 c: a( @
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1   r- e3 [1 U5 p: f1 j: V! b
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation % ?# Z2 p* E- x4 g  o; M: {
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function   Q" u: I  O/ y" \! h1 B5 u6 a
Next , a4 O( ?4 k8 l8 C2 b5 M6 W2 ]* l5 d
Else
lLngResult = pLngMessage 4 P  ~# o" }" v- h' \& x
For lLngIndex = 1 To pLngKey / 2 3 z# F  u1 f- ~& U
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 9 g7 K6 i. R3 n. w% ^
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ( o5 `% A! z% |& P% t) L
If Err Then Exit Function
Next ! n: _; ~: r- O1 `% t+ t8 T
End If
Crypt = lLngResult ( s# N  l6 o5 ?& a; x8 R3 A
End Function1 M- x/ y' m2 h( i( X5 Z. M
: r* X- i4 ?' d* |  x6 Y7 o
Public Function Encode(ByVal pStrMessage) 9 |* R1 @% r' r. ?! ~
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 5 T5 T, p7 K4 j% r4 Y1 A8 `2 l
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)   H" t" o8 a6 _3 ~# j6 d
Encode = Encode & NumberToHex(lLngEncrypted, 4) 4 e3 c" g, \, E8 ?) L2 y
Next
End Function 6 u* h6 J5 u* _, I
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 4 u( z2 p  m) V0 b" x9 d
lLngMaxIndex = Len(pStrMessage) 6 l: s) C) X/ m0 m% J) s) S8 i
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) : x4 x! ~4 e; [5 Q. l- h5 h
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next ! h' t* m# Q! _" l8 y- x
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ) O9 Z3 g$ o3 Q2 X" B/ D
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) : J# R. N! b& u
End Function
Private Function HexToNumber(ByRef pStrHex) 1 J) \6 d5 k+ X% v& V2 M, V
HexToNumber = CLng("&h" & pStrHex)
End Function 4 M9 B3 Q0 P# {. H% w  B% |
End Class
function Encryptstr(Message)   {! \% r- t* w2 V* q( A
Dim LngKeyE
Dim LngKeyD : ]+ `: h& Y6 v' w, A) g4 n
Dim LngKeyN
Dim StrMessage 7 z: n4 e/ }/ F# d
Dim ObjRSA * O! U9 p+ s+ C& P- ]6 Z1 F
LngKeyE = "32823" 9 ]' Y5 V# ^, B7 K8 ^; M" O
LngKeyD = "20643" 4 E9 L$ g" V( c+ v
LngKeyN = "29893" # c" G4 D% U0 R$ r: K# q: {3 s
StrMessage = Message 6 S1 E/ P- @7 ?7 z' R: P) }: F( m
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ! P' m' ]0 B+ d( \) ~+ b& S- _* ]1 u
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) + M: s8 v% h& r) \; o" i
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE / S1 F" }  Q' ~* e1 d8 P
Dim LngKeyD
Dim LngKeyN $ x8 G4 Y- m0 j5 Q
Dim StrMessage . _6 _  w" i6 W/ d9 \! }( A1 N
Dim ObjRSA 0 U7 e( d1 q( t' P/ d; v
LngKeyE = "32823"   u" Z1 N4 t6 L1 _/ E: E# O
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ; d$ Q8 ^; i' [* B* z/ \
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ! y2 M3 Y: [( U, W- Y5 {& w2 R' l) t) T
decryptstr=ObjRSA.Decode(StrMessage) # ^' d, }2 x5 ^9 b% x1 p4 p
Set ObjRSA = Nothing & l" Q, o& R. y" P$ K- h
end function & M+ U4 |, q8 p& m8 L
%>8 c, ?+ {  L' V- g0 ~
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%8 z7 \  I* B0 E  C4 D2 u
function Encryptstr(Message)
Dim LngKeyE . ?' B4 J% d8 m# A) L' y' B0 [
Dim LngKeyD & |- f0 y0 z5 J# x. V) ?
Dim LngKeyN 3 w6 K0 B4 E7 }7 A4 G
Dim StrMessage 0 \, N: W& I4 b% f( I) N
Dim ObjRSA
LngKeyE = "32823" 3 H7 q- Y' |% z: q
LngKeyD = "20643"
LngKeyN = "29893" 2 U4 `, {5 ]+ ?; k
StrMessage = Message 6 l2 Y2 p' C" K% ^9 S& F
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing - {! f  h3 b0 U
end function
function decryptstr(Message) 3 \+ a# Y7 S, F% b6 H
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage , v8 [5 R% c$ l5 F2 {+ W% \1 t
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" - S8 C( V5 o$ y1 x& D' k6 q
LngKeyN = "29893"
StrMessage = Message 7 z) _* Z0 S) n" |  O0 G% i
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN - _. {; o* V% X/ o
decryptstr=ObjRSA.Decode(StrMessage) * V( D' \5 Z+ g* P
Set ObjRSA = Nothing & F! h! Y/ c* T" T2 Y% ~+ l; ^
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了9 x$ e( ^2 U0 p0 _  H
===================字符集================
1_____6EBB0 y( u0 n7 O5 G: |& [" x
2_____5C1F
3_____4D757 q0 q' {) Q  [7 o, G' j2 E( g
4_____26CC
5_____4F88, n* i+ r, X1 ?4 N3 P
6_____3F4E
7_____0A9D( [7 U' B7 C/ k6 ~: j' J' _
8_____1A1C+ f7 r& B$ [, y0 \
9_____6D20$ U0 i& q( b+ N0 S* h! F/ D2 c# p+ r$ ^
0_____1089, p. h+ }8 u- x$ Z' L
a_____0F3E
b_____3159/ p/ }1 A7 \- }% _" u9 j- r1 }
c_____3517
d_____419C
e_____615C
f_____556F% U( b& n+ r& l% o3 m8 l
g_____2B7F6 z  G8 b+ \! w8 t
h_____0F9C
i_____00FA
j_____5A500 C" a0 Q% k! u% G: Y
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C10 g& R6 A2 _3 ]+ W! c' N
p_____5FB8& H$ D4 a+ |, [' T6 N8 ]  p* B( U
q_____6085
r_____3AC4) _, K. G/ o0 o7 l* u! F; P* }5 S
s_____2F50
t_____36F8% `  v0 M3 Q! `& L( `
u_____70103 a6 Z/ E2 r0 ?; q
v_____0B42
w_____1C7A/ \3 p0 f0 r# E# t9 g: A
x_____16F8! Y9 S0 @1 F- A! G( G4 Z
y_____2EE7- \) D/ h9 {: L; w
z_____5CF3- O' j  `8 F( o+ k6 e7 q  Y
!_____6233
@_____3A45
#_____2291# b! j9 n' |# h" H+ b, k  m
$_____5D5C% B- L/ J+ \( _
%_____09B9
^_____43EA: b% i/ h# ?6 i; Y/ l* }5 P& C* A
&_____62B9
*_____6301! B3 N0 T! e" Z3 ?* B. h
(_____4659
)_____5C82