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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
! y2 u$ K9 o$ A3 C' L  Y
看不懂的直接绕过/ E* t! [( U+ w- ^
加密前为:hwy123456/ E  T! B, _, a5 ?" C
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E7 m+ s+ E" a; |) W6 r- Y9 G) ]" P9 s

============================================) M7 }& x: f: F) X) }7 c4 l
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法4 d: g5 ~9 F; D+ G: h3 {2 c* w
以下是RSA算法文件# n! d1 h( Y3 X( I" R1 |

文件名RSA.ASP/ Z5 c+ v4 @6 Z3 l) d3 X
===============================================
<% / Y6 L' J% e  ~: N# }
Class clsRSA
Public PrivateKey
Public PublicKey * J7 Y+ [) X  Y0 C/ ~
Public Modulus ) {- {" f2 }9 J5 @5 H, E6 G3 T
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 7 U% B8 N4 c" W/ S0 ~3 d5 Z) L
Dim lLngMod
Dim lLngResult
Dim lLngIndex 8 e2 c7 y. Y' ^. E
If pLngKey Mod 2 = 0 Then $ |6 v) L; R5 `
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus % M2 J) I1 ~# Y& J4 ^. }) o' T% n2 R
' Mod may error on key generation ! d9 W/ h+ x/ B* u: X) |  I
lLngResult = (lLngMod * lLngResult) Mod Modulus " I9 ~, U& j: O7 a2 ~& B( n
If Err Then Exit Function
Next
Else 6 U9 c. v8 _7 ~9 y! h4 Y6 F
lLngResult = pLngMessage , r+ F' c/ s; C
For lLngIndex = 1 To pLngKey / 2 & v) C. G5 L3 h0 s  e, o% o
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next - ?% a5 n" J3 }6 \  \
' Mod may error on key generation - v) Y) V% \8 K5 o
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ; }: Z; ?! t+ A8 M2 L: |9 P" Z4 J3 q
Dim lLngMaxIndex
Dim lBytAscii 5 T0 ]/ z9 r, T1 G# O! a8 F) x
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) / X$ ?  l- m; z" u# ?7 V1 r
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex / h+ t) V; L+ {2 V8 j
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ( d" D- j3 j4 f6 e: i. Y& P/ t9 P( L
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) $ j. Y: j6 j" f' F5 k, x- p: ~; Z7 j
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex ' H- a. d1 r: J
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) - Y  A# Q4 g/ W$ O* k  A5 m
For lLngIndex = 1 To lLngMaxIndex Step 4 , H3 I/ Q  |2 S& M/ o5 o
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function ! @# Z5 b3 T* S: X
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 5 L; M" _9 N) G4 A
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 5 v# |% F1 W9 _: L6 N2 C1 p
Private Function HexToNumber(ByRef pStrHex) - _. l- l, h5 t
HexToNumber = CLng("&h" & pStrHex) ( c1 Q. |! ^" @% F4 B
End Function - o4 o% F* L) ]9 P$ s$ A8 E
End Class
function Encryptstr(Message) ' Q) d' S, p$ b' l9 I7 [" W
Dim LngKeyE . w: p# u- F7 B, {& c- v5 N4 b" ?
Dim LngKeyD / d+ o8 b( Z# B) Y
Dim LngKeyN
Dim StrMessage ( r$ G* Q" [' ]
Dim ObjRSA ' q7 F$ A6 H' Y1 _
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 1 N1 F. K! k! h- U4 ^" ]
StrMessage = Message # I' R' h' D6 J( L/ D; L; ?  M
Set ObjRSA = New clsRSA 3 D2 \+ ]& ^. p+ H0 ~( _" Z
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN # L' p# y* P6 T' I
Encryptstr = ObjRSA.Encode(StrMessage) # ^! E9 ^4 p& m+ h" C
Set ObjRSA = Nothing
end function6 Q- }) E6 Z( v6 @6 S1 y
Function Decryptstr(Message) % M' V- c/ H# i
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA & V# S7 _3 S  U8 @# V4 g1 m1 ?1 Q
LngKeyE = "32823"
LngKeyD = "20643" - P2 ^3 {- I- ?+ w) d! {
LngKeyN = "29893" 2 u3 U) K/ L( \9 X; t
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 4 Q% U. B9 f6 A5 U% T4 q
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function * _5 N! J3 e1 M+ d: \
%>3 G" l9 g1 J2 V: O( i. h  Q
===============================================" @. V4 n0 Q9 I4 ]) Y+ E+ q6 L- ]
6 A& O# w" L: ?5 b! i
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
   N# J2 B' V" o8 Q5 z
<%4 Q8 ?; w$ \& w' a! K2 p
function Encryptstr(Message) ) `2 G( ^$ ?0 e) P, }
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 3 a) c) Z0 n6 q
Dim StrMessage
Dim ObjRSA 0 P7 |% e+ z+ V) e) `
LngKeyE = "32823" ( ?$ u- U0 Z/ L8 R
LngKeyD = "20643" 1 h3 |" ?- c7 o6 m
LngKeyN = "29893"
StrMessage = Message + z; C9 m: g6 J+ Z( C( n" ~
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN , Y) H' v% r7 E" u. t
Encryptstr = ObjRSA.Encode(StrMessage) # w. g4 C4 C( L  {- b% R6 d
Set ObjRSA = Nothing * t( X7 I/ h" ]% l' Y3 y
end function : a" A7 ~% H! y+ C
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD " Q1 Y7 L! {* g. v" ^- I
Dim LngKeyN " |' P( d/ h" g8 F- r: \- b
Dim StrMessage
Dim ObjRSA   w1 [0 f/ u1 ?
LngKeyE = "32823"   O2 t9 b& M2 w* _! D
LngKeyD = "20643" 7 ^% T* T1 p+ q
LngKeyN = "29893" 5 V2 Q# x0 X! z, b9 @
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ' z; t- ^& h, p1 c+ W. j7 n
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 5 I. D% [  @6 X
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了& P7 U* Q! [8 ?" X9 Z7 z
===================字符集================1 w, u7 y8 O* I
1_____6EBB
2_____5C1F
3_____4D756 W: r) W3 I2 l9 `0 l
4_____26CC3 `( o/ V$ i, C
5_____4F88' ?- q2 f& z8 W  S: k1 O3 s
6_____3F4E
7_____0A9D
8_____1A1C' |9 ~# @$ T6 {% O* f+ ~
9_____6D20, N- `" i  T% x, d, o; w2 b( {+ s. _
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C( ^) B, B+ v" h' v
e_____615C; Q3 h( U" i7 T  M5 F" A
f_____556F5 [" d3 P0 Q% E! V  n& o
g_____2B7F8 ]! J* c# H" Q6 M
h_____0F9C& M! W% W6 v4 `4 V4 Z" f
i_____00FA* V' u1 O$ e' ], i8 _. P
j_____5A506 `, g+ k! F' [
k_____2850
l_____3E7B
m_____71C5
n_____1FC82 B4 B& k6 H0 n4 P
o_____74C1
p_____5FB8
q_____60857 Z' x" v& c, L+ k) V, y' X$ h
r_____3AC4
s_____2F508 {0 k. H) t  E
t_____36F8
u_____7010* z- K( v5 M' c' J0 s4 F
v_____0B42/ i0 W2 o+ U( @
w_____1C7A7 Q' S2 b% A$ k9 Y1 N+ U& v) a
x_____16F8& R" c8 A7 r& c6 B  n3 A
y_____2EE7
z_____5CF3
!_____6233/ }2 R0 L+ G7 Z# n7 _( T) ?
@_____3A45% H7 Z! T- _$ J
#_____22913 ]) X7 Y8 o, g; M
$_____5D5C$ ?9 `; q4 J2 l# |! [1 L  P
%_____09B9
^_____43EA
&_____62B9) O6 f. k) s& H, F
*_____63015 d0 M% s! @/ f& Z* {: {% s
(_____4659! J/ k( t; A- l* q1 Y
)_____5C82