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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过' ?+ w5 h- i8 z' B, U- P
加密前为:hwy123456, T" B( H+ _4 x% ?
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================3 h* }0 k$ b2 K; T
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================3 W6 e4 _; P( t  N8 q4 b; T" L
<%
Class clsRSA : `5 V, q7 H- D6 K7 P) s1 O
Public PrivateKey
Public PublicKey 4 n4 A! u/ E1 X, H4 @; R
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod & O- L" S0 F5 H0 Y; A% y8 x, t- ?9 l
Dim lLngResult , T8 G( s1 B. P5 a  Q
Dim lLngIndex ) [- E5 r# ~# ~
If pLngKey Mod 2 = 0 Then 2 X0 N8 f, |2 T! O/ R9 \8 V
lLngResult = 1   K2 R, [4 s; s/ r! T1 n; K0 S2 S
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 2 k- ^! _# g7 E- C- W' t7 R* r
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function " T' F$ ]0 l; I, {0 t  K8 A% ~
Next
Else
lLngResult = pLngMessage " d. Q$ I5 a: x& y
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 3 X) f+ P6 m; a+ q1 w# r
' Mod may error on key generation & C9 `3 V" M1 W$ |: j
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 0 U# V5 n% m4 t1 [* X: A
End If ( f! t) l) a; k. [5 G/ D- f
Crypt = lLngResult
End Function& r- u' Z+ u) }+ f

Public Function Encode(ByVal pStrMessage) 6 H, [" u% o7 |) C: H. h; L% V
Dim lLngIndex # e0 Q  q8 r& Y4 K
Dim lLngMaxIndex
Dim lBytAscii . C% x0 W9 U4 @. e
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 7 n4 d7 A8 [; ?8 N4 G$ h2 [% Y
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 4 o' [9 v  w0 w4 u% Y1 B" i. U
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next $ t9 M2 B% e; d7 s# h2 c
End Function 9 E- ?, `: t' T" Z
Public Function Decode(ByVal pStrMessage) $ o$ L" Q( S7 T" {5 M! O# u) |
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 6 }, Y) I" C, I5 I# z
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) # f# C' D. ~2 m+ R% }( X' @: I
Next
End Function 1 o# n4 p6 U/ e  ~: c5 \
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ( ~$ G6 b+ l# y9 Z0 y
End Function
Private Function HexToNumber(ByRef pStrHex) 0 S  }/ M# f' d( K1 f
HexToNumber = CLng("&h" & pStrHex)
End Function ! Y6 o4 c- @0 T; ^
End Class
function Encryptstr(Message) # m6 P5 z5 p4 y9 R( a) X
Dim LngKeyE
Dim LngKeyD   G) L9 L0 [+ b! N( Q; E
Dim LngKeyN 3 y) F5 Q' r8 l& f- D1 u
Dim StrMessage . ]' R2 N( W; w3 q5 C! A
Dim ObjRSA
LngKeyE = "32823" ' F6 ]4 a! d* R1 l  N3 u
LngKeyD = "20643" # Z4 y9 G, N# i1 e
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 6 O! q2 Q8 Q% ]/ X5 }
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 3 R* E  w5 _0 C  x1 H" F
Set ObjRSA = Nothing - w0 x! F( U% O- O# J1 `" B) r
end function
Function Decryptstr(Message)
Dim LngKeyE # x1 ~7 w4 R* k8 W2 I; T+ {4 R
Dim LngKeyD
Dim LngKeyN ' B% W! ^" p( j$ i/ R: W5 D
Dim StrMessage , v# w  ]: a2 @+ F/ B! k
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN + H: {9 j# X/ w) J7 q- `$ J( |
decryptstr=ObjRSA.Decode(StrMessage) 2 _" H" t) T; E2 P, R& ?$ n
Set ObjRSA = Nothing
end function 0 \3 p$ B9 e2 S4 D3 N
%>7 C7 f/ g* k( e/ v4 Z
===============================================
. Z8 Y" D0 L4 U, P$ r5 Z/ M1 O
还有一个用于测试这段代码的test.asp+ g# j! S+ m" T7 {1 u! r: s) w6 L
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD " |5 b* @0 ?4 g- p
Dim LngKeyN 6 i+ Q! a5 S0 j1 q$ h
Dim StrMessage - b* v, q8 h) T  W4 `6 n9 }
Dim ObjRSA 8 k  v+ L: Z0 q. G& [; a+ r8 ^
LngKeyE = "32823" % a' c' y, F& u# E. t+ D  }
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 4 [# ~0 O# ~8 b, H
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ! x6 M; S4 b0 t) ?
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage , t7 m3 k' c  x
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 6 z7 _, b: p% X7 ^6 }+ C
StrMessage = Message 0 u8 y: |$ C8 o+ @
Set ObjRSA = New clsRSA ! {0 _9 F, x; z0 R! @; ^  ?3 j) a
ObjRSA.PrivateKey =LngKeyD   D  C, v4 N  P+ w# j$ k' {+ u- s
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ; s+ L8 `6 m1 R; u+ c( ~; x
Set ObjRSA = Nothing - H% ~& {6 u7 y( N
end function 4 p7 h8 d2 ?7 Q, `; J3 s
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first 3 n" _& P' u( h
last=Encryptstr(first) 2 `( P4 u  T/ V+ P3 A' Z
Response.Write "加密后为"&last : d( L, i' U( H8 L
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了, s" e2 c* H% _- w  n
===================字符集================4 I3 z" _* c7 F& J8 i" i( s
1_____6EBB3 R' B& L3 ^$ P, _9 C
2_____5C1F# c+ n& `0 U( Q
3_____4D75- G; p) O+ L+ V6 M8 W
4_____26CC) @( Z4 C# [4 K
5_____4F88* i% h: t% N2 z! y$ Q- d
6_____3F4E
7_____0A9D* ^1 g, y7 C6 n' d, B3 A2 [% f
8_____1A1C9 O: e( n( L% ^7 q
9_____6D20* ^) H$ L+ x9 ~5 z: H
0_____1089
a_____0F3E
b_____3159
c_____3517; ^! _' F' r% G2 N, s  `
d_____419C
e_____615C
f_____556F% h: \! Q3 S. I4 ?
g_____2B7F
h_____0F9C+ y* Q& f8 t0 d( V
i_____00FA
j_____5A50
k_____2850- p( c2 G. {% G( X& D2 J
l_____3E7B6 O, ?, W( h! I( w" ]
m_____71C5
n_____1FC8
o_____74C1
p_____5FB82 S, \& J) l# Z3 v3 n- Z* \
q_____6085
r_____3AC4
s_____2F50/ S& g8 z9 w1 Q9 ]# J  B
t_____36F8
u_____70103 u  c* L2 Q+ C8 w, F* N9 J
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45! D+ G# V1 S7 h, a- I9 p
#_____2291) ?$ ^" j& Q5 z
$_____5D5C/ h- f6 h& B$ W; [4 a) {" g' C1 {/ a
%_____09B92 d. y+ e7 l' |2 }
^_____43EA
&_____62B9
*_____6301( j5 }+ v9 C+ ?; u
(_____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 分享给朋友]