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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm% `% O8 s: h  F5 U2 n
原始出处：http://www.3ast.com.cm' J) C8 K% S& Y% G

看不懂的直接绕过3 h5 S. O7 M- @) {) C+ ]
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
# q4 I4 v4 Z' `# t5 W" v& Y6 u
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法0 D/ h7 L( k( \' j# h9 S( a
以下是RSA算法文件; j0 o( k4 G! e0 R- K! L2 y/ h& V
: a4 a; H+ {4 t9 y
文件名RSA.ASP  @% F, m8 P6 W) Q+ X
===============================================
<% * a, w' F6 v; ~  u: q! n7 q3 {
Class clsRSA / c* ~% K) |9 j0 x$ {
Public PrivateKey ( q- K; i  I, K8 \
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod 8 ]0 K) O2 [0 x' u# R
Dim lLngResult & ^& y8 M* O- B5 h) C
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ) D+ m; Q: B" x/ K3 H/ ]
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 # p; N  y; Z9 @% K
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 0 m# G. X% R  ~+ M- _7 d
Next ! {- J2 z- s2 n7 w) A
Else
lLngResult = pLngMessage . V0 j1 z/ R! i1 E* ]$ t0 f% T
For lLngIndex = 1 To pLngKey / 2 . Y9 [# j- z8 q
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next ( k" R1 u. b9 ^8 D
' Mod may error on key generation 1 U) Y5 U. B  L4 ^# i9 h& {0 R
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function
0 `. W: P* {2 _2 @/ k4 o
Public Function Encode(ByVal pStrMessage) 9 D0 O8 W1 [9 i( m
Dim lLngIndex
Dim lLngMaxIndex $ u( N% j1 U1 l% l) N
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 9 |( s' ^) p: ?( A
If lLngMaxIndex = 0 Then Exit Function 3 K) D) {! n- D4 `3 t4 \
For lLngIndex = 1 To lLngMaxIndex 1 j  a+ j) w3 _& r. a
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 5 u# L* Z# ?% g  |1 G' V
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 3 K! _1 ~  _* c% z! Q$ W+ b
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex ; `- q& u& U2 y# \' k. S
Dim lLngMaxIndex
Dim lLngEncryptedData - ]5 k2 z0 A+ j' O+ r4 x
Decode = "" " l2 S, M! w" B( L# X1 S/ o
lLngMaxIndex = Len(pStrMessage) $ d- }' N! \+ i, ?1 ]) ]
For lLngIndex = 1 To lLngMaxIndex Step 4 6 M  r& J! O" s! g4 \. }
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)   w' L9 y+ M9 Z% u* h
Next . X' N+ _/ @8 f( Y$ c
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) # _4 y/ e0 e4 @4 w
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function & A0 ]2 O: u( Z7 l
Private Function HexToNumber(ByRef pStrHex) ' E: P, h) O$ r" m" v' B
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class # |, I1 p; _2 i1 l: z7 w  r6 G
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD $ {' j0 D2 g  N6 m# \0 K8 q. ]  z0 e
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 5 ~9 Q0 z& p" y6 |4 l2 B
LngKeyN = "29893"
StrMessage = Message 1 _; h0 ^9 X& b  t8 w. K
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE . j  H! b; y! u1 t% ~
ObjRSA.Modulus = LngKeyN : b/ x" {) o: |) `: {
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function/ d& C9 R5 u/ b! K) g1 |
Function Decryptstr(Message) $ R/ [; {9 F+ V4 _! F' k/ @
Dim LngKeyE 3 S: ^4 K; ~" x/ z. P. |0 z' I
Dim LngKeyD & c& U$ v  [! A! i0 E
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" : G+ L3 F+ ~; \6 X6 O
LngKeyD = "20643" # w) ^4 _: d; w8 g
LngKeyN = "29893" 1 a" d9 _- C! I, k
StrMessage = Message ( d  {$ y* ]9 }
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD $ l; d% G6 Z9 t; _
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ; [/ o9 N# t3 R9 S# z
Set ObjRSA = Nothing 6 `# W$ C. b  y- |& H
end function " {- V0 E  w3 l& A% G$ K4 [
%>: d, F: S+ V0 E% ^$ F4 G
===============================================" i) U# ~/ P/ O1 u* s9 f' w4 k7 G, L3 P; J

还有一个用于测试这段代码的test.asp/ R2 S3 S! r1 ~# |
有兴趣的自己搭建个IIS测试下
 1 A* H0 |7 |& U: G- A7 U
<%: ?# l( O4 s. t  B/ |
function Encryptstr(Message) & N) q' A) M% q# p6 W' G
Dim LngKeyE 3 G% o. e' @7 X* S4 Z/ }
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" $ b; B; C8 q! {' X2 f! Q7 N4 M6 `( Y& L
LngKeyD = "20643"
LngKeyN = "29893" 8 n. [' l/ a+ g8 p5 {4 `
StrMessage = Message ; \0 ^2 e$ _9 @, O/ o: _
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ; Z: N# h* f8 [
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 6 e# C9 x! S* f1 n' E( J( o3 k
Set ObjRSA = Nothing ' V# \4 L8 p4 w; q4 u
end function
function decryptstr(Message)
Dim LngKeyE 5 G$ h, b, x6 g7 A+ _0 u- \6 Q; a
Dim LngKeyD
Dim LngKeyN & |) c4 u7 h, A; c5 I! r% R
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 1 V3 l+ I9 |3 D6 H$ j& A
StrMessage = Message
Set ObjRSA = New clsRSA + o8 g# U" p6 Z0 y
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 3 N" }" @6 h9 R% {5 W
decryptstr=ObjRSA.Decode(StrMessage) ( f9 H+ t% v) }4 ?) @
Set ObjRSA = Nothing 9 T& \. I3 v' p
end function - t- h( {- t1 \6 l1 I# }
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) - Q( V* p( ]  A6 T
Response.Write "加密后为"&last ; F7 z: Y- ~( `6 I3 h' s% t: V
Response.Write "解密后为" &decryptstr(last) 0 q5 \5 G; ]- A) Q5 F, U: W/ [
%> ==============================================
剩下的就是字符的对照表了0 M8 |; S1 b2 F0 z
===================字符集================# }7 }# a" u& a# a
1_____6EBB4 c5 Y/ A$ u$ k6 W; S) q4 T2 A
2_____5C1F7 z  t! ?5 W* D& H4 K
3_____4D75. L2 K$ o9 A9 F
4_____26CC& f; ^4 \6 Q7 w3 e8 o
5_____4F886 G/ p; @6 ~0 Z# X$ V9 S$ p
6_____3F4E' ~" D/ U: Q+ K$ j6 ?
7_____0A9D
8_____1A1C
9_____6D20
0_____1089& K6 k% ?! m4 p
a_____0F3E
b_____31592 @) X/ M! g5 M5 m/ K
c_____3517& x/ Z% P/ v, a0 Z& c
d_____419C
e_____615C, @5 A/ Z$ t; x1 a3 c" L* q
f_____556F
g_____2B7F+ X7 K; x7 J8 ^& x5 y8 ~* J: w" ]
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B: ]' A& w& x6 s9 w2 z
m_____71C5
n_____1FC8
o_____74C10 O1 P. N$ D" y2 c' d
p_____5FB8
q_____6085
r_____3AC4
s_____2F50- O% o. x# h' K. U
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C7 u# J2 I2 Y4 s
%_____09B9
^_____43EA
&_____62B9
*_____6301* Z. e( X0 T5 l% a5 r
(_____4659" f' ?. f) e1 A4 Z4 o
)_____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 分享给朋友]