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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
* l$ B+ [: r0 B5 H; P
看不懂的直接绕过
加密前为:hwy1234562 p6 @5 z+ E1 d! v" Y2 W, c7 u
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
. A/ ^+ Z; v8 ?9 w
============================================1 e1 R: s5 R! u' X: J4 n* g
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 d* n2 _: W! G1 }3 j8 Q
以下是RSA算法文件2 ~' Y+ G& v% p6 H

文件名RSA.ASP+ E# x* X+ a$ _6 \& P
===============================================
<% . c: }6 q  B# x5 K  G* E0 E# a6 {
Class clsRSA / @* @$ l* H2 ?
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next , X; o# y2 |4 v
Dim lLngMod
Dim lLngResult
Dim lLngIndex - a3 a) F' T& x* L% z
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ! H, K0 c8 w8 _) @8 K
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 9 t2 J0 h$ I9 t
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ' U1 G& u) z% n* f. P$ w- g
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus # G  V. \7 M& O7 [; d  v
On Error Resume Next ' z3 e7 g! Q/ g
' Mod may error on key generation 6 v, V2 b$ L2 ?2 L! j0 R% u
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If . i3 e/ f) `8 Y& E  C
Crypt = lLngResult + z. y4 D6 R5 B$ i0 a" r
End Function
3 J/ r' h7 Z$ e
Public Function Encode(ByVal pStrMessage) % U3 P  B5 q7 e! t! G& a1 }) a  K
Dim lLngIndex
Dim lLngMaxIndex # d2 U9 M7 J# t
Dim lBytAscii
Dim lLngEncrypted 0 ^( k( P' E6 M1 B7 K; d
lLngMaxIndex = Len(pStrMessage) 5 u/ P$ J, F5 y& Q8 E4 U0 h. q9 Z6 x
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) , O9 o/ q6 A* n2 w
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next . o; d4 Y. c9 T& D* b6 E+ k; I
End Function % X: C2 z0 C0 p0 a6 y
Public Function Decode(ByVal pStrMessage) / C2 p" G: U  `* I
Dim lBytAscii 1 x+ J  }: x' Q: q6 G
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData ; ~# c8 z# e; c. r' R( G! g+ e
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 7 W6 ^+ g$ w3 A
Decode = Decode & Chr(lBytAscii) % p1 v: a" R4 F: }
Next
End Function 6 D% h- R# Q, E; R3 T# W
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ; L, C# Z+ k6 y' l! \9 h1 h+ a
End Function ( N4 V% B' j9 U7 _" e; ~) E6 [+ }6 J
Private Function HexToNumber(ByRef pStrHex) & _/ S* H& h& i3 x9 {; Q
HexToNumber = CLng("&h" & pStrHex) & m6 D, M! G5 \9 q
End Function " z4 k+ C4 u& x7 D( o: E
End Class + G% H! s7 p* l) M& e
function Encryptstr(Message) 6 T5 p  N4 z4 {5 x) w  D0 {0 {1 s
Dim LngKeyE
Dim LngKeyD 7 _5 J$ o- Z0 n+ t/ j
Dim LngKeyN + U$ S9 L6 w- c$ q- x, F% t
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ; f* C" H4 ?5 N% a
LngKeyN = "29893" , j7 Q2 M4 p# c$ a9 b+ `
StrMessage = Message
Set ObjRSA = New clsRSA ! C+ I0 n' D) Y2 Q0 K
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) & y$ a* O% {' {" ~
Dim LngKeyE % a, @# z" V4 {0 S( a
Dim LngKeyD ! g: p# c7 D  {: i
Dim LngKeyN
Dim StrMessage 0 W- m9 a3 C: {8 }
Dim ObjRSA 0 N* e9 x3 `' `- v0 v& g" j
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 5 c! }1 c9 X2 X, l' }$ E
StrMessage = Message ! d6 k* O  _) G
Set ObjRSA = New clsRSA % e% d/ H9 J  i# Q+ \
ObjRSA.PrivateKey =LngKeyD " \* h) P* g4 Q
ObjRSA.Modulus=LngKeyN * O1 P6 X' v7 Q! ~! v. K: m/ }
decryptstr=ObjRSA.Decode(StrMessage) , {- \' G0 S9 {* F4 r3 N! t# S
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp7 |( p, v3 D! c2 m; p9 j
有兴趣的自己搭建个IIS测试下
 3 @( }/ V9 k2 c0 L/ a& F- g" ?9 h
<%4 D  G; ]4 c  q# r: r* e
function Encryptstr(Message)
Dim LngKeyE ! ~- v$ W4 O$ \5 d& X
Dim LngKeyD
Dim LngKeyN 5 q+ ]! b, V; W7 D5 z. x& e% E
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 8 F  {  y" c& S* U9 N+ @
LngKeyD = "20643" 4 R' z0 I' k/ t$ b9 t: q# }
LngKeyN = "29893" / Q7 M/ l$ R7 w* A7 H5 M2 P
StrMessage = Message
Set ObjRSA = New clsRSA , k: N' C9 e7 R! R# q8 D0 P+ K8 d
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 9 ?+ x& [5 I7 v# Y* u
Set ObjRSA = Nothing * v) W1 i$ n3 M
end function 9 {: x. ^+ H# m% x" T, V$ t; W: K
function decryptstr(Message)
Dim LngKeyE ( h6 y) T: D: ~; O( V4 T. b
Dim LngKeyD 1 S, v1 y4 |* n
Dim LngKeyN $ P0 p" M7 j% {! X0 K, e$ G
Dim StrMessage % M+ p4 P* E  Q& |! W" i  c3 Y. v
Dim ObjRSA
LngKeyE = "32823" ; w) l2 Y0 ^6 \3 h9 {5 j% T
LngKeyD = "20643" % F& p9 G+ A* c- h
LngKeyN = "29893" % ?8 e0 L- I; m: e# u  F. A
StrMessage = Message % `2 f  R. D+ N7 G" W+ e
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ( a, y3 k: y" N8 C
ObjRSA.Modulus=LngKeyN / {: P3 N$ {( g2 r+ L
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing " R8 P' s3 ^5 k, E2 _7 g$ n5 x' z
end function . ~. L9 u3 N0 _; M6 P( D! I1 a- w( a
dim last,first 8 K3 ^4 k2 f: P& P7 N  l
first="!@#$%^&*()" " r& y8 V( Z+ |. L) R
Response.Write "加密前为:"&first
last=Encryptstr(first) 6 G: ^; l- L  d& m! S3 t: h
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================6 L# t  o; L8 J+ @" Q
剩下的就是字符的对照表了
===================字符集================( ^* P+ z) y/ v: }
1_____6EBB0 p8 T: C2 v& i, E
2_____5C1F
3_____4D75
4_____26CC1 i- I" T3 q( v+ D% C4 @2 s
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089& }$ v3 ~, b: W' P: o3 q) p5 b
a_____0F3E5 ]1 P/ c9 h. G+ H2 S
b_____31596 W. w6 x' }; P; L# A
c_____3517- g- V8 z# ^" t$ @% q
d_____419C9 R- m+ h% X- |* Q3 Q( @% o( g
e_____615C5 ^2 a! g/ u, g# f  ?
f_____556F
g_____2B7F# u& [0 ^! q0 h% U5 ~* n  W
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1" V# W+ Y4 D4 I& k5 N+ N" Q
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F81 A2 A9 v3 a" y! k: G3 O& s* F4 g8 e, d
u_____7010' J" ]" Y! b# {0 w
v_____0B42
w_____1C7A
x_____16F8# h5 R! H- g2 N7 j
y_____2EE7
z_____5CF3# S1 B( S0 [! T+ b
!_____6233* w+ F$ f9 i* @) m9 P6 b% E" ^+ M
@_____3A45) @, ~. T( v5 P: t* j3 N
#_____2291
$_____5D5C
%_____09B9. R* p3 u; a; ?# c, M
^_____43EA
&_____62B9
*_____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 分享给朋友]