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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
4 l. }5 T/ [# M) D7 F* b
看不懂的直接绕过
加密前为:hwy1234560 p1 m0 ?6 D5 r+ w, f/ B
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
: }9 n+ {1 }4 ?8 l, m% l2 R7 C
============================================! d8 y* _, h, q- d& A
上面是当时自己校内的心情。现在已经解破出来了，分享给大家; O# Q0 s  C: S1 ]
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法/ s; p6 G+ G7 x. L
以下是RSA算法文件
# u; V  Y2 d& K. o
文件名RSA.ASP
===============================================
<% 5 V, t4 G5 Z7 Z; E
Class clsRSA
Public PrivateKey ; B' F6 P& F/ c
Public PublicKey ' y; s  x* `/ \8 u, _
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) + W& p' I6 w8 ]" [+ _3 [1 P
On Error Resume Next . Q1 }( C7 w4 J1 d7 X  \6 n
Dim lLngMod
Dim lLngResult
Dim lLngIndex   q# p3 k4 S. ?, I& y
If pLngKey Mod 2 = 0 Then 8 I+ q7 R/ M5 r" v3 e% v9 A
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus : r, Z3 }( E' d; h
' Mod may error on key generation 3 V2 L! a8 f/ o: T' H
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else * Y+ C. @3 ~: H9 }
lLngResult = pLngMessage 4 C/ x% D9 Q4 C: u) A
For lLngIndex = 1 To pLngKey / 2 ; A- c0 a. a, ^0 |! D. W. h
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 8 b2 ^3 Z& G; @( ?
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function. P$ {! z4 v& n9 d1 m

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii $ [0 \" w5 o. c4 S; `5 e
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ) r4 N5 W* M; @. @! N9 w* M8 o
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ! p; V1 t) G  Q) }" C' G" Q, p
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ' E. o- v1 c1 J. ~# o; z
End Function - {, B; V5 V8 e
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii . D& s; L! Y' \2 p+ M
Dim lLngIndex , M; E- A6 s3 r& I3 v1 x0 G/ ^( O9 f* }
Dim lLngMaxIndex ! C$ }; h) i  B2 p; H: J3 z7 A
Dim lLngEncryptedData % _7 D! [3 i3 z' H) A2 @) h
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)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 8 d  N% K: b7 b
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) % p- o, j$ C; ]& Z9 @/ y6 K8 n, O( X
HexToNumber = CLng("&h" & pStrHex) 4 @  Q# M5 e' R! T1 W
End Function
End Class 9 w7 R, ^* }* g* F  N0 n& y- E6 o
function Encryptstr(Message)   W  r- D( U3 V' ^* @: G
Dim LngKeyE ) b5 R# |, W: |# j7 `; v+ M' s+ u& v
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 9 ~2 k8 K3 o3 q* x1 y% i' G! C
Set ObjRSA = New clsRSA : R4 K. c% j0 a. p5 |& I$ T
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 0 x1 T; z+ Y  c0 X
Dim LngKeyN ' A- W5 ~: x; u) F# X5 D9 M
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 3 j- H2 u+ R, D! u1 D4 R- i# o$ k
StrMessage = Message
Set ObjRSA = New clsRSA ! N0 x. J, \. B* T& ]
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN   E$ V, i) k0 O, W( y1 ~
decryptstr=ObjRSA.Decode(StrMessage) " Y% e" R9 Q+ I8 E% g! T$ q! s" Y
Set ObjRSA = Nothing . u( D/ o. [( l( p4 {( p
end function ) o! H% A- U1 y" w* ^( B8 B4 p4 v7 i7 [
%>% f& w0 u) U( f; P8 X2 o% Y) I
===============================================2 K8 q' N! u7 t, k

还有一个用于测试这段代码的test.asp9 Y* A+ j, `7 m% s$ R/ A- ?
有兴趣的自己搭建个IIS测试下% x) u* l$ K# Y6 ]! P/ z6 e

<%" o5 Y- n/ Y- \, g& q. Y
function Encryptstr(Message) / Q: C# F. {' A2 e) B9 q: O
Dim LngKeyE
Dim LngKeyD 8 d( [  T9 V  V; G
Dim LngKeyN " I- x8 n# x) ^0 v9 @0 F
Dim StrMessage % e  d% ^  E9 g
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" $ V1 s- n' ]6 l# e( t3 @9 a
LngKeyN = "29893" 1 ^* _. n( p' W% |9 S0 G  O# D% L
StrMessage = Message
Set ObjRSA = New clsRSA + |0 a) Y5 c+ c. G
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 J; v! i0 l' a; N- \
Dim ObjRSA " R$ g" T0 B& f  j5 e1 ^
LngKeyE = "32823"   e2 i3 q  D6 B1 ?! J  [/ H
LngKeyD = "20643"
LngKeyN = "29893" $ V* R/ i' \. h' S/ Y' H$ J
StrMessage = Message & Y. U0 E& _9 ]! P
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD + d/ G' A& A6 N8 a4 w3 b
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first ; Z. J& g3 i! v( y! e+ J
first="!@#$%^&*()" % P; B# C9 b& h9 d
Response.Write "加密前为:"&first   A- c3 s! G5 G4 Z8 ~
last=Encryptstr(first) 8 N+ S# T! H) b$ W
Response.Write "加密后为"&last 6 {) C! S, C4 b
Response.Write "解密后为" &decryptstr(last) 2 j) v* @& T: b% N7 m2 \
%> ==============================================$ M; s6 D4 ]1 J8 R. m$ n2 G
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75; k6 B; ?4 Z# @4 N
4_____26CC0 Y/ i. X$ h) ^5 y, R3 N
5_____4F88$ d1 |2 S( c. C5 V6 v& n. e
6_____3F4E( d) n6 |/ Y6 n* z& n0 W
7_____0A9D
8_____1A1C& ^4 ?9 g! @$ G& E# ~( @; u/ @6 B+ }
9_____6D203 T( z( i9 G0 a7 }' o4 O1 ~5 `
0_____1089
a_____0F3E. q6 d6 M; J& l$ t9 o
b_____3159+ W+ E# u( Y: i  Y4 Y6 d
c_____3517. h# F4 a5 h3 l
d_____419C; g- |3 U$ ~; I4 ?% e
e_____615C4 L, j9 ^% L+ [7 R, ?
f_____556F" R( a0 _# C  |, o# D6 j$ Z) R2 e2 ]! t
g_____2B7F5 x, N0 u- M  t& M2 w
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B" E" S9 i! ?- P+ g; j
m_____71C58 @, l. ~* e4 @" b
n_____1FC8' |2 X9 o7 H3 M! h9 d
o_____74C1
p_____5FB8. O4 ]& A+ B" ~0 M7 P) m
q_____6085! K9 J0 i* @6 }3 F1 q3 O
r_____3AC4  q4 n+ @, I, W" W7 W* u
s_____2F50) e3 @9 L; X- H, d
t_____36F8, O9 X! ]: t" L0 E' [& c3 G
u_____7010
v_____0B42) O. ^/ H, t  E" o5 O- D9 b9 J  d# ^& M
w_____1C7A- j5 v% H/ d1 O$ E8 G
x_____16F8$ J; C7 |* {3 R# d7 e, \9 T0 K
y_____2EE7' v5 L& ~3 e  j/ k( F3 \
z_____5CF3
!_____6233
@_____3A45' [1 Q6 w: x' W- x6 {6 y
#_____2291& g: V% Y4 C0 F( A
$_____5D5C
%_____09B9
^_____43EA; ^0 Q2 A$ k6 P: M  G) H
&_____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 分享给朋友]