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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm, J2 y0 B8 u3 ~( a
原始出处：http://www.3ast.com.cm( o' h3 l4 v! O# y" v5 q; `
* G2 J. e7 a0 T& f6 Y1 c" ]
看不懂的直接绕过
加密前为:hwy1234566 E5 O4 r9 K+ `$ @0 t
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================. B( \7 o7 S- q$ b9 ~# w
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件+ T( k& X& }, l: t
- A, Z) r& k5 \" t! I: k
文件名RSA.ASP' k0 M' Q5 k4 s2 j. T9 S
===============================================1 T, {& B1 B- X5 X9 a! q: H
<% ) I0 j7 g" d# b8 r) h
Class clsRSA # p( i/ ^7 }- n4 {- _
Public PrivateKey
Public PublicKey % \$ u2 X: a+ {# p7 R0 b
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next : z, A3 O; P5 `. {" t
Dim lLngMod 0 a$ g- x& M' u# G- k6 B4 f! f: G
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus , ?! G1 ~. I: v2 n
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function $ }, c& `+ ~$ F; v( o
Next 2 L3 l' S6 J5 u. R! C1 T8 z
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ) m1 ?1 E- v' _2 {6 |
Next 9 g# K* Q) B3 M( O+ H
End If 3 l2 i  T2 Q, f7 R4 r4 m  j
Crypt = lLngResult
End Function+ S! ]- D, @" T6 {' n% P" X

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 0 V$ h# R; {1 g  _( z0 U+ i4 ?. Q( u
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 5 |! C! p. b; ~; t0 t" \1 \
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) : b& B3 z7 T2 K! l
lLngEncrypted = Crypt(lBytAscii, PublicKey) * U/ j* ]7 j) l3 n6 c
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 2 s% Y: V8 V+ Y; ]: J& M  t/ i1 t
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 : `& j' e) j8 R$ ^+ p! z( Q# o
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) - J, C) W0 G# u5 F) K; _
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 6 p5 e. E4 L: I5 K" {+ x& Y0 E
Decode = Decode & Chr(lBytAscii)
Next
End Function , c8 h* s% Q3 ^* m% V7 h
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 8 y- w+ N$ t+ \5 L
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ! @% E: I2 m. M3 m0 |* w0 m, ~
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) * I4 h4 n% w9 S. O. P5 g
End Function
End Class 6 P+ c2 ]1 f: Q- r! o5 o" ?
function Encryptstr(Message) 6 e" }& H( x1 i7 E5 c) m3 \
Dim LngKeyE 9 E, t% r8 N% T
Dim LngKeyD
Dim LngKeyN 8 C6 Z8 N0 B& E
Dim StrMessage
Dim ObjRSA   g5 n' E; k# h
LngKeyE = "32823" / r! s' |4 T9 K! X/ b( \
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 8 D' f- E1 N/ t' G1 f
Set ObjRSA = New clsRSA " S' K9 ^% k2 k6 j. k1 A! K% S2 R
ObjRSA.PublicKey = LngKeyE : e: E) N4 v2 g
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function5 e/ X; B. D/ h% `* l. d7 C& P  c* k
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 2 w, p% v) I5 L! D% G0 `
Dim StrMessage ! t- S- w" W5 S7 E. S$ `- h% U
Dim ObjRSA
LngKeyE = "32823" ( a/ U2 j& Q% _* I' \$ e
LngKeyD = "20643" ) h. _9 ~  X7 U0 \
LngKeyN = "29893" . }- U, f8 o5 p
StrMessage = Message 4 D' X8 F7 m& V$ S
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 5 u4 a% L& Z! w% p
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ' `/ P# P& z) c/ J; o
end function
%>
===============================================- F; j0 p- J; f* a! e

还有一个用于测试这段代码的test.asp/ A' N( t2 D+ k  `- ~9 ~
有兴趣的自己搭建个IIS测试下

<%+ H# J1 E6 v9 ]( {8 D  \
function Encryptstr(Message) 6 c+ B3 U1 s; N/ j; u
Dim LngKeyE
Dim LngKeyD ) l; u: U" b- E/ Y
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ; e. p3 O- v  o* w  i$ p7 b
LngKeyD = "20643" ' L) k/ C0 p5 D& @5 c# ]
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 5 R, @9 q+ F2 F& K3 ^2 D( y
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 8 a# t$ h. o5 Q6 d. s, v9 P
Dim StrMessage 9 o) W. J& Z# S7 N" H
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ' t/ {6 {4 F$ ^% ~* U
LngKeyN = "29893" 1 L; @8 A5 F  k- f4 J) \! L
StrMessage = Message % }( u" m# j% r; Q4 x
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ( z- m+ I" V* x1 y7 R* H
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . x8 ~' q6 S2 Y: U4 F* j1 B
Set ObjRSA = Nothing # t/ m1 `  |8 [" N0 `1 C$ w/ k5 L# V
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first & H+ U3 _: p# w3 f8 J
last=Encryptstr(first) 9 Y2 ], [0 P; Z, X
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 8 V# ^4 @6 m' H- q% k
%> ==============================================; a3 a- l6 H" F' [
剩下的就是字符的对照表了
===================字符集================: g  }& c: g8 \7 K
1_____6EBB+ {3 A' F0 |5 v& a
2_____5C1F1 O' y9 H; r3 q1 ~: ?9 R" p* [
3_____4D75
4_____26CC+ q$ q1 u* ?4 T# @- p$ U7 x+ k
5_____4F88
6_____3F4E
7_____0A9D1 p: q: @5 h$ V0 I
8_____1A1C
9_____6D20  n/ w, l; L3 [5 p" C
0_____1089
a_____0F3E4 N; d0 u- W5 s' s
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F/ a, K5 Y. N; W( @
g_____2B7F
h_____0F9C5 R- s7 _% K- ?6 Y% B
i_____00FA
j_____5A50, q6 Y3 C! [1 {% }# J8 I1 |( E
k_____2850
l_____3E7B3 d3 ?- P& b" c
m_____71C5' T3 m0 {7 N# P$ v' ]9 X/ n& C
n_____1FC8
o_____74C1
p_____5FB8  V+ H2 w- W1 K$ @- l- R$ C
q_____60859 L9 c. O$ G* ]% G: D4 A& Q
r_____3AC4
s_____2F50+ L  O8 l! q( B5 T/ ~
t_____36F8
u_____7010# L6 h( o5 |: [$ M
v_____0B42: k/ v4 a# n2 H1 ~' A1 U
w_____1C7A& K; r9 d' n4 _/ x1 k
x_____16F8& J2 b$ I0 x  |% J+ Z) s
y_____2EE7
z_____5CF3) ~, ?$ W8 k4 k6 y
!_____6233/ l1 P. @) g6 X6 o( Q( u+ V+ A
@_____3A45
#_____2291+ x" z7 F+ E4 w$ b3 K, J
$_____5D5C
%_____09B9+ Q% E- X2 N4 ?: t
^_____43EA/ o+ k9 Q3 ^( a# b. e8 Y
&_____62B9
*_____6301
(_____4659/ j* L( H2 \4 N4 d  ?
)_____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 分享给朋友]