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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm/ b% p2 r) \5 G/ z3 b/ K# C
7 M7 [  A. s/ r: V
看不懂的直接绕过9 P) D6 F6 C: f4 C! I
加密前为:hwy1234561 b5 y" B1 `/ N) r
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E$ C. }. V! _. D  N! @
! J1 ]$ U9 o+ @  e9 T2 x. w
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件7 F% F( S, ?: X7 N' h

文件名RSA.ASP; ]  C( T6 a7 v+ t2 |* ?4 C- e5 V
===============================================5 m4 X! c% W) a( O$ C
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ) N5 H2 Z9 A% g; s
lLngResult = 1 ! m" z  x1 q2 v9 z: W, }% N4 \
For lLngIndex = 1 To pLngKey / 2 ) _% n9 |; j3 s
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 @7 @- z6 I# t. Z% ^
' Mod may error on key generation " \! k/ r. d3 ~1 \$ m+ J* g4 e+ o
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 s8 s& j' g- q
If Err Then Exit Function
Next
Else 0 N7 }" T& L- j: V
lLngResult = pLngMessage " V! @  G$ V, s% A* n% T
For lLngIndex = 1 To pLngKey / 2 2 P' p9 W! `' r/ M; o
lLngMod = (pLngMessage ^ 2) Mod Modulus # O" k% B( X5 q# o/ R' B
On Error Resume Next . n4 k$ R* C( [% E. Q
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ) e" C5 ~- Y* p2 G5 r! r) B
End If
Crypt = lLngResult
End Function( d# N# J, a! |1 V1 d2 M: J9 L

Public Function Encode(ByVal pStrMessage) * B+ [# D7 q6 `1 p5 j9 D9 P  ]
Dim lLngIndex * `. q' w% A; I; i  p8 A
Dim lLngMaxIndex   S( y$ u6 N+ S3 W* L3 _% M
Dim lBytAscii / O* e. Q+ l0 S8 ?; o2 ^8 N2 L
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex # k" S# a6 B5 {3 R. y1 ~9 |2 P
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) , c5 Y. `- ]. }: A9 `$ _
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii % t% Y& A% }2 t( L6 h
Dim lLngIndex 4 T  O! I: C$ Q# D
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) + g! w0 h* q4 Z# f5 s0 P
For lLngIndex = 1 To lLngMaxIndex Step 4 . Y- `5 g5 {& {2 K
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) , [2 r: I% w1 E/ D
Decode = Decode & Chr(lBytAscii)
Next
End Function 9 j4 [* s$ y: T4 N6 i2 x( Y
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ) ~1 g- x7 o3 ]) \9 ?( r/ C7 R' f
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) % d6 y+ T: T1 B4 q8 a, }
End Function 0 c% W/ b: K" X7 w$ M) [
Private Function HexToNumber(ByRef pStrHex) & i9 V: l8 m: Y* D. y% V9 I) i& x- P
HexToNumber = CLng("&h" & pStrHex)
End Function + s% g7 S) ]- q& f
End Class / [4 n" L  e# m, W1 t! O. z
function Encryptstr(Message) ) L: j( [$ o" V# c% N+ B1 s  x* `
Dim LngKeyE ) B' q( D# N  A; K! b3 Z; O: e2 O# K
Dim LngKeyD " h+ Q# C& w* F% r
Dim LngKeyN ; Q! q2 ^6 ~6 Y5 c5 S
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ! H* E) C9 I* \7 d$ W; Y4 j+ c
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 9 p/ f& [) q& b) I
ObjRSA.PublicKey = LngKeyE . k( ]3 v- x9 A: T7 P: H7 _, b% n7 }
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) # _' L, ?1 R/ S4 m" p
Set ObjRSA = Nothing
end function+ w. q) T2 J7 A) N
Function Decryptstr(Message)
Dim LngKeyE 3 v( i& H  U  M, \
Dim LngKeyD # q1 n. K, g8 l: n5 S- {' m
Dim LngKeyN $ f& y7 m# c' i
Dim StrMessage
Dim ObjRSA - Z* l& s& D& [; Z* `0 P
LngKeyE = "32823"
LngKeyD = "20643" 1 C* d* v& r+ ~1 r' J! e7 d7 U
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN % o" B2 U# f: }( o
decryptstr=ObjRSA.Decode(StrMessage) 2 I* _/ @% @- l1 q9 w7 Y% P1 H2 c
Set ObjRSA = Nothing 5 [& o; F9 t. s0 v1 Q' P, j8 D
end function $ {( H& l+ e/ L
%>
===============================================2 Q# ^: \8 \5 A
4 F4 F5 t. ]2 _( X% l
还有一个用于测试这段代码的test.asp6 }( u4 I1 |# P6 n
有兴趣的自己搭建个IIS测试下& ]# \* Z$ Z  ~* L" Y" p
 $ Q: X' S$ i1 V; k6 }2 u
<%
function Encryptstr(Message) ! G6 i3 k4 T" x; X" R% M! o
Dim LngKeyE 8 F! C# ?. l9 u! T) v0 \; Z
Dim LngKeyD 7 c0 X  u8 |2 ^' U
Dim LngKeyN
Dim StrMessage 6 c- g, q. x* L$ a2 W
Dim ObjRSA 4 w" d6 p( ]0 {. g6 [+ r3 v
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 8 S- z3 |7 }' y$ X) [
StrMessage = Message * L9 W8 ]2 p: i2 ?5 R/ \
Set ObjRSA = New clsRSA 7 J/ O$ m& B8 M4 f1 E& L
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 9 w: ^) Y2 k) P1 o
Set ObjRSA = Nothing
end function ; P/ `3 m* J/ R1 f( ]
function decryptstr(Message) ( _  Z, z* d5 V: B! `
Dim LngKeyE   U7 s1 i+ j' n, }6 x* B& y+ F
Dim LngKeyD # ~' H# L9 o  U% Z- K' u
Dim LngKeyN ( k0 v& Y- D. y" m) N  [
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" : f  W, _9 V/ t  u) O) E% }
LngKeyD = "20643" ; S3 _" m+ d4 r3 j# I3 M
LngKeyN = "29893"
StrMessage = Message   u# G" \* u, Q  ]
Set ObjRSA = New clsRSA + Q6 m5 l( {+ ^" V2 G9 f& O
ObjRSA.PrivateKey =LngKeyD 1 K; W3 X2 L# n# y! O1 k9 w
ObjRSA.Modulus=LngKeyN ' ^! T# b; c" L+ y: J+ w
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first , ~, W7 ~; b6 }3 R) W, o7 y
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last + H5 J4 h% P- M7 f! z
Response.Write "解密后为" &decryptstr(last) 5 \9 o5 d3 L. ?/ M
%> ==============================================
剩下的就是字符的对照表了4 B6 h) S! o( w2 ?; g0 N: [
===================字符集================! g# u9 n3 m3 W9 c9 ^! U9 F1 F
1_____6EBB$ ]9 K1 e: R# E, `
2_____5C1F
3_____4D75/ N, s7 P: c2 I8 ~2 ?
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D) P; y0 P- [9 r$ J! F9 R+ W% d# f
8_____1A1C% O3 U3 f9 ~% z' }/ |  O# J
9_____6D20
0_____1089! r. L4 b' }2 p1 G2 G9 F1 |* w
a_____0F3E4 O: w* i8 r- |+ }" E& I( r
b_____3159( ]2 `/ s! Q& u( e) c
c_____3517) S4 x( r) \, w# ?, K2 k
d_____419C
e_____615C+ z5 W0 k3 p7 }7 T: S
f_____556F
g_____2B7F# m2 n  z2 d8 ]8 ?3 x5 N
h_____0F9C
i_____00FA' t* C: Y7 n$ H- p4 I' g- l
j_____5A50  c7 u) d6 H  a. W7 v+ X% S7 }
k_____2850; v2 H: x! M6 G( p" G' {+ P8 C
l_____3E7B$ N; ?& t0 I& D" O) y3 k0 z
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50# V8 {0 n1 j0 ?0 M8 i6 P) M
t_____36F8
u_____7010
v_____0B426 T& E; ]6 x) d4 W% @
w_____1C7A
x_____16F8  U$ U3 |- e9 i) D8 M' k' |
y_____2EE7
z_____5CF3
!_____6233( x- B# r' C; ~; F- E( D, S
@_____3A45+ S  Q+ t7 g$ X/ }+ v
#_____2291
$_____5D5C# n& l' a1 V1 d8 z5 d
%_____09B9
^_____43EA
&_____62B9; `4 s9 m. q; z+ b7 J- x* a
*_____6301
(_____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 分享给朋友]