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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm- V% _; j7 N9 G+ z# c+ n
原始出处：http://www.3ast.com.cm0 Y+ l1 O; M8 G7 N6 M2 l

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
5 X; X5 n- B0 z# z, J
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家! _, x+ A8 w8 c( c$ R( m; u% w1 v4 E
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件3 r; j. U& L4 S7 H

文件名RSA.ASP- h7 B- m. ^# F; }$ j( z2 W
===============================================
<%
Class clsRSA
Public PrivateKey * \) a3 ^1 V/ l: q1 q' F
Public PublicKey . O  k% \1 M, D! n2 X- ^
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 8 A" a/ Y1 X9 d6 C# \1 T8 }9 W  f. j
On Error Resume Next
Dim lLngMod 2 l  V- d- o' N1 v1 q! }; H& g
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 - B' R- F9 _& L4 a
For lLngIndex = 1 To pLngKey / 2 ; x) ~8 k, C* G; ]* d( @
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 D3 t  @$ G# |, s* [5 Z
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus % l# M& r. O6 h6 F3 _% _$ d  B: ^
If Err Then Exit Function ! {" _$ ?& y" r+ i: t0 o. u0 l
Next 0 G9 e, K. m; x
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 ( M6 x$ I8 z, N+ {& J; Z
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 T/ K. j2 o" \( ^1 `& U' A; l
On Error Resume Next 0 k7 U2 G! m5 i8 y8 q( a
' Mod may error on key generation # N! v, D2 @' i0 H
lLngResult = (lLngMod * lLngResult) Mod Modulus ' k2 ^& ^' D  i; N
If Err Then Exit Function
Next % _. a( t# D: v; _, j9 Q
End If - p& ^8 b" b5 I" p4 r( Y6 v
Crypt = lLngResult - f5 k7 P% F/ G0 K9 e- F
End Function8 k- @8 z& M! f( @. e! S

Public Function Encode(ByVal pStrMessage) 5 h! W2 z9 O4 V: l8 I5 I0 ~
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii # z! K+ s  J$ V% h3 H
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ' ]1 S% @7 t& y4 ~/ I
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)   U) P. f6 N4 _( ]2 n7 e
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function ) X; ?" M( p# k/ {0 ?6 z; e; P
Public Function Decode(ByVal pStrMessage) ( m8 A% q* y1 J( k  _2 d! u4 U
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 7 O( b' N1 ~9 m2 U8 o4 I! z0 x5 t
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 0 y. y9 T& h( ^& }; E2 j
Next - ~& m/ Z5 k! d/ V8 K
End Function . j2 N- n$ ?5 Y! @+ u) `
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) - g5 m; U& A8 a+ S
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 6 ~2 P6 O1 s% Y7 V" I! n9 _; a* V
End Function % @* o, w/ P, F7 l, J4 z" j
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) % T, e8 A7 B) H' K# v
End Function % g* s" y6 g2 w$ ~$ A+ C
End Class
function Encryptstr(Message) 4 C) p% p+ s4 T2 y5 F1 a. \8 o
Dim LngKeyE & Y- F6 W! z" B7 P& b! b
Dim LngKeyD ( L0 n* N4 d: Y% @4 p! K, M
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 9 O6 A% D; N1 k+ [3 \
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ; d9 E3 _0 q( A3 B; l5 |$ g3 w
Set ObjRSA = Nothing
end function) ^7 a( ^9 _: M& ?2 F
Function Decryptstr(Message)
Dim LngKeyE ) f  n! ~: C1 [* C
Dim LngKeyD
Dim LngKeyN
Dim StrMessage . }7 s' Z; u  w
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" % R7 l- v1 q' f1 ^# y: K6 u
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD : @. |! B, @4 L
ObjRSA.Modulus=LngKeyN / C! _( p" r3 n* C
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function " Q5 ~# r8 d5 |% _+ V$ `
%>8 ~0 ?# X: A9 n+ ^! t
===============================================
6 L: b* Y2 p6 r+ f; S& w& M, X
还有一个用于测试这段代码的test.asp2 b: g7 B  i: k2 }
有兴趣的自己搭建个IIS测试下7 z+ e' j& I+ t1 _
 - z# v6 l6 e+ r9 `* R* W
<%: U& L4 h' z4 I& n4 p7 x
function Encryptstr(Message)
Dim LngKeyE . L. P1 _* x- ^. l
Dim LngKeyD
Dim LngKeyN / }+ T; G- W7 g6 L( _0 _
Dim StrMessage # Z" @: k7 }$ |7 ]
Dim ObjRSA : N( E/ u0 W# j
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ! o, Q9 G6 ]; p; T3 v
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ) y& v) Z, D$ v2 Q7 N
Set ObjRSA = Nothing " Y3 E' }: u  Z5 [1 F
end function
function decryptstr(Message) , X1 C% J) G2 F* h: \9 b
Dim LngKeyE " A& e, _2 r' w/ y/ M
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 0 O- k$ C& A: y% n6 r/ g
LngKeyD = "20643"
LngKeyN = "29893" ; Y. |5 U9 F$ E, }! J4 ]! w
StrMessage = Message ; Y9 e2 [" M6 w1 \! s+ e0 S! |
Set ObjRSA = New clsRSA 4 q9 `- @% |$ V- p6 ^) L
ObjRSA.PrivateKey =LngKeyD 8 R" l; D/ H7 ?5 p8 f# f
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first % Z1 R+ F$ Y, h; s# M  B' g
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last # E0 u' S7 ^4 ~+ y. K% e* m
Response.Write "解密后为" &decryptstr(last)
%> ==============================================! L3 Z5 H. i0 K; |: g/ K
剩下的就是字符的对照表了
===================字符集================2 N* x, P$ ~& J2 Z
1_____6EBB% y5 T2 J" E3 w; `  I; v- ?
2_____5C1F
3_____4D75" b2 Z' [& F) F( N
4_____26CC
5_____4F88" b& H/ ?4 Q3 N- e8 D: ^, X$ I
6_____3F4E, O" G) i* `. [) p0 y7 i$ X+ A( d
7_____0A9D& S0 d$ J0 s8 B, @
8_____1A1C
9_____6D203 t, z6 \% i3 Y% u* w
0_____1089! P; E$ ~2 I# E+ q, k7 w
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C9 H" P9 D& \# I  h% k, u) P
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____28507 |; D: y! J- ]5 z! M5 _
l_____3E7B' A$ p- b0 u0 I1 f* K, j" r
m_____71C5
n_____1FC85 G6 j' F; c" \1 H% @$ B
o_____74C1
p_____5FB8
q_____6085+ J4 h3 d- p  R) D) q4 s1 I
r_____3AC4
s_____2F50# I& I1 ?2 B- T
t_____36F8
u_____70102 a5 u; Y' Q8 r: {) e
v_____0B42
w_____1C7A  K9 Y, ?0 B- V2 @8 {  J
x_____16F8  F7 R7 |, [! r; ]- F. ?2 L
y_____2EE7- Y- U2 c# Z: M3 F5 V; W
z_____5CF3! D9 r; _; ~1 ]8 e- h) P- g
!_____6233
@_____3A454 b& [. w4 r+ `( L
#_____22912 ]4 Z( T" g6 n" L, v9 `, q4 m
$_____5D5C5 l" e& c: J& e
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____4659! B( z, ?6 o4 _4 }, k5 H5 V  L
)_____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 分享给朋友]