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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
( W6 n" y/ x9 s/ h, n" K
看不懂的直接绕过
加密前为:hwy1234563 u# P3 Q1 p# D% j! i
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E3 _. z+ B7 J( _

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家+ Z: j& x5 a4 y3 A, T. i9 C& `+ D
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
8 a4 j3 O! Z" P! m& @1 V4 c/ [
文件名RSA.ASP
===============================================
<% 5 E6 k/ T+ H- d; F
Class clsRSA 9 v2 [1 V6 A- L
Public PrivateKey 0 ~) B* X7 o& x. Q" R$ j
Public PublicKey
Public Modulus   E0 H3 I* S; Z: ]! w' D( g% `( c
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next # R7 T8 P* F5 F0 f9 W' y$ d$ \
Dim lLngMod 7 t% M' b" d% P- a/ ~7 C) H
Dim lLngResult   o9 T9 E$ ?5 P+ t0 J
Dim lLngIndex * i  {+ w: F7 `3 E2 K/ @" X
If pLngKey Mod 2 = 0 Then
lLngResult = 1 ! g# {, t! E! }9 P& N  j. R
For lLngIndex = 1 To pLngKey / 2 ( i" Q: B; z. J9 W$ H, y) a5 `  Y( z
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 {* p2 O1 w# E5 H3 Q7 d  M. O
' Mod may error on key generation ' O2 n/ Q- C# ^- l- U
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 7 `, f/ r. t& B: k) G
Else ( \8 l$ ^7 j) e7 E( I$ W. J
lLngResult = pLngMessage , L7 I  Z( z% @; E( `$ ?9 C; T
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation & n2 `' a" E& p- T; V! c
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function , Y* P- g4 t/ C, a5 o9 h
Next ' N3 p( y# I! K& B# j+ i( n2 U
End If 2 b. M8 f1 _. C8 T) z3 r
Crypt = lLngResult + P! T, [$ \. t* M; I1 j, \  ~  P
End Function4 d' m0 b% [/ x# [1 u5 V* C/ Y" V

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex , n$ f" ?8 H( l6 i& A) o" t3 X" v
Dim lLngMaxIndex 4 T2 h6 z: @/ V' A% R+ N
Dim lBytAscii
Dim lLngEncrypted 1 d! F9 Q3 b9 Q# j! {4 e
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ' Y8 i( h4 b8 o% O
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 6 D5 D- _  h2 {3 e) h+ @
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function ( c" i- y8 ~2 d, v/ `; a0 k3 D
Public Function Decode(ByVal pStrMessage) % D$ {3 V: Z( a- t7 Z4 j
Dim lBytAscii
Dim lLngIndex ; U4 F1 v" O, u7 u
Dim lLngMaxIndex ( M$ s' S3 w5 c
Dim lLngEncryptedData
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 4 E0 c2 a) o. h/ v2 }* }+ a
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) , K3 W, b' \4 p, Q2 ]! B
End Function 8 L: i2 R5 d- ^
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) & @8 q2 ^. b# v- F5 l
End Function ) w, h' r$ [5 a: K; v5 B2 l
End Class
function Encryptstr(Message)
Dim LngKeyE 4 o; C7 z" l$ A0 ?, r3 i
Dim LngKeyD
Dim LngKeyN
Dim StrMessage # T6 V. h  I7 W( g8 u0 u7 a4 `
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" & N. b( e) k3 i7 v. B( Z
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 8 t) t1 E: k' i/ c7 Z: U' P
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) - e! Y7 D& z. |) L. M7 A6 x/ i8 C4 b
Set ObjRSA = Nothing , F) y6 H' x0 A. ?" j
end function6 ?* P0 y7 B  h% Y( k) u
Function Decryptstr(Message)
Dim LngKeyE 7 i$ f! Z+ W, q, C8 M- ]" m" F' P+ `
Dim LngKeyD 1 j$ Y7 e* m* K
Dim LngKeyN 8 o. k* Y# d" H7 T4 J6 O8 {' F
Dim StrMessage 1 H5 p, y/ _6 V/ a5 V  ^! ^
Dim ObjRSA + |- w' `4 q8 Z: ]
LngKeyE = "32823"
LngKeyD = "20643" # r0 K  Y8 G. {' \# m) l( H
LngKeyN = "29893" . \* @! B5 E( r1 c$ J6 ]3 Q
StrMessage = Message ; S7 j- [+ ~/ L  c! v+ c
Set ObjRSA = New clsRSA 5 X/ d+ u2 O6 ]1 n( ~
ObjRSA.PrivateKey =LngKeyD 3 `( n- @  a, m. s
ObjRSA.Modulus=LngKeyN 0 {+ f% N8 ?% K- P7 K
decryptstr=ObjRSA.Decode(StrMessage) % w; m8 c) m- r; i9 o+ r# Q
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%) O+ L: B6 V; d9 M/ {3 b0 O' y8 r
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN / j. k6 T' K( a! v$ L& S
Dim StrMessage
Dim ObjRSA 5 U8 ]  f7 P" _6 Y/ H
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" : T2 Z) X1 E# n3 L: i% E$ j& S
StrMessage = Message # t- [. U3 d2 Q  A! g
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 5 P( A+ x+ O6 |* X% R* T
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 8 m7 v2 ~/ p- Y" V7 x
function decryptstr(Message) 3 T) F5 N3 ^4 L, m9 \! P
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 6 A: x& e; Y, f& n. ]! E
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD * R! m5 m& A+ m" P! s
ObjRSA.Modulus=LngKeyN 8 C" @4 x2 m7 P4 C. |
decryptstr=ObjRSA.Decode(StrMessage) " P5 H8 E* L0 W9 E6 t& f
Set ObjRSA = Nothing . ~' P3 B4 ]2 t# F  y" P
end function
dim last,first & z3 I$ U: m) F, y  n6 K; y
first="!@#$%^&*()" 4 \& z* i# ]/ J4 }( X! }! `6 g) f
Response.Write "加密前为:"&first 4 @+ c0 I( L4 S4 B/ J$ N1 \  @
last=Encryptstr(first)
Response.Write "加密后为"&last " u0 h* G2 d- f
Response.Write "解密后为" &decryptstr(last)
%> ==============================================; r6 Q9 p; Q; J$ i7 k3 ^" p, o4 m
剩下的就是字符的对照表了7 b- k, D5 g1 ?! \# Q" r. J
===================字符集================
1_____6EBB6 h. ~- y1 L  ?+ Z
2_____5C1F. e" F5 t5 c% j; @, T
3_____4D758 w) u+ D3 N0 g8 i4 J) r( ^
4_____26CC
5_____4F880 H* \0 N6 B* D3 S
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089. P# v6 W0 X  S( e, Y# K( l( C
a_____0F3E
b_____31595 f' u- Q# w& G: Y1 {: {; ]
c_____3517
d_____419C
e_____615C
f_____556F  v: X* e% ]3 G
g_____2B7F
h_____0F9C
i_____00FA: ^& `) R3 i0 X( r) ^
j_____5A50
k_____2850: h' ?% M6 O5 J) Y& E
l_____3E7B$ q! |0 Y$ z2 [  X( D
m_____71C55 a2 A, k) B4 k9 n+ m/ Q/ H
n_____1FC8
o_____74C11 a8 O  z/ U1 L# h" X( _' _
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010: `! @! A. J. L! M2 z3 p! U2 p: c
v_____0B42
w_____1C7A2 S) }" s) z5 Y2 P
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291! X7 ~2 e4 R& n+ b0 [
$_____5D5C
%_____09B9+ p, e' x6 J5 R5 x5 v
^_____43EA
&_____62B9( E" |1 b" D9 O
*_____63010 g6 Z# d" u  @, }) E  @& U9 K7 M
(_____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 分享给朋友]