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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm0 l' q" x# i( s5 y0 S0 z
原始出处：http://www.3ast.com.cm; Y2 D) M9 _- L" O" f% q% ?
- f/ r; t6 m  D. N  C% n# U
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E' r: w# n; ~9 f: g2 |, u' p

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================6 L$ A! a: w! a- q4 v, S1 {( f
<% 9 F. X3 s- E: w/ ?* r
Class clsRSA
Public PrivateKey - g7 x3 R4 q) {4 C8 R
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next $ e9 P% V/ i9 @& x; s9 D# S1 }, P- `
Dim lLngMod , Z) [( q4 w% e& @1 |
Dim lLngResult
Dim lLngIndex + P4 T/ P- r2 E" c! V/ _' \, j
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 : m  c* F/ p$ E/ \5 e/ x
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 S3 k8 i2 O; Q% Q# G
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 8 t: T3 F4 D' m2 k% m0 m) e3 K
Next
Else 8 M) ~2 E8 m% J* r0 N8 [2 s' |5 W3 D* N
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2   j2 `5 s! P6 E$ f/ |/ q; e
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 1 G* A( G& y7 W/ g- D+ \+ z
' Mod may error on key generation ! C3 k% I. n/ n+ H- Z- n5 B
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function * ?1 D6 q7 H' D( K
Next 3 u. q3 x$ g7 J# {
End If $ G5 R% A) h4 ]- B' P9 g; P5 i. a
Crypt = lLngResult % U* s& p! u6 ^$ ^. t% S3 `, g
End Function
, W7 Q  ~+ Q. N
Public Function Encode(ByVal pStrMessage) # l% I* X3 X( A# O+ U2 h- b9 n. B' I
Dim lLngIndex ; Q2 o& L+ K, b% F. ?
Dim lLngMaxIndex
Dim lBytAscii 8 {* K9 M. n6 k- n0 J& t- w
Dim lLngEncrypted 4 q% Q, {' i4 F* Z, m
lLngMaxIndex = Len(pStrMessage) 9 C) d# q& f4 S) e' |) B; ~% o
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 0 F& f, A  Y2 J0 g7 b3 c! q7 d
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) , t5 Z4 m* c) d+ ]: q
Next
End Function
Public Function Decode(ByVal pStrMessage) ; H$ H% {# k! t, m) i7 y
Dim lBytAscii
Dim lLngIndex % j. m. o5 e4 x
Dim lLngMaxIndex 0 k$ E1 C# \8 b! l1 t* w0 X" h
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) $ ~; R8 r. a1 J( `
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 1 N& m" Q# ?$ C
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 9 X( n2 ~9 t- ]
Next ' _% @" v+ i' f& s$ g& q
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ' I+ n/ P8 m1 C4 g' O: n( p
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   m) I% d% P1 }% S, u( T% G7 ?
End Function , Q9 S: ?$ V/ U) M, z4 W
Private Function HexToNumber(ByRef pStrHex) ( l$ y. Q4 d$ N* P0 ]; Z0 Y
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN . d* ^& E5 J7 L# G1 l0 R  B% [4 ?
Dim StrMessage
Dim ObjRSA / O0 y& i% Z: ?& H' e
LngKeyE = "32823" $ a2 B7 Q& a: t. g+ _
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 5 e; q6 Y0 k0 Q/ d2 g& `
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 2 A- F  t  w: h9 r
Encryptstr = ObjRSA.Encode(StrMessage) 7 M& y' ]/ H5 [+ ~1 K
Set ObjRSA = Nothing
end function) _% F6 s- ]8 ~# v
Function Decryptstr(Message) & Y1 H7 _3 h- D9 w" e+ b
Dim LngKeyE 7 y  g6 z# h! G% R( d
Dim LngKeyD 6 _" g. s- f9 M9 ?1 y7 L
Dim LngKeyN # H% M5 H8 n4 C7 \( ?5 X" g9 _
Dim StrMessage ' a+ `2 ^: ?( J) g
Dim ObjRSA 2 S* W; X% ~1 y, v4 P
LngKeyE = "32823"
LngKeyD = "20643" 1 X9 w" ]2 I; l! |
LngKeyN = "29893" ' K7 h3 d+ I5 t, D! j. U! `
StrMessage = Message
Set ObjRSA = New clsRSA   s: z# C- z# n& U% L' o$ m
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 4 r# I/ r; [: c7 n
Set ObjRSA = Nothing
end function
%>0 i) X8 F+ z2 l
===============================================

还有一个用于测试这段代码的test.asp3 Q- J5 J0 \& f  ]: r  M' ]
有兴趣的自己搭建个IIS测试下
 3 {/ ^; x/ Q  o0 ?5 _3 ~! \
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 1 J+ Q  u  w2 V
Dim LngKeyN - s/ `% x6 e9 L- A+ f5 P
Dim StrMessage * `  g# `- \" k, Z1 ^2 u
Dim ObjRSA / ?; Z' R" G, [* g: [+ H- n8 E8 G
LngKeyE = "32823" 6 T' i; O6 Z4 v" [) V3 T
LngKeyD = "20643" / \3 g- g1 y& _1 z& T7 l
LngKeyN = "29893"
StrMessage = Message 4 r) \% K5 g; f+ s; n
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 0 U9 _, E. q3 D( s: c
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) : M3 I0 m/ ~3 \5 g& a0 w
Set ObjRSA = Nothing
end function 0 g% ^  g$ n+ n. {$ G8 p, `; u
function decryptstr(Message) # ~3 q! d6 y* P% Z
Dim LngKeyE
Dim LngKeyD , j0 O) ~' D# q" _! N
Dim LngKeyN
Dim StrMessage 6 z& ]5 e5 ]) k# h! k
Dim ObjRSA 2 ?  m, X( z( u) j
LngKeyE = "32823"
LngKeyD = "20643" ; V) x# D: R5 X5 m9 f' R
LngKeyN = "29893" $ r, z6 _8 S7 D4 s
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 5 ^) f" f0 I" p6 G
Set ObjRSA = Nothing 6 e, [& X6 [$ s! e# |
end function
dim last,first 3 z, a$ h. z) \- i$ `; J
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) ; |- n" f# b& m" H0 }+ I
Response.Write "加密后为"&last % J3 g6 {4 D( `) r3 E
Response.Write "解密后为" &decryptstr(last)
%> ==============================================, \6 X: R* s; N1 S* |
剩下的就是字符的对照表了
===================字符集================7 {3 `( E$ d: o8 X, \! L
1_____6EBB% L4 d2 K) P0 k4 p+ D
2_____5C1F" A5 _* r/ g, i: U/ q0 z" d2 G+ `! k
3_____4D75
4_____26CC
5_____4F88" _" e2 w8 x' T0 S1 E5 b7 {- H
6_____3F4E" n' ]) Y% J- [+ v9 y, k# S3 o! V
7_____0A9D
8_____1A1C# }, D  b: P9 J5 c8 u
9_____6D20
0_____10892 ^, u0 X# E/ h
a_____0F3E5 Z$ H# s9 {4 C7 R( r
b_____3159
c_____3517& L' ]6 n) m5 C/ I
d_____419C
e_____615C
f_____556F0 D7 u8 ]/ Y. x( k) k
g_____2B7F, [7 E9 }$ v& ^0 C* r' E! @1 G
h_____0F9C" I5 W; J8 u; S0 N/ q- ^0 [
i_____00FA
j_____5A50
k_____2850% }( q7 D& F+ V' p" b; Y
l_____3E7B$ o1 m' e) a9 a4 f2 p2 w
m_____71C5
n_____1FC87 {, [5 H: P9 F% y$ O/ k9 X
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50! V; M* L8 x: T' ^
t_____36F8
u_____7010
v_____0B42# W( H) a$ o/ i5 c5 h
w_____1C7A$ a4 }) Z# u2 L2 f" g" ?9 u5 D' l
x_____16F86 ?# A+ D! N" `$ t) b+ Y
y_____2EE7
z_____5CF3( x& R/ m' e  w; V) b5 J
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9# D6 D( i# y# }2 X
^_____43EA1 B* d$ j$ `8 a0 _6 ?
&_____62B9
*_____63012 j0 I5 t: R5 R
(_____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 分享给朋友]