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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm, L' @: q8 B4 j. w( o( x  Y# x
原始出处：http://www.3ast.com.cm. X8 U2 M- A# t( a) N+ \  i

看不懂的直接绕过7 y, {! y# e1 Y! f: }. T
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E0 ?+ y# k- p6 t
5 v- E; `& q. d
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家! _' a$ K. Q/ S7 J. E
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
3 C$ W) j6 o7 q7 ?! q$ _
文件名RSA.ASP
===============================================
<%
Class clsRSA 2 l9 C+ S0 R6 q% [" x9 N
Public PrivateKey 9 g, v- r* z( b! u) H" Q4 L
Public PublicKey
Public Modulus 1 \4 @9 u2 O0 E5 \
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex " u6 @* v8 h  |# ?. G+ ^  A
If pLngKey Mod 2 = 0 Then + Z" p. F! N. w' f. V
lLngResult = 1 7 D/ Q' |. x6 J8 a1 {( N" B
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 9 Y8 c+ o; Z. ]- a% q* H$ Q' o
Next
Else 0 D1 x: a( \5 Z9 J' d/ m& A
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation # _5 t! |" h# i: Z* ~% m0 c. J
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 C) |! A5 h& y0 F( u* C
If Err Then Exit Function + K. E+ A' @2 X) i! s
Next % r+ N0 o1 k0 b4 Z3 G4 N" q# H, v
End If 6 k5 D! a' ^! x/ l
Crypt = lLngResult : _1 m2 v6 s- H! S7 {# W6 D1 r
End Function
8 J7 }: X. `: R2 D
Public Function Encode(ByVal pStrMessage) 2 i2 I& {7 v! w
Dim lLngIndex   k/ U9 Z+ M7 j0 A* @* M! s1 \% X
Dim lLngMaxIndex * `/ _3 S3 m' C5 ]/ q. v
Dim lBytAscii , B& L5 O7 M* E! _
Dim lLngEncrypted + d) E9 ^1 u& T7 }9 }  o  n
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 4 _2 k3 s$ o8 ?4 k3 o2 K7 ]) S
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))   W! c4 y+ _, }5 F
lLngEncrypted = Crypt(lBytAscii, PublicKey) + t! u2 Y/ T$ C- ~  R
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) ' @- [2 e) V8 N
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData , f& V# R- H: b0 k" L
Decode = "" 0 k/ H, @% ~9 ~: f
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 5 x- s/ l- y; Y! D0 b6 q' R
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 7 _( I; T' h' m1 P0 ~7 `2 ~
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 2 {& B0 `) A7 }% A( `8 z
HexToNumber = CLng("&h" & pStrHex)
End Function $ j2 s: w4 X/ j6 h9 i$ G! s: y: k
End Class
function Encryptstr(Message) . Y8 Q7 O) ]' E( C7 @
Dim LngKeyE ! p, z7 ?2 G1 h9 t4 m0 }4 c
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 5 U: X. G4 ~; i1 r
LngKeyE = "32823" * m7 V0 w; Z5 f# [
LngKeyD = "20643"
LngKeyN = "29893" + V" X' C; E: S, k
StrMessage = Message
Set ObjRSA = New clsRSA : T+ w  W* z7 Q/ e: E& T1 ^
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 5 c8 I; |3 Z+ A* M$ R: g. O' g( }
Set ObjRSA = Nothing
end function( j$ r: ?+ t/ J& H0 }& _
Function Decryptstr(Message) 6 g% D2 G6 o  f! u; F5 V0 Q2 E8 p. [
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage # O0 r$ U, V: S( @! w
Dim ObjRSA 7 [' l: q$ A. T: y" {
LngKeyE = "32823" 0 X3 }+ T0 y; k5 e6 b4 b1 C* {% l+ R
LngKeyD = "20643" 7 ]0 d3 u* Y' M
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 8 p) T' m* s* k2 c3 C/ Y
decryptstr=ObjRSA.Decode(StrMessage) 4 C/ i5 e4 r- r; w
Set ObjRSA = Nothing
end function   k8 o2 W- m: U5 F% V
%>* t3 o/ w/ ~6 O- L/ d5 `$ p
===============================================- z5 F- S+ Z4 Y$ @, }* t" J6 F

还有一个用于测试这段代码的test.asp9 n  P) E. e" g6 u$ k4 w; Z
有兴趣的自己搭建个IIS测试下" G) d* k' j& _7 Q) \; g
 5 J9 ?1 v, d" I' E
<%
function Encryptstr(Message) 8 t) X: _$ O, l8 `% ~; {6 U0 S. ~
Dim LngKeyE
Dim LngKeyD . q$ ?9 G3 T+ e6 l. E1 o
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 7 K$ r, g% L9 l- j* e* W
StrMessage = Message ; }' W8 v- u& a& a; I! N
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 0 z( [& L+ [$ p: Q' r4 C- k3 Q, n( c
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing   i1 ~; _9 a7 o% S- k1 |' a
end function 4 }, K/ i9 C  W- _* y* Q7 g
function decryptstr(Message) & B0 O0 Q2 ?3 B: a( q
Dim LngKeyE   }5 S6 o6 q2 B& v, L9 h" [
Dim LngKeyD " ]8 f2 V4 [7 H6 g9 a
Dim LngKeyN
Dim StrMessage 4 b  w6 H1 E- y3 X  C
Dim ObjRSA 0 l9 `& r; r; F* G: s* B
LngKeyE = "32823" ; V0 C) X: i. R2 A! h% a
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) - r* N5 s& Y6 W# I5 z# p9 L
Set ObjRSA = Nothing ' I; L3 ]5 v! j! H$ K6 J
end function # |9 h4 ^4 {7 c+ b/ R' j
dim last,first ! i4 V' K) L2 k+ z9 _) v
first="!@#$%^&*()" 8 N$ U8 R/ ]' \. L7 b% ~7 t+ r6 y
Response.Write "加密前为:"&first
last=Encryptstr(first) * u7 ]* V$ O/ h
Response.Write "加密后为"&last ! p/ G5 T+ J9 a5 j
Response.Write "解密后为" &decryptstr(last)
%> ==============================================& c2 t6 m3 k- H6 o) t* F* L$ g' H
剩下的就是字符的对照表了7 |% p9 J% Y5 @' y: M
===================字符集================6 b% ^7 n! J- D! f1 V7 d
1_____6EBB
2_____5C1F
3_____4D758 O9 e3 k: h1 v8 p5 ]
4_____26CC
5_____4F88' ^4 c6 l  ]& D, j
6_____3F4E
7_____0A9D
8_____1A1C" H& r/ Q9 s0 _! j- O
9_____6D20
0_____1089
a_____0F3E8 a1 A8 Q8 o9 w4 a- a
b_____3159
c_____3517
d_____419C* K1 M, d5 J  Y7 c6 A" b* `
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50% c# B7 K9 w7 Y6 @9 D: V
k_____2850# x, n/ V; z/ ^9 N! i2 X+ L/ x  J
l_____3E7B/ g7 J2 [7 b% K) f
m_____71C5) @$ {7 p: ^* \# s9 B7 ?
n_____1FC8% g0 l1 f! \& e! D% ]$ |
o_____74C1
p_____5FB8
q_____60859 K) S6 e7 h- o/ |
r_____3AC40 B* E$ M; V# o: a& k5 @
s_____2F50
t_____36F8& W& i6 y3 x3 Y
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____62337 B- J# M/ \) b
@_____3A45/ g0 f3 p( W8 D) R1 Z; B, \" N3 C
#_____2291. g8 Y6 N, [" M5 Y
$_____5D5C
%_____09B9, Y* C5 p* [" f; Y, [' v
^_____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 分享给朋友]