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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm# l9 l* u7 }# \
原始出处：http://www.3ast.com.cm# W+ X  ~- u; N5 C  `# @; p
! F, t1 K. A. G
看不懂的直接绕过. \7 V& V. z! J; o8 Z
加密前为:hwy123456. a& S8 q( L  b
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E' `: s3 F" X+ _9 u" ~  P0 i% Q8 F

============================================: E; N8 v  e! L7 C. i
上面是当时自己校内的心情。现在已经解破出来了，分享给大家0 R$ }' i. K8 T( l1 w9 q
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
+ R1 C* _% H8 u1 p
文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey $ b# w1 V1 k  s# L+ `5 z* e
Public PublicKey - w( G3 O: M( Y" r, ?
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next - m0 I: ^, N9 O* \
Dim lLngMod
Dim lLngResult 1 ]8 U! K7 S8 Y% W
Dim lLngIndex 5 o* J/ w# k: U5 L
If pLngKey Mod 2 = 0 Then   V# s) v8 @- ?' \, m1 @
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ! x) U3 H" m1 R! p9 Y) v; `  R
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation % F! `! {5 \+ n1 w; s
lLngResult = (lLngMod * lLngResult) Mod Modulus   P' f. a6 u; Y, t1 T+ Q( f
If Err Then Exit Function 1 ~; d% h& d0 ]
Next " {7 d& N, b8 L+ w" y4 T
Else * I! h' b6 Q+ h) W  \; C
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next + `9 M% L0 b# F/ h; t) m- }! j
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next & b6 g0 e6 J, t
End If ; y0 @- j  h( N$ S" `: M0 q
Crypt = lLngResult
End Function( V' W- f; V6 H8 n( r$ p
9 d4 ^5 |( v/ g$ H3 C0 R
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex " ]8 f/ T; l8 K6 p. C4 O) n
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted # t' |% s$ [. `% ?
lLngMaxIndex = Len(pStrMessage) 5 n6 ~5 m" t6 h$ C3 U, H
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # g" ~# ?- u1 p4 p$ Y" v1 U
lLngEncrypted = Crypt(lBytAscii, PublicKey) : Z% u' ?% v0 m/ H
Encode = Encode & NumberToHex(lLngEncrypted, 4) 0 Z0 s# ?) A) g' p* M% l. {4 \  x6 j
Next 1 b% Q# v$ B9 Z" H) z0 e0 n) @
End Function * ]3 X0 b* Q3 Q7 m
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 3 E5 F7 Q4 W/ x- e- v; v
Dim lLngIndex # @: M7 o5 m- Y) q+ G& M' f
Dim lLngMaxIndex ' g' g0 H" D2 Y5 O. Z' ?
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 6 y( {! y; J" u# C
For lLngIndex = 1 To lLngMaxIndex Step 4 0 p; u# a7 R0 N7 k! y6 V+ W6 O: r
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * Y" h6 h5 r$ V. z
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) / }2 S5 v2 a& b& ]' X/ D) A
Next " E/ q! ?( v; [. R' I
End Function , w$ h. o# }+ [1 L6 l% {: }0 a- w
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) , n# s: [. ?: N5 j
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) + T* S3 |. I# S9 q2 Y) _: K
HexToNumber = CLng("&h" & pStrHex)
End Function ( Y% ]( {0 b6 R# P2 v+ h' m- h- l  h
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 6 M! P" k4 y7 Z* a. Z# D; T
Set ObjRSA = New clsRSA + L8 D. y, v% M/ \) {0 F
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 4 @2 v' S$ ]! I3 X; s
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 0 @8 h9 ?2 W- [" v( \: x
end function
Function Decryptstr(Message) 7 b) ~+ a$ a& G# t2 D/ a" d4 L
Dim LngKeyE 3 l) t' ~7 K* p3 Y
Dim LngKeyD 8 J0 e% I% r, e$ D4 e; ^* ~
Dim LngKeyN $ O, P6 i8 ^) M% y
Dim StrMessage " B# h( z6 V4 @+ B2 i
Dim ObjRSA 4 o! c* N5 Z- k) n* f6 V, G# w
LngKeyE = "32823"
LngKeyD = "20643" ! V, S' r& E1 i1 t$ i
LngKeyN = "29893"
StrMessage = Message   s, m; }& Z1 \" g2 f2 |
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) % |- y: @. O+ r0 p7 M
Set ObjRSA = Nothing
end function . {% x0 \2 b1 y6 J" {$ e
%>
===============================================, y+ m# V* p+ `1 `. s# m

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 / v- [0 U# P, @! T2 g
<%
function Encryptstr(Message)
Dim LngKeyE ( j9 D4 v+ P2 }3 a3 R5 ]
Dim LngKeyD
Dim LngKeyN   D7 a$ y0 }! @9 {0 b2 p  a4 L
Dim StrMessage , S5 _& M7 A$ |1 Z7 S+ E9 m
Dim ObjRSA
LngKeyE = "32823" : Z5 K( L1 {9 F( o) `; k2 H
LngKeyD = "20643" . O: S- _" Y1 r3 h/ X3 m+ O( F0 T
LngKeyN = "29893" / \: u+ i/ u" k" m
StrMessage = Message ! `0 O0 S5 x; u1 H' s
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE $ j% e* x  ?" Z/ e, L8 y0 i# K
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) " q! V$ w. T$ i  j+ o9 K
Set ObjRSA = Nothing
end function 5 ?6 h7 P7 n1 C( n8 b  l) Y2 }
function decryptstr(Message) , }+ J* b: x' b* A8 R" a
Dim LngKeyE 6 S# J$ s5 ~& \
Dim LngKeyD 8 Y7 V$ O1 y0 C+ _+ `( s* I7 X
Dim LngKeyN 0 H) \2 m. G! a0 @- b  G" C/ n( z
Dim StrMessage   [1 C' z3 D5 J0 |  y
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" * Q+ i0 Z0 e4 I3 N+ o2 r1 \
StrMessage = Message
Set ObjRSA = New clsRSA 9 c& ^' q3 R: w3 t' G4 `$ O
ObjRSA.PrivateKey =LngKeyD * Y$ n- N+ g2 g8 \4 G: p; V& S$ d
ObjRSA.Modulus=LngKeyN # G! z0 W2 |" r+ ?8 K
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function / \' Y$ n$ [! f
dim last,first 9 ?- G: F* x6 _- I
first="!@#$%^&*()" 4 r0 D* C7 `( j0 I9 n7 `# n
Response.Write "加密前为:"&first ( `/ t4 f/ a; G0 Q* _+ c
last=Encryptstr(first) $ \$ o' Z3 }6 S! E" u$ p/ l5 {
Response.Write "加密后为"&last 6 x- w5 Q* ?7 b4 F( M$ p' L
Response.Write "解密后为" &decryptstr(last) 1 R9 R% _( u+ n, Q5 b
%> ==============================================
剩下的就是字符的对照表了  G5 f. X6 p' W3 _! j, \6 v
===================字符集================, f6 R# C1 u' [" `
1_____6EBB
2_____5C1F' R- s, R- @1 @$ P+ k" N
3_____4D75
4_____26CC
5_____4F88
6_____3F4E  i  \+ J( j0 b& e$ Y8 g
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517! d/ ?1 K; M- d4 ]8 _; D0 r
d_____419C. `4 s3 n, o8 _# g! @# ^7 {6 _
e_____615C
f_____556F. o7 Z; |, C# ?
g_____2B7F8 _3 w+ C; O0 m- i9 Y$ p  C
h_____0F9C- g' y/ f4 _8 t! P1 p
i_____00FA
j_____5A50
k_____2850
l_____3E7B  N9 k! R" g& u: r
m_____71C5% m" t- R1 c5 q" m1 d+ y
n_____1FC84 k4 Q1 V# H& }8 @
o_____74C1  G( V" W; H9 Y  U6 Q
p_____5FB8, @" i! E6 G0 p" B, b0 y7 ~
q_____60854 |! \4 M+ \' p1 F( b5 e
r_____3AC4- m$ B# k: A# G8 i/ g
s_____2F50+ K) G* o. ?  ]5 M0 \' |
t_____36F8
u_____7010
v_____0B429 g8 v8 i6 j/ k3 t
w_____1C7A
x_____16F8
y_____2EE7' F! d; R& J6 n9 t
z_____5CF3
!_____6233
@_____3A45
#_____2291' E8 b: X7 R! P: n' B4 j
$_____5D5C4 l9 ^: b* J% W# p
%_____09B91 U# A; Z/ n8 Q3 K/ s* C
^_____43EA! H5 C. S. b+ ^& N
&_____62B9
*_____6301
(_____4659
)_____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 分享给朋友]