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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
  d- P* }! w& S  D6 ~  e8 |" s+ W
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E- z1 x# @: V( Z" A
% ^# P6 W/ ]& m9 V  f  P( F# v
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件( c7 h  G# B" i8 D2 c; h' d1 w

文件名RSA.ASP
===============================================
<% 4 ^7 N$ s5 F& K. V& p
Class clsRSA 4 P8 i6 d/ r* T- b+ w/ E
Public PrivateKey ' q6 F- K7 @" \  e
Public PublicKey 8 Y2 W0 D$ e! n# h; g
Public Modulus : d6 [4 D3 W4 x
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod # k2 h# o, t9 ]" T8 C, o
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then . {3 r* m' _0 h+ Z7 p; {, C# Z# j
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 }7 x- _. w: Y' p5 L) p! u# [; H
' Mod may error on key generation * |1 J# U2 Y1 F- _1 h0 }3 S# H
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ) e& i% C! w) s
Else 7 M& G! s: b, Z  J; @' {5 y
lLngResult = pLngMessage ) }: _  `$ G! g- Y3 z
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next - m: W) @7 Y- S. X/ f, F8 ?
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult   p+ ]. `* h8 k) R' ?, c: \. F( _
End Function
  X( M' Y; K$ j% J, [. }
Public Function Encode(ByVal pStrMessage) " K$ f* R0 t7 V" I" a
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 4 j( H3 o9 T8 r" N. m* X
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ! z7 N1 N$ I9 d% k
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 6 `2 f% w+ Y& s8 m1 Y- Q  Z
Next ! M! ^% i4 j7 @- r$ K
End Function - A( [! |& g" m# @( C
Public Function Decode(ByVal pStrMessage) . w8 q6 f% H+ e4 l
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 7 @0 F/ N$ D$ C% _/ f* p
Dim lLngEncryptedData , ]- o3 H4 ?( g  X" D4 c
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 : A* n4 R' i; ~  {
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) " [' S' R; }3 V2 q8 W
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class : Z0 k2 r0 A6 z- H. b+ A# U2 R) m( u
function Encryptstr(Message) 4 ]; X% J& r7 h8 w8 w
Dim LngKeyE / O1 q7 ~+ L9 A" ~( W5 m0 H
Dim LngKeyD % X7 \& |. f0 O  i
Dim LngKeyN
Dim StrMessage $ B, }+ H  ^( R- O1 E
Dim ObjRSA " _. `) \2 }% J0 q; V2 O
LngKeyE = "32823" 7 K& s# M( t3 @8 U. a( L
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA + p# P; Q7 {, h. ]
ObjRSA.PublicKey = LngKeyE * i- s# s( d- J
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function  q/ f4 Q( {: ~5 `$ o3 j8 S
Function Decryptstr(Message)
Dim LngKeyE 3 r: x5 f8 p, e% g( o" A  T. R
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 8 I6 X! M% ^+ g# h8 k
Dim ObjRSA . _4 [( f  L: s7 r4 B* W5 F
LngKeyE = "32823"
LngKeyD = "20643" 0 E3 W! p5 h2 L1 @) V
LngKeyN = "29893"   w# ~/ e# z/ L$ Y, u* E+ b
StrMessage = Message " l: }7 p3 G$ c
Set ObjRSA = New clsRSA 8 W* ~$ P- v+ J4 T. b
ObjRSA.PrivateKey =LngKeyD ( _( |. E  |4 m( E/ ^- V
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ( ?( K/ N" l! T7 a5 [6 e; }6 `! R+ @
Set ObjRSA = Nothing
end function
%>
===============================================

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

<%+ U. ]# U9 A0 Y0 B+ \& s! P" f
function Encryptstr(Message) 7 f* L, Z$ ]- e9 {9 M; M. y. Q
Dim LngKeyE , b; {, F2 V0 d2 q* Y) k, }
Dim LngKeyD 0 e: v/ P8 E" I3 u+ I  g
Dim LngKeyN ! E  ~- M0 {9 E. Y3 V9 \
Dim StrMessage $ c% S2 C5 {! H. G+ P3 Z, ^
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA * @2 [6 Y0 n$ h2 s+ L2 D! j' b
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ! N4 E4 r# G0 X- u2 e
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) 0 B$ X0 C0 N. x% g5 t4 B
Dim LngKeyE   Y' }0 y- {# Z8 X" l6 P) x/ d
Dim LngKeyD & }! @! A2 n; ~: @* m
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 7 `- O$ h8 |: h- ~5 y* U: ?+ h
LngKeyN = "29893"
StrMessage = Message 2 ]- Y! e" ?: W' Y/ V
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 6 s" I0 C. [' j" ~
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 9 E, Z' I- a% b) F2 d/ }" b
end function
dim last,first
first="!@#$%^&*()" % l( }& l7 g1 S- [& e) j2 ?6 a- L
Response.Write "加密前为:"&first 2 m& _6 {3 t  U' G, v  O
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================0 E: Z# A: g1 i) i7 N
剩下的就是字符的对照表了
===================字符集================
1_____6EBB0 F5 c1 e2 k7 u
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D205 }- Q1 ]7 T% F
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C  |0 p. F% w' |1 O" e
e_____615C
f_____556F9 s: U+ i! k" D  d
g_____2B7F
h_____0F9C
i_____00FA3 p) P4 M+ W! S; ^( D% e  v- Z
j_____5A501 E+ g% ?  y! t; l  I9 Q) c& W
k_____2850( g. ?- w& `& D
l_____3E7B
m_____71C5& ?7 G& p$ u! S7 z  Y) t
n_____1FC84 K' d; Z! t' _- {1 ~; }7 t! Y
o_____74C1# M& _. u  z; P
p_____5FB8
q_____60851 Z, V1 o6 y8 j9 c8 ]7 K& E. G, a
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B423 I! l$ b, [" `8 V$ @% S! [
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____62338 p" Q6 _; Q( P4 P
@_____3A45
#_____22918 y; ^5 [# B; C& T. h2 [5 h
$_____5D5C
%_____09B9; M, ^$ E" W/ G
^_____43EA
&_____62B9
*_____6301
(_____4659" N, H! t( V. ^6 _' v6 n
)_____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 分享给朋友]