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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm  Q* f3 ?* @! H* l( }

看不懂的直接绕过
加密前为:hwy123456+ p, j* H4 O3 b: l. o& |
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
; L+ s' X* G! Z2 @' y
============================================$ b' \3 V4 C8 w% z
上面是当时自己校内的心情。现在已经解破出来了，分享给大家5 a4 d) Q9 A& A7 R
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法) l. P) `; j2 Y! ~3 z2 [, \
以下是RSA算法文件6 N! Q3 M& }2 R6 u0 t
# \8 H+ f- G! p2 x
文件名RSA.ASP
===============================================* y: k. u0 n0 }- q- m
<% . B/ o. n" q- X2 x! B% C
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus 8 {( V$ e& P* \/ J
Public Function Crypt(pLngMessage, pLngKey) 0 |) S4 p; P: b8 ]: I* e- g( F
On Error Resume Next
Dim lLngMod
Dim lLngResult ) k. ]# }: M  ^. L# E
Dim lLngIndex ( w6 g8 D* ~$ J' m% k" B9 t
If pLngKey Mod 2 = 0 Then
lLngResult = 1 ( y2 c  h4 I- |
For lLngIndex = 1 To pLngKey / 2 % Y9 l* @  g2 ?$ e
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 P: _8 F! w7 j
' Mod may error on key generation % e) ~1 }" J& W
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 9 u, `# [: i% p
Else
lLngResult = pLngMessage " p. T. Q4 E( v% @+ ?  m* f
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus # b4 T/ W1 H. s4 X$ C5 V2 T
On Error Resume Next / G9 T3 T5 |6 I0 x
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function+ |: v" Q4 G9 M8 m! }
. C- h, L7 F! @4 [% j' |
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex , J4 p8 e+ x; m; U
Dim lLngMaxIndex 4 W+ v+ \8 p! |5 Q
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) . D- {6 f. z' s/ a( `$ a
lLngEncrypted = Crypt(lBytAscii, PublicKey) : v- e% C; T: r4 u8 ?/ s, [
Encode = Encode & NumberToHex(lLngEncrypted, 4) 3 Q" x4 h. \! E% p8 K6 `
Next 0 `: J" j6 f: O
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii & ~- h% |1 _1 P! F# p5 o# i
Dim lLngIndex
Dim lLngMaxIndex # W5 C7 d- p# B; P& c; ]4 p3 Q+ n
Dim lLngEncryptedData ( f0 \  S" f$ t/ V* a- M
Decode = "" " L2 W9 o/ E, t# u3 e+ ]$ e: F+ o2 G+ V
lLngMaxIndex = Len(pStrMessage) , U6 V2 P' ~5 i- @" _
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 3 [, s& Z* E) f, @
Next % U: J; Q1 E* E3 Y( x: Z4 o! g! o. G
End Function ( y# o8 T8 C. ?- B7 v5 [% a0 |
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ; {  a5 ^# L$ X( y! S. B: c% i; K9 U
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ; b0 \' I+ E) q+ |
End Function 4 `* H: m" ~* V. H3 Z) W4 _
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) , b- ], G. S5 C
End Function
End Class
function Encryptstr(Message) + w* `( T1 [/ p3 F
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 9 E% G- _& c9 }. a: ?  t
Dim ObjRSA   V4 t1 {1 Z2 |4 @; _& I( q
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" . [/ Q3 P' v# i9 o
StrMessage = Message
Set ObjRSA = New clsRSA ( z1 a& {5 r& I8 S& O" A# f
ObjRSA.PublicKey = LngKeyE 3 ^8 d  D# p* U3 I
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 8 K( S1 K( c) T# S, V' e
Set ObjRSA = Nothing
end function5 }, |: A( X' l' r# o8 g+ e
Function Decryptstr(Message) 2 z# [6 \: v* Z+ I" ^7 H/ G5 H8 ^
Dim LngKeyE 5 ?1 P2 }! ]3 W9 l, s) D1 B( @
Dim LngKeyD
Dim LngKeyN , \2 {( k  H  Y' P7 j' [
Dim StrMessage * o, z5 V7 }* @7 I  X: B
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" " u) N1 d. L  _
LngKeyN = "29893"
StrMessage = Message ! j7 L8 D& I% v- z% c
Set ObjRSA = New clsRSA 2 w/ S' |& }+ |; z. q9 a
ObjRSA.PrivateKey =LngKeyD   ~# b0 f' N, A+ P( p' G, a9 Y
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)   d6 I% U# v+ Y
Set ObjRSA = Nothing
end function
%>
===============================================

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

<%8 u' ^9 ]* b- }3 {& W5 |
function Encryptstr(Message)
Dim LngKeyE 4 U' s" P3 p# J
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ( G5 d) y- j8 X; g
LngKeyN = "29893" % ?! K' N+ [9 v1 a& E- z  Q
StrMessage = Message
Set ObjRSA = New clsRSA ' s/ u8 F1 Q8 ]" P% C( ?
ObjRSA.PublicKey = LngKeyE # _  ~. z- i& G. _
ObjRSA.Modulus = LngKeyN 7 n" r+ m/ u# E7 ?  _: m
Encryptstr = ObjRSA.Encode(StrMessage) & @$ A$ x8 A7 m1 i' I
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 1 s' x9 e( Y+ X: a5 f
Dim ObjRSA 5 V, @. `: |0 z5 [. e9 V( ]
LngKeyE = "32823"
LngKeyD = "20643" # m# n( C) g  @# w5 I( B3 \
LngKeyN = "29893" + u( i& [' X0 l; {5 m. ~
StrMessage = Message , H6 k& p- \7 \) n4 m4 }
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD - m9 d, y: M7 T
ObjRSA.Modulus=LngKeyN 8 H$ O( j( u; ^3 U9 W$ e
decryptstr=ObjRSA.Decode(StrMessage) 8 \4 Z/ R) s# W! ~' \
Set ObjRSA = Nothing 6 L" a6 g6 ]* F2 }/ b
end function
dim last,first 9 {8 u5 u$ @* x
first="!@#$%^&*()"
Response.Write "加密前为:"&first : d6 m1 B* q: D
last=Encryptstr(first)
Response.Write "加密后为"&last % v9 @3 C. \! ^
Response.Write "解密后为" &decryptstr(last)
%> ==============================================4 c7 S  b! R' x$ o: h
剩下的就是字符的对照表了) \4 H. n% I7 \$ ~+ {# q2 {
===================字符集================7 Q. A% c: O: }- p- y+ x" h5 j9 U
1_____6EBB
2_____5C1F0 v. r- N( a7 L1 j, |5 b8 s
3_____4D75" P. U/ W) X( k" R9 [
4_____26CC& _4 j7 g' ]' j- D0 u$ T6 J
5_____4F88: e/ m* x0 n% a% U( n
6_____3F4E
7_____0A9D
8_____1A1C( i# v* y. i) w# f# f0 @+ f% k3 V9 [
9_____6D20
0_____1089
a_____0F3E/ N" B& f3 F$ {' i
b_____3159! @8 U5 E% h& B9 I. y
c_____3517
d_____419C
e_____615C& p( `) X& G6 B& n  J+ b
f_____556F
g_____2B7F
h_____0F9C7 U+ G- `' Z+ C) [' S  n9 c. b
i_____00FA
j_____5A503 j- f3 B: k. u$ x- D9 v) N
k_____2850  `  H! U6 H! ~' W1 B% V7 z% W. U
l_____3E7B
m_____71C56 e' W" k1 K2 y; j: O
n_____1FC87 P5 A2 Z0 D, T" r
o_____74C1& n# }: s" B5 m" [( v
p_____5FB8
q_____6085! ]5 q9 C1 f; ~& v  G, W
r_____3AC4# ~$ H- \9 X$ M' \% Y8 S& V! k
s_____2F50
t_____36F8- ~# N0 }5 ~$ l' G8 N
u_____7010) }" g0 U" m' ]  A7 u
v_____0B42- P5 \' P* J4 I8 l- ?4 K" l5 s+ Y
w_____1C7A9 l; }. s3 l9 E$ o
x_____16F8. c8 K( d* f( h" |
y_____2EE7
z_____5CF3* y: p' u: Z; k: C$ X6 P
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9! B; y' E0 \3 b  X; k: n% }
^_____43EA0 z$ Z* F$ q8 K0 X
&_____62B9
*_____6301% J2 @8 G6 h& s! u: W. b
(_____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 分享给朋友]