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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm7 J3 D5 {$ p8 t1 t* w
原始出处：http://www.3ast.com.cm. k- A' v. K$ i7 U' ~2 ?& X
4 d  h  T8 |2 e3 k; I0 J* k8 n
看不懂的直接绕过
加密前为:hwy123456, v' u! O# M* Z
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================* X( n" _6 b3 Q3 _
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法5 N+ G' s4 _" n3 w; D9 l# Q6 B7 v+ A+ P
以下是RSA算法文件8 N% h7 }8 V* ~+ f0 N- a/ W7 M( @  o

文件名RSA.ASP* L# F- B  j' o' w+ H* p$ o
===============================================
<% & X7 p2 h( i) F9 X# p
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 1 \+ V/ z# J2 c5 {
On Error Resume Next
Dim lLngMod ; J! k5 q9 j7 b& Z& R
Dim lLngResult 1 O) i3 U' E# i8 l* @: ^: e, H5 ?
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ( G  c2 \5 S  _. e" d( r
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next . l6 t: A) p; f* k1 Z
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 # U9 w( {' f! E: c/ Z. o" r
lLngMod = (pLngMessage ^ 2) Mod Modulus   u$ x; C4 F7 S1 e6 q
On Error Resume Next . p1 d, N' Z. ~0 ^9 B! S2 x' @2 t
' Mod may error on key generation - Y) s" |+ V# P/ j$ A8 r
lLngResult = (lLngMod * lLngResult) Mod Modulus # Z0 X8 s* R- Q) N: q
If Err Then Exit Function
Next , K: U" |/ g: h, ^- D4 ?: j& ]
End If   r9 x8 J! i- r2 V/ [: I* s% g- I
Crypt = lLngResult ) Y2 q! [/ k& o0 B% I3 W
End Function

Public Function Encode(ByVal pStrMessage) * D! y1 P' w4 y, U
Dim lLngIndex
Dim lLngMaxIndex # ?0 R! q$ T, O
Dim lBytAscii : L. f- x+ l( `2 w6 e
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)   t* m' x; Z4 r1 B
Encode = Encode & NumberToHex(lLngEncrypted, 4) # L  W' s" v5 Y8 a) V6 ^
Next * {  o9 h& u  N, Z( G2 q
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 8 d" v6 R) C* k. F! l, _; Y$ U
Decode = "" ' p* V4 [' ?$ T  A) i
lLngMaxIndex = Len(pStrMessage) 1 g& v! a1 v# m  j; F
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 2 O- ?* G  N* O7 b( y1 x1 C. \
Next 3 I& D7 Z! K' l* Z  g
End Function % R  t3 b* i( u- E+ ], y5 D
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 0 F  u1 b" H0 W1 E
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class ( n" @( P! B' y* K' j9 S
function Encryptstr(Message)
Dim LngKeyE : s) y/ q) h; F% |4 k& \
Dim LngKeyD
Dim LngKeyN 7 ^6 P$ X2 L6 T8 u
Dim StrMessage
Dim ObjRSA   O* S, E( j, ?2 [0 H5 a
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message : I4 ^$ k& I% k0 ~$ n
Set ObjRSA = New clsRSA ; [2 E" ^" \& l5 p' x& F
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN , [/ I* h  x2 S1 ^
Encryptstr = ObjRSA.Encode(StrMessage) ) j8 f/ @2 W7 m( C( k+ {: _8 ^
Set ObjRSA = Nothing 8 M1 k! C+ d$ I( n  K
end function
Function Decryptstr(Message)
Dim LngKeyE 5 Q+ R7 {( p, E+ H+ G. i% G
Dim LngKeyD ' W- B" h9 }- F  Z! t
Dim LngKeyN
Dim StrMessage
Dim ObjRSA $ i6 h- |% n# M& j
LngKeyE = "32823"
LngKeyD = "20643" + W- m! }; h4 V$ B: ~8 v
LngKeyN = "29893" 4 C, J0 E9 R" f5 v
StrMessage = Message 8 c/ B0 {% y3 I6 g4 K
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 4 t! F3 J) _9 D* i0 B4 f& `
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================3 U, Z- `9 l$ e6 X; [+ b

还有一个用于测试这段代码的test.asp& b2 u, n# A: j# Z1 T9 Y2 ?
有兴趣的自己搭建个IIS测试下: S3 ^9 q2 q# Z# z' I" R
 % S/ g% k7 K5 I- @
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD + I; D8 b3 g" T# C
Dim LngKeyN % R5 H+ E: X& Z; f4 y' j( f) I
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" $ m0 d1 J& j- K/ Z4 V
StrMessage = Message
Set ObjRSA = New clsRSA . B: e' K; X/ V8 p/ f: H
ObjRSA.PublicKey = LngKeyE ) Y5 f" X6 k% u, L3 g
ObjRSA.Modulus = LngKeyN 3 g& L( f' H: H! p
Encryptstr = ObjRSA.Encode(StrMessage) 3 p2 ]! F; V% F5 ^% L
Set ObjRSA = Nothing 8 `( Z! S# T! X7 e# z
end function & |6 i/ X! \2 c1 C1 e* c, A0 R
function decryptstr(Message)
Dim LngKeyE 7 S' c2 L, s( v- a3 G
Dim LngKeyD : Z4 C: j; a: P! I
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 9 t6 d4 X, y* j; l7 w( ]9 F6 n. g
LngKeyE = "32823" $ t9 b! t$ o7 e( E" n2 q% A
LngKeyD = "20643" # \' _8 ~4 y  ]9 O+ r4 R
LngKeyN = "29893"
StrMessage = Message 6 v6 n7 U1 B7 y, c# {
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD / u% v* p' X3 R; V$ {  c. e9 l
ObjRSA.Modulus=LngKeyN $ V7 b( {, y2 @  f; E9 L
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ) M9 `- D* c- K. \8 P! S
end function 4 z2 z, h% [. g7 J( D: l- M
dim last,first
first="!@#$%^&*()" ) [4 n1 n! F& v
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last / F8 Y* C1 J' S' L3 z1 a  N* M0 r: R
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了8 d7 y+ L7 U$ s6 X
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E: u7 r3 f' _6 Y( H, h# `5 T6 C
7_____0A9D  m  K* N" s, x3 K2 g- W  A& \0 E
8_____1A1C+ {7 X  ]# J$ a/ A7 e6 W
9_____6D20
0_____1089
a_____0F3E$ O9 u2 {. y, h# c. G
b_____3159
c_____3517
d_____419C: \: T1 ^- S+ _. Z
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A503 q/ N+ U7 E7 J
k_____2850; G" t) \  b# n4 ^6 Y0 F
l_____3E7B
m_____71C5+ p- C  I/ P! B: T( d
n_____1FC86 G# l+ l) N1 j6 y0 B# ^
o_____74C11 H- g0 W& A* o* \) p5 e
p_____5FB8  }, A* Z- A0 F# S8 t
q_____60857 b9 w- K8 l- w+ s7 }
r_____3AC41 v  {0 C4 K. C5 y. ^
s_____2F50
t_____36F80 z( N. S& F% m; z1 F2 f
u_____7010
v_____0B422 {- l- s6 {# c
w_____1C7A+ x* d5 m% J% U* J! m
x_____16F87 [; p# }0 N9 Y  s4 Y0 H/ D
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA5 T7 C, K) l) y4 S5 z# K( k. _+ X2 k
&_____62B92 ^4 t. e) X. d- a0 K: ?2 E0 `
*_____63017 T+ m/ v% F- T0 j% a; n
(_____4659/ |  {0 ~- p' @$ D3 i
)_____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 分享给朋友]