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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm2 ?% I6 A* O* z+ @' S6 v
原始出处：http://www.3ast.com.cm) u5 j: I7 g% }7 A; S

看不懂的直接绕过* Y! i" }2 G8 t0 k# e, J
加密前为:hwy123456% f+ l/ O7 J8 G
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================3 P) P' ?' g: {  |
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, U- w; H# [0 R8 J9 b
以下是RSA算法文件
5 T; G5 }: }4 F3 d
文件名RSA.ASP  J  a  a  g# Y: T7 ^3 n7 K# U
===============================================: q- p- y" L* s+ l* H/ y. U
<% " E, s6 P+ r, I7 c* F3 i) ?$ n
Class clsRSA
Public PrivateKey
Public PublicKey : s9 k5 K2 X( Q/ ^" h+ x
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ; U8 R) ]. f& O2 o( W6 z2 X3 n7 l
On Error Resume Next
Dim lLngMod 3 x1 H0 n2 ]0 D6 K: k
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then : H) X) f( c: f9 q3 n
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation & o# s8 }& m! K' a  s6 a, @
lLngResult = (lLngMod * lLngResult) Mod Modulus & B% w. A4 h% P: r( S8 c
If Err Then Exit Function
Next 4 S/ x0 m( j! z  n, R
Else ' k4 o/ {( f9 d- P
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 . d: ]; S( Y2 K8 @! A( q7 G5 @
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation / }6 D9 y9 w6 y) V/ Z& z8 g
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 W0 @$ X" c9 i9 Q
If Err Then Exit Function , f9 ~, Z! ^/ K( ?: Q9 Y
Next
End If 0 a) ]: p# ~: [, r4 W& D  L4 ?6 M
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) ' ]* Z8 p. X5 Q8 U/ K" q/ ]9 q
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii / ^2 j) }( s* K0 {2 D5 o3 o! e
Dim lLngEncrypted ' o0 l5 O9 Q! \2 S
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 2 ?7 M7 \  t" I. u! \6 t- H
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) " _/ e0 C- w% S0 F- L; a2 m
Next " {  N  |6 L. }7 o
End Function 2 b) m6 j7 B* e% X5 v
Public Function Decode(ByVal pStrMessage) 0 X$ X* t# M' h- j
Dim lBytAscii 3 X- }8 G: m% f0 U8 g3 n
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) - q9 z" X! ?0 h2 X
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) : G% w3 B5 X  S3 v" z/ C! V/ \: d
Next
End Function 0 j3 Z6 _; @, V6 |3 K
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ; m. F7 T  l2 j4 d' }! H+ _
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 2 N& a  Q- H6 g4 s- P
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE + A- y0 H6 d) ~; W8 g& ^
Dim LngKeyD 2 g# R$ \+ v! A' e! i3 F
Dim LngKeyN ! W# v6 I, }5 p# h: G4 ], H# c
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" & ?+ k! x! Q/ m# ^/ P+ A
LngKeyD = "20643"   d' L, O1 o+ w* ^; ~
LngKeyN = "29893"
StrMessage = Message 0 }- N# x) s7 g8 v, g( Y; J
Set ObjRSA = New clsRSA ( r, Y/ [0 a, i# ]. `1 q
ObjRSA.PublicKey = LngKeyE ; W4 w; |1 o3 {7 \! w
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 0 G1 o  h/ m3 N' U0 T
end function) m7 k0 T- ?) M9 Q' A
Function Decryptstr(Message) # `+ N* g3 F3 i  }9 x
Dim LngKeyE
Dim LngKeyD # K& Y- v& c& J, ?7 [5 A4 t
Dim LngKeyN
Dim StrMessage 7 }' T, p) Q) x- f, J# C* t
Dim ObjRSA 4 Z# F' L; Z; G( G
LngKeyE = "32823" 9 m9 \! O0 }, n8 e
LngKeyD = "20643" ) Z" T8 ~( B5 I& K: y+ u
LngKeyN = "29893"
StrMessage = Message 8 p# |$ g2 _2 ^( c2 S( ^+ U
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD   e0 m8 _7 G0 [2 o" ~
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 9 C% `& {/ \, A7 {+ @
Set ObjRSA = Nothing ! }! y1 P% U1 }4 A4 z+ @# K: h
end function & f; }; g) h( g, M) @7 n) X
%>
===============================================3 f$ F* r6 ]3 l7 n; }
& j2 Y: }8 B( {  ^
还有一个用于测试这段代码的test.asp6 n' c4 M1 N: ^4 I9 m
有兴趣的自己搭建个IIS测试下7 C) ?& z/ l$ p# M" M1 S! k# @$ i

<%: M) P: w1 w8 n: ?7 [" z
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 5 v+ T$ Q$ \! }; n. S8 J+ V. e
Dim StrMessage - h: d/ q0 [0 Q3 U6 z9 ?9 F
Dim ObjRSA
LngKeyE = "32823" 2 a0 t& U& q6 c2 N' J" p& w
LngKeyD = "20643"
LngKeyN = "29893" ' d' ~+ R) r+ \3 [# ^6 l2 D
StrMessage = Message ) L+ r9 b/ q( M& ]% _
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE . j( [; [3 Z/ h5 {
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 3 Q9 i1 L& i- ^% R' p, }- U1 k- @
function decryptstr(Message)
Dim LngKeyE ( y/ s5 w2 ]3 J4 Y6 C) z; |5 G
Dim LngKeyD % p& U) t; i- j* q
Dim LngKeyN
Dim StrMessage 1 Y2 q: u9 B% g+ t8 _/ i
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" / a3 L0 V. D2 D" l
LngKeyN = "29893" / Y- N! U/ \* w8 v+ {$ t+ @  G
StrMessage = Message ' I8 z- J& S7 T' f$ W8 l+ B0 G
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN / r" v  n- L" C9 V' y# u* y/ E) P
decryptstr=ObjRSA.Decode(StrMessage) 8 v- r: c4 j% b7 S7 E, o- a" v
Set ObjRSA = Nothing
end function , B# H: G/ p$ A$ y% S
dim last,first
first="!@#$%^&*()" 4 T- U" F( g! ^, S
Response.Write "加密前为:"&first ; `1 D9 a( ^: q! U
last=Encryptstr(first)
Response.Write "加密后为"&last 2 M! _; e* F0 \
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了' ?7 v; y2 Q" U, J5 `; ?- v
===================字符集================5 D& ]- |* W  Y6 O8 ?8 O) _
1_____6EBB: ^: {9 x* S5 k- r  E
2_____5C1F; U+ H" A- d3 O9 w3 F5 f
3_____4D75) B8 _: P1 {4 X* B7 Q
4_____26CC0 V) H" d3 ^, A7 P7 T: q
5_____4F88. @2 r, _. [, o. ^$ h- L" t
6_____3F4E, |9 `0 X, A2 K
7_____0A9D
8_____1A1C& @7 @" L% l/ |) m& z: }" o
9_____6D20
0_____10895 _( \9 V' }3 b/ l5 a1 ?" y/ c
a_____0F3E5 o( G7 y+ o+ T& v) n
b_____3159) U& S9 a6 R& o) p, ~9 t1 v
c_____3517& E  ?+ n8 {+ s0 ^' R. w1 P
d_____419C' L" m) s- P( ^/ c; @) A& R
e_____615C
f_____556F
g_____2B7F! O7 O0 A: b8 X1 H; K4 H
h_____0F9C( ~) U+ a0 B! L3 Y6 J
i_____00FA
j_____5A509 {) J& U( M5 q+ Y6 f" x7 k
k_____2850
l_____3E7B3 y- J& F8 X5 z
m_____71C5/ X  Y' c2 e/ m9 f/ W) F; q; G
n_____1FC8
o_____74C16 F; I2 w; N, e, E0 p( {' W, o
p_____5FB84 f* Q) T4 V! |" z1 P3 s/ ], d
q_____6085
r_____3AC4
s_____2F50% Y/ b( K2 p8 ~% e( o
t_____36F8
u_____7010
v_____0B427 b# s' v! h9 O
w_____1C7A8 n+ p% e- E/ o4 w4 K
x_____16F88 d7 `6 c; I% O. A
y_____2EE76 p9 {4 [  d, a) G
z_____5CF3" b7 ~8 h+ e8 \/ z
!_____62339 e" i& O8 n& n- M
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____46593 M* `  J. |+ M& ]# ?8 c) G4 E
)_____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 分享给朋友]