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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm9 r2 `8 c- [. S
原始出处：http://www.3ast.com.cm' O* r: v  A( V% l/ C

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================) u8 i. [5 N7 ^! X4 C2 S. C9 v' I
上面是当时自己校内的心情。现在已经解破出来了，分享给大家- m$ Z% p" C* |' p
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法  _0 O- h" U! F- `
以下是RSA算法文件% b$ y9 ]- A; l0 V
4 I' T+ Q3 Y: R" G
文件名RSA.ASP
===============================================
<% - }! M2 |. N/ ^8 B( l
Class clsRSA 3 |# c0 U! K, m0 R
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) % D: f, F' f: m+ D
On Error Resume Next 8 r- t( o# ~/ p3 I+ I
Dim lLngMod / c2 Q  T0 ~! }" `( w% \2 z
Dim lLngResult
Dim lLngIndex + C' T: i7 i8 w
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 7 v: G9 P) O; P8 c  X. X1 T
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ' }  |2 N2 t/ N: H8 n1 P! X
Next
Else # G  H5 Y- |, M* V0 L
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 9 a+ H. {8 b8 d5 B$ L( A: X
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If ! @( b: b, `/ }
Crypt = lLngResult ( J2 S# B2 W% O" ^$ ^  _* Y
End Function
6 O6 ^. w; f  u
Public Function Encode(ByVal pStrMessage) ( r6 [* U4 ~- c( M, s% M
Dim lLngIndex
Dim lLngMaxIndex 2 |5 H8 f3 w- H2 ~
Dim lBytAscii % C( E1 n$ g$ A0 z2 {/ o9 }7 W3 e
Dim lLngEncrypted 8 W* a2 B. p6 W6 Z" K2 L9 C
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ( L( T* d- r1 @& N/ O$ V5 G
For lLngIndex = 1 To lLngMaxIndex 3 \( K' S* G- @2 z5 k
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) 3 q6 [: a! A8 Y! a, i$ v5 M) B
Dim lBytAscii % J9 N; ~0 _. S: F4 h" z6 P
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 7 h* n& D. j8 B
lLngMaxIndex = Len(pStrMessage) ! X! J/ @5 v/ e+ Q9 K; T: h
For lLngIndex = 1 To lLngMaxIndex Step 4 0 z+ r( m8 o+ u$ J. ^4 i
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) # Q/ ]  P$ h' X5 L1 L
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) + [8 m" X4 V8 a7 Z; V4 d
Next
End Function 1 t1 d0 x; E, q: E* v6 N
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 0 R4 Y& J6 S  U
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) . n9 P0 V. [* ?$ A
End Function
Private Function HexToNumber(ByRef pStrHex) ! o9 {& O$ C* o; v: V3 {, M5 q
HexToNumber = CLng("&h" & pStrHex) ( Z2 h' c$ h% V; `
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ( n5 U2 }7 F% r* k
Dim ObjRSA
LngKeyE = "32823" ; I: z  k+ t$ d+ B1 H
LngKeyD = "20643"
LngKeyN = "29893" & b, O8 i" t. a$ o/ }- s
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE + ~; \3 p& Z. `  U& o+ @2 z3 M9 B2 G
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function/ D+ ~: N+ g4 a: B7 R$ E
Function Decryptstr(Message) " K% a/ y" W4 P3 {: R' J
Dim LngKeyE 0 R* y+ {5 C! x1 ~7 G
Dim LngKeyD 7 k4 o# x0 Q/ H4 k2 r7 W
Dim LngKeyN
Dim StrMessage , a# v. X+ p5 j" K4 {! g8 h
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 4 X0 V2 M6 L2 F' K+ `$ z( B, P
LngKeyN = "29893" , k! V; W$ ^5 }# L* g  C9 }4 j
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 9 I0 q  [! I' g5 R! g9 I
ObjRSA.Modulus=LngKeyN ) Q1 ]" F5 ^' G* U0 S
decryptstr=ObjRSA.Decode(StrMessage) 8 v- `% B* J& c' I* T6 U
Set ObjRSA = Nothing ; h& q/ v* \5 [
end function . h" M' X0 c9 l( V9 R& q  _
%>
===============================================
# z+ b- M# ~4 k
还有一个用于测试这段代码的test.asp/ i* J/ O" g) m% B% q
有兴趣的自己搭建个IIS测试下5 N9 F4 o, _! j/ X8 V: d8 Z+ k% C
 / l. ^4 w0 ~3 E0 e* U* x
<%
function Encryptstr(Message) 4 {6 J  t' B0 t" _  E
Dim LngKeyE   h" K* s3 V; l/ H
Dim LngKeyD
Dim LngKeyN $ b1 H  K3 l6 Q: }: i9 T
Dim StrMessage ; W$ F9 z- W; T1 e, _" u( y% W5 m
Dim ObjRSA
LngKeyE = "32823" / P: `6 P( x/ r0 f/ l: `, c
LngKeyD = "20643"
LngKeyN = "29893" 1 K8 o1 g* M  ~! e8 t$ V) g7 q( }& h
StrMessage = Message 4 U% w# x! g8 V5 O
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 8 [1 S5 A8 x. a$ M( r
ObjRSA.Modulus = LngKeyN . ^: D# H8 e0 g. H% w$ Y
Encryptstr = ObjRSA.Encode(StrMessage) 1 w+ I- e& Y* w/ q) ^4 o% z
Set ObjRSA = Nothing
end function
function decryptstr(Message) % S' _: W( R/ q: m: D+ G: u
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 9 E) f& ^' D+ n4 g) O7 o8 d0 u
LngKeyE = "32823"
LngKeyD = "20643" 4 O- \7 M  s; K2 O( S
LngKeyN = "29893" ; W" a2 X( E3 j: R
StrMessage = Message
Set ObjRSA = New clsRSA # Q0 U+ X; _2 p" w* o
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ( f0 u1 Y7 C+ m, T
decryptstr=ObjRSA.Decode(StrMessage) + l* z3 B+ w" B; L8 Z6 B
Set ObjRSA = Nothing
end function
dim last,first 3 I& S2 Z4 I9 G
first="!@#$%^&*()" 6 J( W; G  B& }
Response.Write "加密前为:"&first
last=Encryptstr(first) / S$ k) e4 r- i- Y$ }
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================. o9 t1 A- x+ H1 b( x
1_____6EBB- }4 Q, z7 _! @( [/ {
2_____5C1F6 h/ O  J  Q# o
3_____4D75
4_____26CC$ i3 K: g" r; J* l6 d) Y) k9 P& f
5_____4F88+ F; t- d% R" E) [$ `+ a
6_____3F4E
7_____0A9D. |- E4 s& X; t1 P8 F& e
8_____1A1C- m8 _" W$ y* Q" Z) f$ b6 n- L( c
9_____6D20
0_____1089' q1 ]. o+ g' y9 }' \0 K
a_____0F3E3 b5 R3 f  l6 n% N2 D, _
b_____3159
c_____3517. `/ n% m6 z+ O6 o  ^5 Z; G, s8 ]* o& w
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C# k1 }: k6 J. R0 n
i_____00FA
j_____5A50& ^& I) h1 }& {
k_____2850
l_____3E7B
m_____71C5
n_____1FC85 V# ~9 z% t& O1 [- X
o_____74C17 f/ S  ~: F; G4 g0 S
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010; q0 u  ^: l9 Y- Q9 J5 k) c9 I1 `
v_____0B42
w_____1C7A# F. t- w4 _6 \5 x
x_____16F8, G& i* `+ p+ _' {* P/ x
y_____2EE7- u9 C" C' N. y. U' C8 d
z_____5CF3
!_____6233
@_____3A45
#_____2291/ ]2 \) O. z% ?0 }" X0 b0 [* q
$_____5D5C6 ?; `% J  T/ [# I! o, H
%_____09B9
^_____43EA
&_____62B9
*_____6301/ H( q3 H; R8 n4 x  L# _) F
(_____4659' k& U3 i# n4 @1 P1 o
)_____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 分享给朋友]