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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm1 @1 }8 p  e4 s$ z7 h
原始出处：http://www.3ast.com.cm

看不懂的直接绕过+ b7 }. O; t. o5 a2 D
加密前为:hwy123456$ O9 `/ J1 J/ [4 c5 [3 [: k% o
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E' O' L: V/ s; b) \& K* R6 R$ Y

============================================$ ^7 q& j9 m1 p
上面是当时自己校内的心情。现在已经解破出来了，分享给大家  V! x) x3 `5 I
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法; J% o- [% O$ N2 g( ~! f
以下是RSA算法文件' t: w( f$ d2 ], I9 P/ `
3 S1 c" M3 f2 n# O7 Q4 ~
文件名RSA.ASP
===============================================( p$ G4 S+ |' W: Z
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus & ~& s3 F& w# f
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult , B; ?- }9 W2 X& s2 B
Dim lLngIndex 9 H/ p* R) u) M; n% q  \0 w
If pLngKey Mod 2 = 0 Then
lLngResult = 1 ' Z9 z. X$ U  a& g
For lLngIndex = 1 To pLngKey / 2 + j9 ]+ ?4 u* Y
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 q1 b: Z5 {+ H
If Err Then Exit Function
Next
Else 8 I) A3 J4 K  L, J
lLngResult = pLngMessage # n' g& p2 z1 Q& r, k
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 p( {( v7 {, u3 R
On Error Resume Next 0 t: F# H6 r. o/ W; B  x
' Mod may error on key generation " P4 U! ^- A/ s- I
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function % L" O2 Z) J9 ~" ]7 R% k9 f5 v
Next 5 V. z- }3 J# q. p+ T, f  j
End If ( w; `$ c7 f) m
Crypt = lLngResult ! M& u" y5 a, ^, n0 o
End Function

Public Function Encode(ByVal pStrMessage) 3 K* [- x2 U- a& Z
Dim lLngIndex
Dim lLngMaxIndex 4 I9 h# \% C* W0 p0 v, \' y( G
Dim lBytAscii . I' h5 g0 p' ^0 x9 ?
Dim lLngEncrypted 9 j( n% n3 G0 v  V
lLngMaxIndex = Len(pStrMessage) # Z7 Y2 b7 a; f% [1 u) D
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii ; T( j; `5 e+ Q% |1 v
Dim lLngIndex 7 l. p0 m- o! i2 j
Dim lLngMaxIndex & m; ~8 [+ }/ I! d3 A* }8 q
Dim lLngEncryptedData
Decode = "" ( X7 U7 j3 s# r( B& m
lLngMaxIndex = Len(pStrMessage) : C: x$ v% Z5 g
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) . N; |/ X/ H- y# z8 m  A
Decode = Decode & Chr(lBytAscii) ; T" y8 _9 |+ S# y/ Q! x
Next " `; v8 ]% c# `: _8 j0 J5 i
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! t3 ?5 |% y, a7 h5 a
End Function ; z* _2 I$ v4 E
Private Function HexToNumber(ByRef pStrHex) . u8 X. I7 A8 Z9 T" W: v+ u  V
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE 2 @, n, |7 B2 f$ ?
Dim LngKeyD
Dim LngKeyN 3 X) H2 c& b9 ^8 q6 m
Dim StrMessage * H% B6 M; H- q. q& b' m
Dim ObjRSA
LngKeyE = "32823" & }$ w+ @7 F2 V& J
LngKeyD = "20643"   f/ T- |( y1 k( E
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA . p; \$ ~: w. [9 J/ T2 w
ObjRSA.PublicKey = LngKeyE % `6 q$ l  F$ |* b% l
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 1 f+ j- e+ o0 n
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN $ @- [# ~3 Z# P# S% ~" C& S/ \) U
Dim StrMessage
Dim ObjRSA $ C! d  t1 t4 @! m
LngKeyE = "32823" 1 |, J- {  F8 C! C: [# @0 N
LngKeyD = "20643"
LngKeyN = "29893" * k; ~0 w$ Z* E8 _& K4 U& ?8 e. S
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 8 r. n0 J, f9 G, @1 S% ?; M
ObjRSA.Modulus=LngKeyN , ~! ~( ?8 i6 d/ z# c
decryptstr=ObjRSA.Decode(StrMessage) * R. O1 c+ E% {; Q1 g
Set ObjRSA = Nothing
end function
%>
===============================================& m: R; g; w1 O
  v; o5 R9 c* i
还有一个用于测试这段代码的test.asp7 h& b0 ?( l" Q$ l' f1 }6 `4 k& ~
有兴趣的自己搭建个IIS测试下

<%4 |, H9 _  O0 {2 v/ N: S
function Encryptstr(Message) $ D/ ]% C. h8 J$ L9 q) I2 ]
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN / m; E; C( v. c& E* q* @3 V
Dim StrMessage ( [+ }2 j8 N/ J9 p  Q
Dim ObjRSA
LngKeyE = "32823" 2 k/ l8 _0 J7 g9 v4 ], I
LngKeyD = "20643" - G! R/ }0 U2 E! x5 g
LngKeyN = "29893" 9 a: K1 q+ b& a8 L% R8 H
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN / M3 x+ `) u1 x1 x7 r0 d( U
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 8 J& Y3 c& k2 [3 L1 m# j& c
function decryptstr(Message) : R3 _- R2 t% L. k$ e
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 1 Z# a$ X1 P( f: ?6 T) \
Dim StrMessage
Dim ObjRSA ; s' V! K; Z8 ?, }* l: }- @: C
LngKeyE = "32823" 1 t' t. v8 b' D0 K
LngKeyD = "20643" & \7 t# M2 R! _6 q1 Z, \& H: V
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA , U, s  Y2 P  s. k& C! w
ObjRSA.PrivateKey =LngKeyD 0 Z% N" x, `& V: x0 [$ q
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) * Z8 p6 p+ U" A( l( J) T$ [& a7 q3 D3 k
Set ObjRSA = Nothing 9 l$ b' G2 l  @" y+ k0 K2 N
end function 7 v2 ~$ n5 P* ]
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 5 ~! E, W% N7 e( A
Response.Write "解密后为" &decryptstr(last) " j" L3 D# f. _% Y# f
%> ==============================================
剩下的就是字符的对照表了
===================字符集================8 O( a+ u- h; v, @8 ?
1_____6EBB+ \' }% W* b) x3 @3 k+ K& q
2_____5C1F/ `$ r% u) E0 Z3 M( q) U* M8 B
3_____4D75& S/ d- j4 I2 M6 f$ Z' u- f
4_____26CC7 f/ s, A  F1 _' y
5_____4F88
6_____3F4E
7_____0A9D" `6 j' h, u( o% G5 w
8_____1A1C
9_____6D20
0_____1089
a_____0F3E1 E; t7 r& _/ b6 Q  _" G/ J# c7 @9 v. C. g
b_____31596 L, c& I! @3 u# C
c_____3517% i7 }: X. |& v/ p
d_____419C9 V( z9 b' f% h- x
e_____615C) T! t6 U$ J& c# D1 p/ E3 `
f_____556F2 z" h" `& k9 J/ X
g_____2B7F
h_____0F9C
i_____00FA. w5 E, Y0 x, ^3 H$ r) v
j_____5A50, V* m; e, N7 _: {; G
k_____2850
l_____3E7B  B$ K5 N5 a) r2 W7 j
m_____71C51 X- a! J; D7 T, C
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F500 _4 O) u5 X- ^3 O+ c3 M
t_____36F8. E2 R0 \  P- ~4 D$ X* Z
u_____7010
v_____0B42" b# p0 W5 Z' g( ?
w_____1C7A
x_____16F8: M/ |0 y4 I- F6 D/ U; X
y_____2EE75 t9 r4 _3 g6 u% a
z_____5CF3! o. C# o% r6 T  I! A' O) R
!_____62333 Y% z1 _  B) d1 j% h
@_____3A452 ^% u8 D/ W0 \
#_____22915 n0 Z3 D1 J& y8 @7 b! ]
$_____5D5C9 y4 I9 ~( I6 s. m' Y: N# c
%_____09B9
^_____43EA; N4 D* C) q" o+ v4 A7 r1 f: B8 I5 B
&_____62B9* j9 }+ ]: x/ i+ s
*_____6301+ N) _" p4 Y- L. |/ @
(_____46597 l% w" T# }1 E  ^' k$ S: R
)_____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 分享给朋友]