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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm  O2 u  u) [- `' c* I2 X( W' k' w1 S
原始出处：http://www.3ast.com.cm- r  v8 ]* c2 N. Y1 N0 W! B
2 |" u! \: `. r3 q
看不懂的直接绕过9 U9 @. T' S& w' ^2 n) R
加密前为:hwy123456! _: m" z% f1 f6 w4 Z+ l* C4 [4 m
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E4 w6 h' O9 w- T  j) s) v: T& N/ F
$ M- C" k- z, ?# _8 D. T$ S, G
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家1 ]8 u6 T# Z' Z0 n* [- {$ d
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) / i$ h% d1 q; d6 ~- ^) M4 v
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex , h; S0 x! G5 M1 o  H' V8 C
If pLngKey Mod 2 = 0 Then : W" v# y/ h6 X
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 3 `- a1 O5 A( v, [( {+ I" _2 Y* r
lLngMod = (pLngMessage ^ 2) Mod Modulus   m5 y$ _; C: d8 {
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus   ^' J% C  H( @9 y7 }
If Err Then Exit Function 3 z0 R9 z+ M% a! q0 ^. `
Next # ^/ b3 W( [# f) K+ h) `
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation   F* V) r: k. z& \/ Z
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ( Q$ T. j8 P5 g* p' n0 G
Next
End If
Crypt = lLngResult 9 H. l# `+ x$ ]1 p9 i# V! y" i
End Function

Public Function Encode(ByVal pStrMessage) & M& V7 t9 p( T  K0 V
Dim lLngIndex / Q/ k. F* b* ]1 @$ O9 m, E8 [
Dim lLngMaxIndex # w# o$ A3 b& u1 e# W1 x
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) / j* _# k5 G/ M: s
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 3 M# I% _* E; @& n
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) : @( c+ a* Q2 J. o: q8 j/ C* T
For lLngIndex = 1 To lLngMaxIndex Step 4 - ?7 F- l# ?$ q. W& i* q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 0 u9 }8 u- f0 {
Decode = Decode & Chr(lBytAscii)
Next
End Function 2 x7 S2 w+ g0 A$ f$ A2 |, t, [
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) # `5 A6 Y6 y) G
HexToNumber = CLng("&h" & pStrHex) 3 M3 G! J/ `) C1 A: \' s
End Function ' L9 H! m, w; X" a
End Class
function Encryptstr(Message)
Dim LngKeyE % C. t) d) g7 L+ _# d
Dim LngKeyD $ S) X  u" L1 k( z
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 9 K$ ~5 `6 d9 }8 Z6 P0 W3 }1 u* \
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 9 U4 J, U9 I+ ^) Y* s2 F+ w
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing / x9 H6 S( y  Y% w
end function$ w3 M; R. F% S
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 3 _9 D# D% v5 b; ^
Dim ObjRSA / ]; o0 N) X+ f/ ]
LngKeyE = "32823"
LngKeyD = "20643" 3 y4 M3 F' Z. h, J; P6 A3 I
LngKeyN = "29893"
StrMessage = Message 3 E" P; }: e2 _( r
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD $ H/ U6 |, P5 T: F$ d/ J
ObjRSA.Modulus=LngKeyN * Y3 N) ~- ]& k2 q
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 6 z# W6 m- B: D
end function
%>; \1 M+ `) Z+ M# `# b( P; N
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下; X+ d, f5 [' x! p. |
 - W- _: d4 b* L3 J# C
<%. M. B1 C6 Y2 N1 d: N) ?2 W/ l
function Encryptstr(Message) & s2 T8 `4 c9 d2 Q
Dim LngKeyE / Y: }* \8 p7 H3 u- v$ r% D
Dim LngKeyD
Dim LngKeyN $ T7 R# T3 `& ]' q- l4 _- B% ~+ V
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" # F6 w: M. o& B
LngKeyN = "29893"
StrMessage = Message : G* p! H/ g$ }3 H& f9 H1 O' c
Set ObjRSA = New clsRSA 1 m& U0 ?3 q, X8 v% \4 s) b! ]% u
ObjRSA.PublicKey = LngKeyE " b8 l; t, y7 S/ {2 M" A; e$ X
ObjRSA.Modulus = LngKeyN : d" Z3 t: {  @, L; q4 X
Encryptstr = ObjRSA.Encode(StrMessage) 3 j( a! M/ V1 H1 D9 k
Set ObjRSA = Nothing % D8 y) n: ]0 {' f, C
end function
function decryptstr(Message) 6 e1 u. `5 }5 {5 j
Dim LngKeyE + {1 _. c: C7 B# S, C: B& T+ P
Dim LngKeyD . J3 ^4 y* @& @' b# H' C1 o6 R
Dim LngKeyN ( V7 y$ c8 n. L* V0 f; s5 b& w
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 6 T/ z" ]' V# t3 |% [  _( [
Set ObjRSA = New clsRSA 6 g' E1 G, n. K+ p
ObjRSA.PrivateKey =LngKeyD + A- ~* F7 h. h& g$ K
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ) l( K7 q5 z2 M; e3 s
Set ObjRSA = Nothing
end function 3 E7 P! q" ~, J6 q6 c  Y
dim last,first
first="!@#$%^&*()" 2 N" M9 x- m: a! T
Response.Write "加密前为:"&first ' w1 T; x8 f, Z/ G7 @, J
last=Encryptstr(first) ; P; f5 m$ b* H" r0 l3 I
Response.Write "加密后为"&last 9 p# y4 g4 a) H, G) v  S
Response.Write "解密后为" &decryptstr(last)
%> ==============================================2 X+ A* E% }, u# ^
剩下的就是字符的对照表了5 i. P, L9 S5 N7 [( {1 |
===================字符集================
1_____6EBB* p1 J* y2 f2 L; o/ G/ T! D9 _
2_____5C1F2 F  b8 Y" x5 \: a
3_____4D75
4_____26CC5 T0 }8 O7 @; w
5_____4F88
6_____3F4E
7_____0A9D( X2 W0 c: Y& Z
8_____1A1C: c0 {+ l( b6 n+ b
9_____6D20
0_____1089( b  u6 F% `* x3 A2 j) B2 o
a_____0F3E0 O3 u6 T2 V. W7 \: B
b_____31592 H  F& }" h9 f  I( q) x8 z
c_____3517
d_____419C. c% j: u- K0 _
e_____615C7 |8 E+ ^! n' u, P/ D/ [' h
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8. m- V/ G5 H$ ]5 w% {: b( t
o_____74C1
p_____5FB8
q_____6085) Z) T( z# S5 w5 i. @; E! ^
r_____3AC4
s_____2F500 v, e* Z2 Q, V0 E
t_____36F8
u_____70104 P% g# _6 i1 n. _& l/ H
v_____0B42# H, c1 C9 ~: H/ I. T5 @
w_____1C7A$ b/ T% J0 C. l& z
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45& h# z2 @" n- G% a1 M& U
#_____2291
$_____5D5C+ V8 S! J5 B# u' V
%_____09B9
^_____43EA  I/ q& l" z- v8 \& q5 z
&_____62B9) j9 o$ j' e+ m5 d
*_____6301! N/ D0 r/ `8 }9 }3 f# l
(_____4659. _" Y- |6 s4 V
)_____5C82

希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系，他人勿扰
于智者同行，你会不同凡响；与高人为伍，你会登上巅峰

鱼儿无心

3.A.S.T士兵

Rank: 1

帖子: 22
积分: 22
威望: 22
金钱: 5
在线时间: 0 小时

2楼

发表于 2011-12-4 17:17 | 只看该作者

收藏了。。。。。。。。

TOP

返回列表

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]