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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm$ K: T5 U3 L  ^! ]- B

看不懂的直接绕过* k4 I6 B  K4 h+ \7 J) F: @
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E0 @5 z) v, e0 e# v7 e6 z  p  ]

============================================- t- J3 }& O" u% O; m$ d
上面是当时自己校内的心情。现在已经解破出来了，分享给大家. ]; y' H0 x+ B$ ]7 a
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法1 _1 I4 R) E/ F2 C9 @' ?3 Q
以下是RSA算法文件+ L+ z& L6 I9 ]* m' ]
% y3 \# x8 \9 g
文件名RSA.ASP, K2 Q( k, \3 }( Z! I$ ^3 u/ c
===============================================
<% 1 ?6 {2 ~5 s* y
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 8 O: y  S9 f8 E$ R4 R! o
Dim lLngMod $ W8 Q" p8 q% o  ?
Dim lLngResult
Dim lLngIndex $ y8 I  }% p, F( v. V
If pLngKey Mod 2 = 0 Then " r7 d" m4 x5 n3 s; Z, |
lLngResult = 1 ' n5 r" a5 {3 T/ s, W
For lLngIndex = 1 To pLngKey / 2 ) v- _; ~& A% O" G5 h
lLngMod = (pLngMessage ^ 2) Mod Modulus : U6 V! c2 D9 R* k6 ?- A% I
' Mod may error on key generation   l8 u, }( c! K+ H: ]8 A% d( s
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 6 ~6 _4 e% ?, L: r2 a4 p
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 2 t3 W( ?. O: p8 F+ Q4 X" Q
lLngMod = (pLngMessage ^ 2) Mod Modulus - ~; E! q* A; K2 Y. P
On Error Resume Next % L8 c. t8 `" L) r4 z( W% V
' Mod may error on key generation 5 e0 B7 B2 L8 z
lLngResult = (lLngMod * lLngResult) Mod Modulus : I: s+ l8 Q6 b: D- q
If Err Then Exit Function
Next % I# j/ ^$ Q* N- K( ^1 r
End If , j4 U: {) O) U' |# n# |. i, j
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) & d0 \/ Z( x; d
Dim lLngIndex + [* @  _4 T: p& T0 a% V
Dim lLngMaxIndex " ]/ b+ A* s" B& R* ]6 d( [
Dim lBytAscii 5 W& E7 B$ p8 z2 B- l
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ) l) Z7 `1 W" F: e4 i: n
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ( }: @3 \8 H! O9 y
End Function 6 g% W5 t3 [" U
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii " q! Y$ N" E6 X3 y
Dim lLngIndex 5 {" a6 k- X1 `
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" % k9 e8 P  H7 T' Q) F
lLngMaxIndex = Len(pStrMessage) * ^* F, ^) p2 F4 g" ~% o3 K
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) # N( y4 s: U* [. y* \$ }
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 ]3 s5 s. c+ m0 P4 y! n
Decode = Decode & Chr(lBytAscii)
Next
End Function . Y  M& Q* L# a% N1 H. J; p2 o
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! n  v, h. {, O  z
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 1 k( r0 ]1 q# `: C9 \- \
End Function
End Class
function Encryptstr(Message) # E9 J) m2 F" t7 |6 P3 W/ h3 t% G
Dim LngKeyE
Dim LngKeyD - h& h& q. D9 G7 p' m- S6 H# s0 H
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ) V  w! J9 Z. e" {+ ^/ ^6 M' q0 M
LngKeyE = "32823" # O: Z# O) M1 T3 Q3 G# N
LngKeyD = "20643"
LngKeyN = "29893" " v5 G8 J9 t1 D. ~
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * S4 O- h8 `5 g3 i
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function6 b3 }4 F2 H4 N5 X$ H- y0 ]
Function Decryptstr(Message)   E, o& W; t' b+ r1 ]2 B7 H
Dim LngKeyE
Dim LngKeyD & U; m; @9 t1 b% a: L! t
Dim LngKeyN
Dim StrMessage
Dim ObjRSA " J' t/ i# p. D+ w+ J% _0 W2 z; G4 n
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 8 b- A( C: J; L6 z
Set ObjRSA = New clsRSA ' A( t, x+ G. S* Z0 F8 }) @
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) , m/ N5 |/ O! k7 O
Set ObjRSA = Nothing
end function
%>  b. V0 T, T/ ^# G3 \- i. t
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下+ s4 g2 K4 r# g3 M' e

<%3 C2 j' n* z: X1 o
function Encryptstr(Message) 2 c# F8 @" v8 \! t: v. ^' d
Dim LngKeyE
Dim LngKeyD ; U" b6 f8 b: e/ y) e% F* I& m
Dim LngKeyN " L) p. A2 ?( Y9 I
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" * l6 L( L: l* S- f6 g1 z
LngKeyN = "29893"
StrMessage = Message # g" \" Y% K) A) Y  d
Set ObjRSA = New clsRSA " |, g* c( d" \+ M: R+ b' v
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 5 {% x1 {% E9 T4 V. H2 t
function decryptstr(Message)
Dim LngKeyE 7 [6 p5 R: C& `3 U
Dim LngKeyD 8 O- `- ]. t9 Q# o+ F; m
Dim LngKeyN
Dim StrMessage - e4 M1 ]% A# k' L
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" : [. {6 y0 u% }( ?* h8 {' l# H" t
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 1 H) w! D7 E; }- b! i; `
dim last,first , C, T+ P& Q; B) H* h6 W
first="!@#$%^&*()" % u4 Q: f7 P$ w- I* d5 ]
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) % ~  `, h3 R7 ^5 j0 T( d. C/ B
%> ==============================================. f! N" N1 d$ G
剩下的就是字符的对照表了
===================字符集================$ ]% j5 C, |  G! M1 v% ^
1_____6EBB
2_____5C1F
3_____4D752 c4 A9 I5 V% N  z1 X
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D7 l2 B2 J, D" Z( M5 T- ]& H, P$ u( d
8_____1A1C9 D- n" z* ^6 X( g' \! Z3 c
9_____6D20
0_____1089$ @) {9 i$ f' p: D7 Q0 m, A; J
a_____0F3E
b_____3159% v* J0 j8 W8 {, U0 Q) e, r
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1' k- A7 n$ a' D9 j
p_____5FB8( ?2 P4 Q" u: ], y, t! ~4 K0 }
q_____6085# a4 b9 o) W0 S8 @
r_____3AC4& ~. L3 ~. V$ b3 Y$ ]1 V
s_____2F50& M1 t* m/ |8 e: H
t_____36F8
u_____7010
v_____0B429 t, f& V+ O. D0 v
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9; T9 S) s1 a% ?, w7 B9 P7 e
^_____43EA4 d' G( V' Q7 L5 ]) ?- B
&_____62B97 N3 I; A8 M6 B
*_____6301$ i1 I- ?- a1 j4 p4 i( ?3 P
(_____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 分享给朋友]