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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过, r: V& I; Z( g. _3 n" I) O- H; \
加密前为:hwy123456% w6 @0 [; V& f( H$ _! R7 e% k
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E2 E1 O' A+ u- H5 a6 O" a% ]

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家4 l$ g' B  v8 X
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
# U1 J  }' f% T0 e+ |4 k9 N
文件名RSA.ASP
===============================================8 r) B! I: j2 \% H, [# C
<% 6 g- s* W7 b4 G, b) P" N
Class clsRSA
Public PrivateKey $ X- q$ R! k  J: ^
Public PublicKey
Public Modulus 7 g/ e2 n- z7 m
Public Function Crypt(pLngMessage, pLngKey) 6 X! m" D! D$ W
On Error Resume Next ) @! i+ Q" p& N3 _, N, |# @3 H% S
Dim lLngMod
Dim lLngResult 5 d/ K! |! ^) C* |. g# K! w
Dim lLngIndex 7 Y# ?4 S. c, f, Q4 r
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation , x' f4 V. C8 v, C
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 ?5 b  \% k6 u) T3 k4 a7 W
If Err Then Exit Function
Next
Else ( e6 m( |, {7 ?
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 h* }+ S: F0 A. s% l
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 5 D; f6 H2 l  b1 K; {
Next
End If
Crypt = lLngResult
End Function7 m, g- p7 B; H

Public Function Encode(ByVal pStrMessage) # V' s* a! _# E% m3 U
Dim lLngIndex : E4 `4 V5 ^) _( r4 T; K4 _; m
Dim lLngMaxIndex 7 z5 W) Y' H$ u! }
Dim lBytAscii 5 J9 x" W2 E! k
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ) m& I& b2 m7 W- Z" R  i
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ) t3 [. ]- e  A1 U9 q! W/ S0 h
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) * W& c! j: R9 }5 o# `' X6 g8 _1 q; b
lLngEncrypted = Crypt(lBytAscii, PublicKey) ( `9 V7 s2 o$ c$ g( n
Encode = Encode & NumberToHex(lLngEncrypted, 4) 0 N" q! `' n+ s+ |5 W
Next * V6 w( L6 |) G, o6 m
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 + X6 m! b' q: C: W7 N( v% t% D7 f$ `
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 8 Z' s6 H) C; U, \
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) " R' W. Z" U: \" }: X* @5 h
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 2 I- ^" @8 V; W& R7 ^- W! D# v4 _
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function # P8 R8 H5 ?- o- b# C
Private Function HexToNumber(ByRef pStrHex) % w/ d1 Z+ M' T+ d
HexToNumber = CLng("&h" & pStrHex) 9 C1 n- ~; C' w0 K- Q
End Function
End Class
function Encryptstr(Message) 4 _+ `2 f% \! Q
Dim LngKeyE 7 w1 g/ @& ^2 g' e6 f1 U
Dim LngKeyD
Dim LngKeyN
Dim StrMessage , Q, l7 \& [; _) T/ M! T
Dim ObjRSA - f0 [  `) P2 F/ p: p# G
LngKeyE = "32823"
LngKeyD = "20643" & r0 y: f8 Z( |& T2 v
LngKeyN = "29893"
StrMessage = Message 4 F: O! L0 I, K# G( a& }7 _$ O
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 7 x! D. r* Y" H' K
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function8 u# m8 O, I$ F* k+ q/ [# f
Function Decryptstr(Message) , I* r0 m8 ?( W* H" x8 [, a
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ( A9 N% c6 k* J7 }. N1 e- C
Dim StrMessage   m6 w! n" j2 o8 n3 m/ w
Dim ObjRSA 8 ?& V$ u! s% k1 U# A- K0 m  m
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 8 |; B* V* L# }
ObjRSA.Modulus=LngKeyN 1 n4 p9 O& q0 B! I6 Q& F3 o
decryptstr=ObjRSA.Decode(StrMessage) ( v0 C5 {& j. t& _0 w
Set ObjRSA = Nothing 9 B) h- \" `# b7 I# Y/ X
end function
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 & H# D+ G6 K/ j1 Q5 B
<%5 a; Y4 X1 k- q: I
function Encryptstr(Message) ) ?+ R3 w" Q1 M) S
Dim LngKeyE
Dim LngKeyD 8 U% \9 m( M8 B1 n: }+ \8 L
Dim LngKeyN
Dim StrMessage ( p% Y0 L9 M$ X
Dim ObjRSA ! ?2 W# }4 |; s1 |0 z' U
LngKeyE = "32823" 3 R+ A7 y4 y% l, O2 o
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 5 F$ ?) W" R: T
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) : y+ M! x0 f# N) S* A: l. M% ?
Set ObjRSA = Nothing ' [0 k* H- x7 l) f, E2 A
end function 0 T3 K0 Q1 ?# B2 ~  _& R
function decryptstr(Message) 8 Y1 p: f) H  L) D) T/ z
Dim LngKeyE 7 g) x, `1 e2 b# \1 [0 L1 e
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 6 r5 R" s: x  K: D8 O
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ! P, v3 }1 U, u$ \. L9 n1 E$ s0 k
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . P4 P1 e. Y: P5 R
Set ObjRSA = Nothing
end function ' T. y/ Z; x1 I# ^
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first , v- I* {: M( R
last=Encryptstr(first) : b) C% q8 k$ V& i3 S
Response.Write "加密后为"&last 8 z, \  D- X. p: b, F* i
Response.Write "解密后为" &decryptstr(last) 6 f" h$ u: \* u# H0 K4 G* I& D% |) W
%> ==============================================/ j' }& V" |0 I( m/ ^
剩下的就是字符的对照表了
===================字符集================8 s) x: Z3 Q" B- n2 J
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88+ F$ P+ X6 ^3 B
6_____3F4E
7_____0A9D- w0 }2 }& a1 s- G5 I
8_____1A1C
9_____6D203 }& z0 ~2 h- ^
0_____1089  Z$ g) F$ k" }1 [0 l6 r! e5 H) `
a_____0F3E2 l; `" C0 T9 e0 J/ ?
b_____3159
c_____3517; O3 Q. @9 P! o7 v& s
d_____419C
e_____615C1 J  ?: U6 ]* X( T
f_____556F4 X( S3 X2 j2 z
g_____2B7F
h_____0F9C  `, V2 |) N) Y+ @8 X6 |
i_____00FA3 q) e# \8 h- D0 [: l8 I
j_____5A508 i; a8 v8 m( \# h3 l8 \
k_____2850
l_____3E7B
m_____71C5
n_____1FC8& r9 G8 Y1 q  u; q; |
o_____74C1
p_____5FB8
q_____60856 G1 Z% I, i# n+ R$ H# c
r_____3AC4
s_____2F509 w. n3 V) H+ R( b9 F
t_____36F8
u_____7010! z; n* W1 N/ O* J) z; x# r, r' X" D
v_____0B42
w_____1C7A9 E5 e2 X6 o* f3 E
x_____16F82 S( J4 M6 U3 q) R! t- Q9 J) _" B
y_____2EE7- H6 H% I4 ~$ V: w
z_____5CF3; K' P0 t' Q! W
!_____6233# D; K4 _1 M1 _: U
@_____3A45: I' R* Q* u+ S- ^  C* }0 z- @
#_____2291
$_____5D5C
%_____09B9, n5 }6 X; y1 ^" `% J# r
^_____43EA
&_____62B9
*_____63011 ]: `" \' ^3 D9 ]0 w& {
(_____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 分享给朋友]