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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm- I9 |# R9 O! j" T( z/ X7 k' R
原始出处：http://www.3ast.com.cm5 j, @5 b+ m+ Q* z' s

看不懂的直接绕过/ m6 w- J5 s- @) D0 o
加密前为:hwy1234564 r7 O) s/ H- v4 O
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家. c! A4 ]1 l8 g) X( _- Y
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================" l! S( {0 j5 F5 j
<%
Class clsRSA
Public PrivateKey 7 C9 M& g* E( s/ V
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) / j4 h5 o, c9 v. X, v
On Error Resume Next % p* ?$ G8 m0 S0 ?/ F( a
Dim lLngMod 7 G- }" Z6 V8 W$ T( p! M
Dim lLngResult
Dim lLngIndex   {' i6 k4 p; R* ~; Q
If pLngKey Mod 2 = 0 Then
lLngResult = 1 . Q' @! K7 c3 D9 K% I
For lLngIndex = 1 To pLngKey / 2 4 Z: p" M& m& p$ X
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 f) d8 `( p3 C! e0 I1 Y1 Z1 T
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else 8 N# o1 B* S6 n2 \
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus , n2 W5 P$ H; O  d! ]
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult # E2 X. k/ E. U- d0 M
End Function
: R  D1 T7 m+ v
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex # Z' g& m% w3 e5 k; \) t8 w* I
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) & x) z1 I) M* V7 G& m; f2 G; W
Dim lBytAscii % b, ~, W% Q3 r; h0 a, ^4 u: N
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 5 Q+ {$ C" [# x" t; q! L: u; |
lLngMaxIndex = Len(pStrMessage) & D) a! Z6 K1 R. {) c. }/ V
For lLngIndex = 1 To lLngMaxIndex Step 4 ! z+ b# M0 c: C6 o7 [9 j" g, C0 t
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) " O& M, g8 Z0 ?' y; W2 `
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function 6 h! ^/ R+ T+ P- X, ^* B; S. c
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 2 K- ~- Q$ N1 M8 i6 I0 z/ x; l
HexToNumber = CLng("&h" & pStrHex) / J* c1 y- D% u+ E
End Function 3 W( q# T4 K9 @8 R! }1 S
End Class
function Encryptstr(Message) , p, E7 ?0 c! k  b+ A% d+ C
Dim LngKeyE 9 ]/ [8 r, ?% ?) H' g0 Y: A
Dim LngKeyD % b7 p3 t7 W- d! n2 X' c/ A+ i
Dim LngKeyN * V- {8 c( r* I) z& H
Dim StrMessage
Dim ObjRSA   v# ^0 ]9 \1 p
LngKeyE = "32823"
LngKeyD = "20643" " V( J8 j: v7 u) m/ T: r+ H
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA . p1 ?, m/ I+ w/ R
ObjRSA.PublicKey = LngKeyE 0 z( ~! n2 V# h5 W
ObjRSA.Modulus = LngKeyN 0 E1 K4 |& j; W8 X# n
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 4 s' T4 f. n( H- d" m1 O  Z& C7 Q
Dim LngKeyE $ G8 g2 A0 B$ X! _
Dim LngKeyD 0 U4 Y$ m7 E, ^# ~
Dim LngKeyN
Dim StrMessage + m9 t4 n* f6 f/ u) N4 z" X
Dim ObjRSA
LngKeyE = "32823" ; f5 y: e) I$ A- G* ^. i
LngKeyD = "20643" 7 _! K, N' J. A  i0 n
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 3 p- S/ v2 K  r* j3 w; C% E8 t4 U
Set ObjRSA = Nothing
end function
%>
===============================================) X4 Y& K% y3 n
4 b$ n, @- R0 s- m- N) D2 P" k
还有一个用于测试这段代码的test.asp- v2 l8 P$ q4 j3 k8 |7 B6 V
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD ' H- N$ _& ]* _8 a8 i; [! F  @
Dim LngKeyN 9 _- ^0 p9 R6 L5 K5 E$ w
Dim StrMessage " `8 W" p( I/ b7 o6 K0 x$ \
Dim ObjRSA
LngKeyE = "32823" 7 a$ y; a  Y, L' @8 T& R/ c3 F4 o. y
LngKeyD = "20643"
LngKeyN = "29893" 7 h2 g% F0 J; n- V1 f" j; P# I- o
StrMessage = Message ( {0 J7 w3 f6 P. w! B
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE $ t; s1 w7 Q8 f* o. ^9 G7 V9 T
ObjRSA.Modulus = LngKeyN / s% K% u: p' ]  X
Encryptstr = ObjRSA.Encode(StrMessage) , N9 {/ z) H" D/ U2 D, }; D
Set ObjRSA = Nothing # {, _2 }/ G- g5 }4 W6 h6 L5 s
end function
function decryptstr(Message)
Dim LngKeyE & x" t2 v: Z$ a
Dim LngKeyD + ~2 C! H6 r# Z) I, x
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 0 u' z' J; V' ]4 s
LngKeyE = "32823" " h# G, l  A7 i$ S7 I9 i
LngKeyD = "20643" % q& c8 V* d4 Q9 H4 P0 D
LngKeyN = "29893" % ]9 P7 O+ \& P# P" x
StrMessage = Message + q/ N. v6 n/ J4 }3 I
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 6 M. i* @# U4 {0 k
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function - t# ?, z: e4 i% Y8 p
dim last,first $ R' R/ A: b  h; B
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last . B% ]7 F6 W- Y
Response.Write "解密后为" &decryptstr(last)
%> ==============================================  n; M2 v5 v! |$ g
剩下的就是字符的对照表了& c! l( u/ x$ b! {7 H
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75/ l% ]5 C+ u  U9 K( G# s9 Z
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D) \5 P( C8 n% q
8_____1A1C( J2 q+ c' v* E$ ]. w2 {) {
9_____6D20
0_____1089
a_____0F3E- c3 T+ t; E$ w$ D9 }- e, p( ~7 f
b_____3159
c_____3517: |# T+ }0 o5 z/ w' A( B
d_____419C6 X  ?$ _1 T) ~  P: J" m/ _3 n
e_____615C3 k  I# R# x, f6 R1 r
f_____556F
g_____2B7F8 |2 |3 n) |9 f" i
h_____0F9C% Y8 {2 V" ~- y, q+ o9 s# ?
i_____00FA
j_____5A50) v8 {5 v* o4 q+ ~8 g( O
k_____2850
l_____3E7B7 `; H2 [4 I' Z( k& b1 ~
m_____71C5" U! r) t. g0 @. t7 c  k; ]. [7 V5 f
n_____1FC8% }2 f4 {* h- `4 u$ _
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B421 J7 i. H+ `, c+ P
w_____1C7A4 Y: s( N* v" {: s* h- T. L
x_____16F8  J& S& N: Z3 B, \$ a% s
y_____2EE73 N% ?" Y1 s5 t4 T
z_____5CF3
!_____62339 s7 A9 v% A1 _9 y  i1 N2 s4 B
@_____3A45
#_____2291
$_____5D5C
%_____09B95 e: r3 V. o  D
^_____43EA! F+ t; m6 s; h
&_____62B99 a# l* q* v' d; K+ ]$ j
*_____6301
(_____4659- F: v5 _0 C1 }  g+ C2 J* g) K) w
)_____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 分享给朋友]