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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm/ ^3 J$ o/ [. N  ]4 V, B

看不懂的直接绕过- I5 i- P7 }7 _' l6 @
加密前为:hwy123456! {6 M2 o  q6 K6 y
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
1 d, z& Q/ ]' F% q! d1 C/ x
============================================' f1 F2 L7 {8 X1 u+ k& \. M
上面是当时自己校内的心情。现在已经解破出来了，分享给大家/ x# l+ J. A4 l; l$ y' ^
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法4 R9 l1 }2 }8 N* k3 p
以下是RSA算法文件) I, l. e: p6 l+ `# ~# L
7 d6 i, Y! t" E# z1 @
文件名RSA.ASP" T5 `: t, P( o6 m' k1 ?
===============================================' s$ [: _, e6 s
<%
Class clsRSA
Public PrivateKey # [1 b( _* m) {* v) s& f' p
Public PublicKey 5 |7 N0 k. }0 D7 q
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) * W0 \, v' E) p5 q7 e7 ^
On Error Resume Next " m. W$ v2 q" ?; V* _
Dim lLngMod
Dim lLngResult   V# I: m% G9 G
Dim lLngIndex ) ^: ^0 n5 i5 f
If pLngKey Mod 2 = 0 Then : J! {, j* L& d9 M
lLngResult = 1 - {3 Z- _$ i, Q( w7 i. r8 q
For lLngIndex = 1 To pLngKey / 2 9 P  Y% p& h  m/ T( T  |: B( f
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 ?5 w2 ?' O, p' g0 e7 m6 b( B5 K
' Mod may error on key generation + I1 [9 G& u6 p" h9 L& O! _
lLngResult = (lLngMod * lLngResult) Mod Modulus / y; r2 w" V8 K
If Err Then Exit Function # [8 E0 p$ `4 V3 z8 m) m* c
Next
Else
lLngResult = pLngMessage $ G- O/ Q5 K* F' y. q( D9 p0 F
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 4 }  l& Y7 }, Y6 e" i6 G5 T5 u
' Mod may error on key generation & {5 g4 B: D/ C/ k/ v* N
lLngResult = (lLngMod * lLngResult) Mod Modulus * @3 `/ B4 a& |: g
If Err Then Exit Function
Next ; T& Q( Z% |' o# S: ^' j5 w
End If 3 K$ v' @( Z+ Y8 A
Crypt = lLngResult
End Function* E. [# C/ D  G7 ~8 t

Public Function Encode(ByVal pStrMessage) " G8 P, ~0 t' }% ]& ^
Dim lLngIndex
Dim lLngMaxIndex 3 l  D, x0 |0 {4 a- A2 I
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) : u  s& z! r. J4 F; w9 T* a
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex " f% `2 t8 F( ]2 {8 j. N* h
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) " L) Y3 k: _1 r' n8 ?0 X+ D
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function ' u5 G) r) \5 U4 i/ a# h; e( _' T
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii   ^; o9 J+ }4 D) L0 L( x+ _
Dim lLngIndex 7 V+ V4 Z/ V3 A7 Z
Dim lLngMaxIndex
Dim lLngEncryptedData - Z/ a' T; V% f  ]9 Z
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 8 e7 a$ O, K' J
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ' R: u2 l+ B2 ^& J2 H" i1 c
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; B' j& N- C: C0 G% e+ B/ |6 P
Decode = Decode & Chr(lBytAscii) " I: I1 ?* o& ~4 i* e
Next # R" Q, y2 D. c3 q
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 5 [& M& k7 A  }" q
End Function
Private Function HexToNumber(ByRef pStrHex) ; a5 v3 X) M) E1 ]/ i
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE 4 O! @( P, o9 `2 u4 Q
Dim LngKeyD ' P8 X  q' u: H8 e" _1 c0 {" G3 l
Dim LngKeyN & H- X2 F0 P6 R* M  a0 ?
Dim StrMessage
Dim ObjRSA 5 h- J; ~) I- f: p& }
LngKeyE = "32823" , {) Q; T* u# P( D! N5 w8 Z
LngKeyD = "20643"   U7 c6 E% k: n8 C" ?; p
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * G: C& J, u/ [. M4 Q
ObjRSA.Modulus = LngKeyN 3 b/ W. |8 T$ }5 p
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN   j8 _: H9 v; P$ Q# L
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" - v. C0 d- G/ N) k' M. g
LngKeyD = "20643" * a/ q. a  n% p+ G) r
LngKeyN = "29893" 9 ?8 g( s8 |6 R
StrMessage = Message
Set ObjRSA = New clsRSA 9 T4 s" K* J& V4 w% K
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 7 y( T6 d1 `1 a: W/ l
decryptstr=ObjRSA.Decode(StrMessage) 7 @1 F, ^8 C2 d; K+ K6 D; k5 M1 F
Set ObjRSA = Nothing
end function
%># N* n4 r* E3 B4 ~
===============================================- {2 B  i. m0 W  Q4 r
9 Y8 `1 O8 A( X( U) T
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%/ e  J7 s" o9 S' _$ q9 f  M
function Encryptstr(Message) ! T% h$ b1 Z" M& N7 O$ s' ^/ X
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ; A& Q  ]. Y) k
Dim ObjRSA
LngKeyE = "32823" 6 b) Y% S& U+ n# T! q
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 8 Z1 _" R/ V$ x( n2 U% F
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * X% p' z$ e& \9 x9 O
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) . S: I  H  _( m" B
Set ObjRSA = Nothing 1 x: ^! H. n3 u5 H  T+ I, ^
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ) r$ V- D0 n' X0 H! e% H4 r
LngKeyD = "20643" 0 t# a4 }! J( S* a
LngKeyN = "29893" " l$ X6 x. k& N8 i' O  t" E% D0 J
StrMessage = Message
Set ObjRSA = New clsRSA 2 p# C! B* @+ }: u; V' @
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 0 ~7 t' {  n7 f" |( y4 p
end function
dim last,first ! \$ P# |1 z  D9 }4 p, ~. J  e
first="!@#$%^&*()" ( v# j; F- \' b3 E9 }
Response.Write "加密前为:"&first 1 ]7 S" z4 ~, }8 O
last=Encryptstr(first) & A1 `8 R0 j8 M7 s+ P
Response.Write "加密后为"&last % u  i( j$ j1 W3 u! R
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================5 c6 i+ H9 F7 T, p; M
1_____6EBB! I/ m- [( e% H$ l
2_____5C1F- B1 J+ H; g, s  q+ {/ J0 i7 q; @
3_____4D75% E) X( _/ u# c4 z
4_____26CC
5_____4F88
6_____3F4E" Y7 v! D6 y5 b7 j( B3 _( J
7_____0A9D& ?( e: r1 q9 l0 G- T  Q4 [' U
8_____1A1C7 D+ [5 x4 t5 R! r( {# {2 P
9_____6D20$ F8 j- z2 ~* a2 @' `' F. E6 }
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F0 D: f% R! h. D  J) O' y+ X
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8  L, b' s( e, E7 U& c% t5 v4 a' [
u_____7010
v_____0B42
w_____1C7A
x_____16F8+ U* x/ [; y, ?
y_____2EE7
z_____5CF3$ U  y& b% ^! C' F! `2 A
!_____6233
@_____3A45
#_____2291$ o7 y) S& i% a- c' e# `
$_____5D5C
%_____09B9; P/ r( N( O5 V' S6 w
^_____43EA, @) F* O9 {5 F. @
&_____62B90 x6 I8 Q' F! i# P' {1 r3 i  K
*_____6301# |2 [( T5 ~$ s: A, C
(_____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 分享给朋友]