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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
% m& `# c$ [1 F& u) P6 |
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E" C4 m3 l$ t! T1 j6 N
- b. B! I1 s# l8 `
============================================8 B0 y' M2 j2 f; b
上面是当时自己校内的心情。现在已经解破出来了，分享给大家* _3 h& P* `' T
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法) m1 o4 W& @0 E9 A( ]
以下是RSA算法文件
9 K# u9 j5 _4 t4 g$ l2 y
文件名RSA.ASP9 g" x3 d; W$ R9 L- e6 U4 T
===============================================" b/ ~( R" W! x4 i; ?2 w6 U& X
<% 6 L# {/ ^# s( Q  m% a! E
Class clsRSA ! ]9 C" ?  W& i8 l* V* Z. G0 m
Public PrivateKey
Public PublicKey
Public Modulus 3 p) q  s' ]; W/ k+ p
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod * p7 A2 k( |+ @( R& J
Dim lLngResult 1 o9 x% n/ I. z; g
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus . H& x9 g. X6 j! n3 j( a! j
' Mod may error on key generation 5 s4 b6 S- N! W
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else & n$ N7 I' p$ w2 x
lLngResult = pLngMessage - u8 v5 }0 G% I
For lLngIndex = 1 To pLngKey / 2   C" p+ x7 H$ w
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 {' y  f5 h! [( J6 d' K9 l
On Error Resume Next ) I2 U8 y% K( _3 {
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ' N. S3 |, N2 W8 }. ]2 ]6 \
Next
End If ' l/ w/ `/ @7 n" q
Crypt = lLngResult
End Function7 ]$ W( y8 d) z& g2 y3 B( T

Public Function Encode(ByVal pStrMessage) 5 C5 ], L) H8 x) M( r  n$ E0 L+ ?
Dim lLngIndex 4 o) H% q/ L  r. p( q$ z
Dim lLngMaxIndex
Dim lBytAscii 4 ~! X7 Q8 [7 n, h5 n
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 0 M, X1 S6 c7 o/ m; ~4 J) W9 L9 ?
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 @7 _+ o) W6 z* `% Z0 k
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) , c! v  @1 e; `; H9 e% N
Next ; ]6 ?! e0 Y& r7 e& b
End Function
Public Function Decode(ByVal pStrMessage) % j+ I* g- g- k. N# k& A
Dim lBytAscii
Dim lLngIndex % g- i+ p/ E1 Q: C, f0 b
Dim lLngMaxIndex   r! c) {+ e" K+ p7 P
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) " Z* g0 a# J% b- K3 a, d$ s. Z
For lLngIndex = 1 To lLngMaxIndex Step 4 $ r' N9 Q, M- d# Y; Q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 1 F% s/ O' X7 \: a7 |" V
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function : F8 }5 m3 P$ h5 t  P0 r5 h1 O* @
End Class
function Encryptstr(Message)
Dim LngKeyE # K) _* b5 t! k9 Y( Z
Dim LngKeyD # V: v9 P) N/ K) ]3 F8 W
Dim LngKeyN ; |  e2 z0 P. }8 b/ n
Dim StrMessage
Dim ObjRSA 4 V- E3 L+ j# u
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 3 @8 {# R$ O! W; C- Q: t
StrMessage = Message . g7 K9 T5 H/ B4 B* r: o
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 7 w0 b# B8 B3 ~1 n" G+ g- ~
Set ObjRSA = Nothing
end function  b8 k6 ~* }+ A6 p( r' D
Function Decryptstr(Message)
Dim LngKeyE : c% t: z, W/ J; w9 X
Dim LngKeyD ( v. r- \! V* V1 Y3 V& A
Dim LngKeyN ; ^# O- P7 `" o2 a3 a; N- o5 m# }
Dim StrMessage . V6 D/ W6 q6 N/ M% S) z; e. Y" I
Dim ObjRSA & K7 l( F! b0 n9 A
LngKeyE = "32823"
LngKeyD = "20643" : v( z+ b6 b# F% `( o" q$ N
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 2 v7 s6 |% C8 W6 m8 S" `
ObjRSA.PrivateKey =LngKeyD 6 s* c- ^: _- E2 i4 @, ?- R; w# m# s, k
ObjRSA.Modulus=LngKeyN ' M5 `+ m; g8 z; u. a. j) m
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing " p0 Z4 X9 C& n5 _1 F
end function
%>
===============================================  x/ n, |9 e: D' \/ J6 J

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 . d) b, K1 G$ q6 p5 z
<%. F. q, c+ N: C9 s
function Encryptstr(Message)
Dim LngKeyE : F* }: o! K2 B1 v6 M: G
Dim LngKeyD
Dim LngKeyN , A8 ?4 |5 w% w
Dim StrMessage
Dim ObjRSA $ y; Y1 z: `: K  `- L( H
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 2 J* l' w1 v1 Z& ~5 @) L
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 3 U- |/ z  A) }" X3 u5 `
Set ObjRSA = Nothing , v2 v1 k1 w3 X+ a1 z1 d2 m4 t
end function ' {( ^8 a% O' }- w
function decryptstr(Message) ( C( N6 |$ d1 P6 k
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 5 c# ?3 A9 F9 i* }: R2 _( h7 z; L
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 5 n# M) C; b7 t. c4 M- Z  W2 c0 \. z
LngKeyD = "20643"
LngKeyN = "29893" ' Z0 G5 g) ~7 d9 p& g
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ! V& t& J( `! q3 x# F5 R: n
Set ObjRSA = Nothing
end function
dim last,first # @& ~+ W' ^1 a" Z8 w/ W
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last + z# e9 M& h' H9 u" G* ]
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了+ T3 F) J. r+ j( P
===================字符集================
1_____6EBB
2_____5C1F  ^3 B3 ^7 d" A2 D/ G6 d
3_____4D75
4_____26CC4 W/ y3 }6 h6 O5 o( T. h
5_____4F880 E6 y4 H8 {" Y' D) a: C" P
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C/ G9 n" W, p0 g3 a( }& K+ s" L! @8 w
f_____556F
g_____2B7F! I2 M5 G7 Q& w. l- R* }
h_____0F9C* n6 Q2 H+ j4 E; k9 I
i_____00FA; C: D% `% [$ H
j_____5A50& s% Q  i% a" i, d0 V
k_____2850. S- _6 W3 $ U! q. N( w
l_____3E7B. ~" `  a1 i) s  q
m_____71C52 z5 d0 G3 F5 J2 R! ~
n_____1FC8
o_____74C1
p_____5FB8- d3 l% [0 l5 w/ l, N6 k& T
q_____60850 t+ s6 v8 b# V: n
r_____3AC4: Y1 f* e( O; H+ ?1 }. @
s_____2F50. b8 N" B8 P4 ]5 t8 \
t_____36F8
u_____7010" \8 G6 w  `. Z/ @" i7 c1 p  b
v_____0B42
w_____1C7A0 J% C3 e6 T3 \4 Q/ {
x_____16F8' a5 S' z6 c9 F# o. i$ l
y_____2EE7' P, P* t( y# n; t& $ d
z_____5CF37 i+ L. o5 \8 u) g  `2 P- A" ^
!_____6233
@_____3A45
#_____22912 j7 R" _( K' Q$ C1 \
$_____5D5C
%_____09B9# H/ r7 f+ V5 k% H$ G1 t
^_____43EA
&_____62B98 e& J5 i; i% r+ p$ t# e
*_____6301$ a& n  [( U: K; z7 a, }
(_____4659" n7 j+ S& O  z7 U( J9 x* ^/ y
)_____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 分享给朋友]