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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm/ I9 L: Z- d+ L# @) z
原始出处：http://www.3ast.com.cm+ e- M: D3 u7 \% d9 v6 l

看不懂的直接绕过& e) s# |' |! S& F+ @7 H3 W6 e
加密前为:hwy123456. A/ ?1 d' \8 Z9 s) m
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E" G9 z- J/ I7 c. J  I! Y

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家$ q/ _, M% f8 N! W0 w1 C8 f
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法6 [3 A! i0 v/ R1 Q3 B% b
以下是RSA算法文件2 s1 H% ?  A/ B7 @5 K
  L1 J( G5 x/ H- i. o8 i- @" G
文件名RSA.ASP
===============================================/ C! q7 p/ L" T8 f2 ^
<%
Class clsRSA
Public PrivateKey / c! z: ]8 [  j8 y: K
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 8 j$ w! J# C4 ~+ a* }- O/ f
Dim lLngMod
Dim lLngResult
Dim lLngIndex # J% E2 z# d, H; J
If pLngKey Mod 2 = 0 Then & h. V; [% i+ H" W
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 $ ^9 F, R+ a$ \' d1 V
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation * r" ]1 B  u6 x4 T7 N( p
lLngResult = (lLngMod * lLngResult) Mod Modulus ' C: O1 m- {" O- t0 h2 ~% {# T
If Err Then Exit Function $ v3 e2 ~9 r! U2 W/ s4 ]4 T' I
Next
Else
lLngResult = pLngMessage - E8 F/ @: o& |! S
For lLngIndex = 1 To pLngKey / 2 / {9 k) G4 a5 d2 n! c
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 E' k' W  c) W* @0 y+ q) l& U
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus + o" V. Q- a; m
If Err Then Exit Function
Next
End If 4 K" G5 e, R8 V: O( m+ Q( [
Crypt = lLngResult
End Function
4 E- }+ K1 s8 j/ O) f
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex : e+ @$ ]/ [* A3 c' c9 i- |* k
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted ! w6 p- d  |: h
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ) w% u8 f1 `$ f: c1 A
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) ) m4 {3 h5 S& C( m8 [" v
Next 0 {4 G' ?. h9 @
End Function
Public Function Decode(ByVal pStrMessage) 2 o' ^, @7 B: J" q4 X- j6 t8 J" s
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) . C& W2 Z  |$ B: J+ N4 V) e4 S
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 1 u  o+ E9 Z  ~1 L; p; \
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 3 ]6 P& N1 R9 V2 D# d- O( G
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) - r/ ?* M' R/ I4 C2 P9 z
End Function
Private Function HexToNumber(ByRef pStrHex) 9 p' X& _" L% G" x8 d$ }
HexToNumber = CLng("&h" & pStrHex) 8 `4 k+ }! }  Q" N
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE : |* i6 ~$ @/ ~4 b, T
Dim LngKeyD
Dim LngKeyN / p, P4 v& ~4 _: Q: e
Dim StrMessage ! O/ U5 V- k( }1 m5 A9 F, U; l
Dim ObjRSA
LngKeyE = "32823" 1 |- B& a* z; L2 [
LngKeyD = "20643"
LngKeyN = "29893" & d9 d0 t! I% [- h
StrMessage = Message 3 f8 D! P4 E: H, H7 ?! U
Set ObjRSA = New clsRSA - g* U8 H; t% r4 @5 [; t
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN : K. Q) z$ \7 T, Y
Encryptstr = ObjRSA.Encode(StrMessage) 3 ]3 Q' K" g7 ?3 V% h/ \+ {
Set ObjRSA = Nothing " ?  P, f( s; L4 z' B8 |: K# y, w
end function
Function Decryptstr(Message)
Dim LngKeyE - K6 ^% l. @; Y
Dim LngKeyD
Dim LngKeyN / A" _5 X* b2 X% v" O9 W8 y7 W
Dim StrMessage " _/ K7 o/ B; K4 y; |
Dim ObjRSA ) ~+ [! Q( F$ `( o$ o: ?" D: [
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD + F$ I8 z9 z9 H) p
ObjRSA.Modulus=LngKeyN / i! w1 U6 k; t2 R8 ^
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing % T+ ~0 B. S/ ^2 M0 A, \; v
end function : {% S. E3 K7 ?2 e
%>
===============================================
# J* n* \, B' ^
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下7 G: I9 }" u* e6 }9 c  Q

<%; p/ P" U# S4 ~" k6 s
function Encryptstr(Message) . u+ b1 _, @( R" i" Y5 T' |
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 0 {! ]; Z# Y& H& c
LngKeyE = "32823" : N# z+ ~* p/ c! [! O7 `4 d
LngKeyD = "20643" & g- W, k4 c# A. k
LngKeyN = "29893" * z. T, N! t4 f( p
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 6 ~' J) D6 e0 d, p2 P5 n/ V
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 8 T+ V9 N: _) b/ X$ g: ]7 p' e% n+ c
Set ObjRSA = Nothing
end function & L) P  U) X* H
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 2 E  u; \4 R- _. ?1 Y' b' g
Dim ObjRSA
LngKeyE = "32823" $ ]6 y, b) x# d
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA # x9 z! ?( W6 `" @- t( ?
ObjRSA.PrivateKey =LngKeyD 2 u# M% ~1 R. n) u
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ) x! G( u5 Z1 z5 e% ?! b
Set ObjRSA = Nothing
end function : P9 N! Z0 T2 m4 ?( x! e
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first 1 J: K% ^2 K( T- B
last=Encryptstr(first) & T. c% p' B4 O' M
Response.Write "加密后为"&last % K2 @  B% [5 Z$ T
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了& U2 e7 t. A& }* M
===================字符集================
1_____6EBB5 ?( W: y9 M3 }
2_____5C1F; K; [8 \+ h+ W. _1 s* m0 D+ Q
3_____4D754 {$ D0 n# W/ }9 }% S+ k+ Q
4_____26CC
5_____4F88/ l. U) J4 `" S2 y9 n- O! o6 ]9 l- P( G
6_____3F4E& z, X! j) f) V* g
7_____0A9D% _1 L( G3 [/ F8 u0 ?. P: T
8_____1A1C) r6 n/ b, F( R8 Z  B2 p2 L% R
9_____6D20% n0 H' F" \# {: _
0_____1089! K$ ]* x0 B, Z+ j- [  U, f6 T
a_____0F3E# m/ t$ g$ j4 q/ l) M' Z% F
b_____31591 M4 m. Y' h+ ^2 d- Q! V9 I
c_____35171 X+ ^# b, L7 H$ c3 A
d_____419C: D/ B1 X% Y9 i6 R; k+ i6 I3 }, L9 N
e_____615C3 q* U( |8 X0 Z
f_____556F- S5 V7 u: r' z2 b. m1 G4 y' R
g_____2B7F
h_____0F9C
i_____00FA
j_____5A502 w4 G/ v4 D" j3 C
k_____2850
l_____3E7B) M4 n% \" j; B$ }8 ^
m_____71C57 Z% l* C1 d4 d
n_____1FC8
o_____74C1
p_____5FB8
q_____60858 o2 Y+ {4 Z% j
r_____3AC4! |: Z0 [/ d* o# V
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45& S* A. x% Y$ K- p. N7 n; h
#_____2291
$_____5D5C
%_____09B9' r- w1 g2 Q8 Q/ \6 h
^_____43EA
&_____62B91 V: I2 m2 [2 E4 `% }5 a8 W( H
*_____6301
(_____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 分享给朋友]