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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm+ N+ z* c! [- Q& ^3 U
' j$ L7 ^1 V* {5 _/ ^
看不懂的直接绕过1 X; _- K  \: n
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
. c# c$ x  v# b' J8 K3 P
============================================. m4 D$ o  ^, G- M% C! q2 n5 H
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP1 C9 D: G2 x: c) R! T0 A8 t
===============================================
<%
Class clsRSA " H2 ?" R( Q, r
Public PrivateKey / V& @  J, `+ u+ E7 \; j7 i
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next : I  ^+ C: I6 v# q- C+ c
Dim lLngMod
Dim lLngResult 5 i! T; f; D# \1 l
Dim lLngIndex 0 ^, t/ W% I: y# |
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 3 |2 \6 V$ o2 j( J- |6 [
lLngMod = (pLngMessage ^ 2) Mod Modulus ) N+ N7 O$ ^9 H8 H3 h+ Q
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 Q1 ~1 M2 g0 W! U# p) M
If Err Then Exit Function 8 j* N4 E  J* p; w$ i  u- W
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 A; C/ N4 Z# t( `3 k
On Error Resume Next - x4 z0 ?0 Y9 d  J7 ^8 V
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus : ]1 Q" p9 ?* {6 ~
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function: J( _5 x' ~" n# \1 ?

Public Function Encode(ByVal pStrMessage) 9 a* v: R2 c1 a$ b: q# B$ [/ {& ]2 e$ s  ?, \
Dim lLngIndex ) u. l; Q* n0 {1 e  J
Dim lLngMaxIndex + f+ s) B" ]0 P6 b3 s( {
Dim lBytAscii
Dim lLngEncrypted 1 q+ |' e  {5 f, B% W; ^* Y) v
lLngMaxIndex = Len(pStrMessage) 2 v6 r4 N7 p9 G* B
If lLngMaxIndex = 0 Then Exit Function ; K- `; A" C; _" l7 ?3 C
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ' I$ i( ^  R$ u; l6 ^
lLngEncrypted = Crypt(lBytAscii, PublicKey) $ \# [, ?& q, p4 x
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next . q5 B& F( l+ w# V. X/ K+ V* n
End Function
Public Function Decode(ByVal pStrMessage) 8 Q" E1 X. j+ i6 G: h
Dim lBytAscii # f! s2 u! u# K1 Y8 h+ @2 b
Dim lLngIndex
Dim lLngMaxIndex + ^, E. T" k1 A
Dim lLngEncryptedData
Decode = "" ( d$ Z0 L9 {! b
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) " q! L  Z! X. Y
Decode = Decode & Chr(lBytAscii)
Next , @+ c4 R8 a2 q9 d0 G0 k
End Function 0 u( |- f7 S' ~7 h
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) - ^+ k: w1 _/ i/ ]
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) & n, ^: Q) S- x" @1 m1 ^
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 7 u  B5 @, d: U4 b
function Encryptstr(Message)
Dim LngKeyE 5 Q& w6 m* z6 H2 v
Dim LngKeyD
Dim LngKeyN , m1 a5 \' M7 V8 H; _7 ?2 ?# _9 o
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 4 e+ q4 D* N* X
LngKeyD = "20643" ) d2 k6 p; G1 A. v4 k4 e
LngKeyN = "29893" & [- y5 V& f  z4 P" s, n
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE - m6 ~1 c. C5 M
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ! R# ?# i- Z. @' W& f
Set ObjRSA = Nothing * d9 c9 k* C1 |" O  _
end function* a* V0 T" Z9 b& ^9 j5 x* g+ n
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD & Z5 a: @! a+ y7 K+ t" N
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 7 L! D, Q9 P! u  [, P7 N
LngKeyE = "32823"
LngKeyD = "20643" 5 @# _' L/ [4 x! q8 ^! ?
LngKeyN = "29893"
StrMessage = Message 0 J6 M/ I! d% K- S: V6 K. x
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 5 ]9 p$ ^' B- o8 p( j
ObjRSA.Modulus=LngKeyN ; D% t9 w3 U" |( S
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 1 v* Z) r6 Z0 R. |8 i* e
end function : k. z3 ^- V! m+ p9 V
%>  _6 B- X( R  U/ ~% V5 g
===============================================

还有一个用于测试这段代码的test.asp* N8 e# y3 _- y" Y
有兴趣的自己搭建个IIS测试下
 ) a' ~- {2 g8 n. t
<%9 k5 Q1 q* v4 p4 c; p
function Encryptstr(Message) 4 g1 K( W8 q* G8 [) s! n1 Z) K2 H
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 3 J1 E* e; F0 S! Y
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" & G  |1 q, {5 ^& }4 p
LngKeyD = "20643"
LngKeyN = "29893" , f0 ]6 P) {2 p4 x; q
StrMessage = Message ; {. J& J1 y  E1 D, A/ x7 @4 Y
Set ObjRSA = New clsRSA # \8 V7 P( I) w6 c  Z; H1 J
ObjRSA.PublicKey = LngKeyE ) e) _; ?$ p" x) b. f1 y9 s
ObjRSA.Modulus = LngKeyN 4 g& y- h) x4 n( d
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function & e: ]3 [: [, @  k
function decryptstr(Message) 2 _6 N7 L# f. j3 x, F
Dim LngKeyE $ Q) V' s, v" \/ O$ O1 C: O' z
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 4 r( X: G$ k1 G/ y$ A* m2 m. N
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message   }3 T+ N9 p# j. h
Set ObjRSA = New clsRSA 3 v+ b- D' Q' N" \
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function ) {4 n# }, }  W: [" ^& H$ B
dim last,first
first="!@#$%^&*()" . d: a# n3 u; S$ n
Response.Write "加密前为:"&first
last=Encryptstr(first) 8 H3 S# U0 B' x6 E/ g
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 1 a0 ?& X5 [- V# [' |$ w+ @/ ?, m& ]7 Q
%> ==============================================8 w& K9 Q0 u- T
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75) b6 }9 q  ]$ l+ _
4_____26CC+ l  m! w2 |& F3 Y4 g3 L
5_____4F88* H1 T2 }: K9 L
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159# F0 j5 u) L% m/ {
c_____3517
d_____419C, J% e( Y: S, j- M* ^! {6 b
e_____615C
f_____556F- ~: R$ d' O! g: O6 B3 b  h% f( ^
g_____2B7F
h_____0F9C9 a6 w0 k3 _1 ?1 I2 x
i_____00FA
j_____5A50
k_____2850
l_____3E7B# x8 m8 B' E: W$ |1 W
m_____71C5
n_____1FC8$ D8 a  K( J* B# C" E
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F80 A+ k; [# L3 B2 r  w7 ?, N+ E7 b
u_____7010
v_____0B42
w_____1C7A
x_____16F8* p; F% L  `0 O3 K" q+ E
y_____2EE7: Y- S4 v# V% X
z_____5CF37 b: u8 v; z5 d
!_____6233
@_____3A45+ b7 ?9 K/ h8 W/ F% ?( R
#_____2291
$_____5D5C( ?! K; F: B# K1 g
%_____09B9; T, ]1 B; q4 b% ~) E
^_____43EA
&_____62B9
*_____6301. y" t! d6 U& Q" N
(_____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 分享给朋友]