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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm! [8 K/ ~9 ^1 T. f/ K
原始出处：http://www.3ast.com.cm
# V5 B3 v+ e1 H/ Y6 h8 o9 M) p. e
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================: g* T+ l9 O& q" ]
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法" T. |; l/ d0 j
以下是RSA算法文件$ n- f: {* U4 A% a! B  C* }
+ O( U" }5 s/ m! s
文件名RSA.ASP2 Y2 F8 w9 q: d9 J% K
===============================================. p3 j' Q* K- \) @
<%
Class clsRSA 1 v" \; }  i5 v6 ~
Public PrivateKey
Public PublicKey # B9 U' m4 K& R7 J) d- k3 M$ h
Public Modulus : E9 w4 a6 ?4 S4 j; {: z* t
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex 4 ?1 N9 F7 s; w9 K
If pLngKey Mod 2 = 0 Then
lLngResult = 1 2 q. n$ x: J* ~* n! |) w, W
For lLngIndex = 1 To pLngKey / 2 & |$ X' B- [) h$ u* u3 Q/ _
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 3 T9 ~  D- o; t  l2 G
lLngResult = (lLngMod * lLngResult) Mod Modulus " @- _! |5 H: J+ _  d
If Err Then Exit Function
Next
Else " h- e) K& S# M* Q5 m+ @3 R
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 , |- W" h1 j& }0 b/ c: Y
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 O- B5 e% d7 ]% _, ?' g1 M0 S
On Error Resume Next
' Mod may error on key generation 4 q, p* G, Q& T6 H8 A# v
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function # m  D6 K/ j9 x, l  f2 E. {
Next
End If
Crypt = lLngResult
End Function2 ~3 C, @- m6 y+ Y- n
6 @, D9 p) x" C' P; P* z# j
Public Function Encode(ByVal pStrMessage) * V7 n: e! o/ n4 u7 j; `/ k* A# ^
Dim lLngIndex
Dim lLngMaxIndex ' H7 J4 ]" m/ J) X9 C9 O6 b4 ^+ j
Dim lBytAscii
Dim lLngEncrypted . `9 ^4 }9 j. Q2 C+ S- ~
lLngMaxIndex = Len(pStrMessage) ( |3 P0 B5 n- l% ?* t& z9 g( F" u
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 8 r' y. }7 {+ x! k
lLngEncrypted = Crypt(lBytAscii, PublicKey) 9 C9 z# A5 z9 K. A# w1 `
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 1 |* M. [- a" Q7 n# j. D2 ?. ]
Public Function Decode(ByVal pStrMessage) ) ]' ^1 b2 l# |5 U
Dim lBytAscii # ^& c% R0 c* Y8 ^: t( [4 K
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 4 O8 H7 P" V% b3 E/ g7 r8 Q( D. J
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 5 M3 v, C- O' L" G  i5 _
End Function ' f8 `9 Y( b" f2 c& H2 e: B
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 7 s# ^4 X, @. M- U7 E4 l! }! K
Private Function HexToNumber(ByRef pStrHex) 1 M3 c7 I/ f) u" f& z+ i
HexToNumber = CLng("&h" & pStrHex) + h: W) Z$ `4 N2 D: }0 H! F- Y
End Function # d. {2 ?$ \' U4 }  s+ A9 r' S
End Class
function Encryptstr(Message)
Dim LngKeyE * G* ?$ c0 \  N9 }$ u
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ' r0 P! ^/ c+ K% z5 w) h( l
LngKeyN = "29893"
StrMessage = Message $ d! x3 C9 K) w6 D4 K* S
Set ObjRSA = New clsRSA " Y4 O6 x* j0 e& l
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 1 g5 U- O$ a& ?# F
Set ObjRSA = Nothing 6 T6 B% H* s$ G0 N; E* w
end function
Function Decryptstr(Message)
Dim LngKeyE , ^7 p, q* A8 ]: x% f
Dim LngKeyD
Dim LngKeyN ' A1 d& v0 A0 k6 ^& S" f% L% ?" O# V
Dim StrMessage ; i# y% n; g" A6 b
Dim ObjRSA
LngKeyE = "32823" . K3 l* H! k7 |5 ~7 g
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ) l# i) i, e5 @! S. }% M
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ' L$ _# h: ]$ k( t  O5 ~1 H* `
end function 9 ~  z  S" d- t, K3 c' ^
%>, m7 l" G* V9 ?, ]
===============================================$ T! H% X& ~$ D! V0 L2 i

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下! H  I3 g, f: R6 A
 * K; n) M( y0 ^$ `( S5 h" C
<%2 g7 Y6 z+ W+ |( x+ H( x1 a& {% p5 E5 H
function Encryptstr(Message) ; t1 a# ^# d- {) b6 D) n. W
Dim LngKeyE 7 [6 [# _4 Q* ?1 q( y; f- Y2 A
Dim LngKeyD / U0 \4 _) M8 R, n
Dim LngKeyN & T1 v5 n7 m" N# M0 ~$ s
Dim StrMessage + H  e3 p) k6 V9 Q4 k5 n
Dim ObjRSA * N4 n% P" K' e% y
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 0 k; w+ f3 t2 g: \/ W
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 8 M# r4 p3 s& B1 D% h
Encryptstr = ObjRSA.Encode(StrMessage) 7 B4 R" g& C1 U6 F7 Z" L6 G. u% n
Set ObjRSA = Nothing . {* E6 ?/ Y1 e) [$ q9 F
end function
function decryptstr(Message)
Dim LngKeyE % F" Z/ H$ e) t( b1 Y  M# c$ H
Dim LngKeyD
Dim LngKeyN , l. m8 h2 D, h, T. O
Dim StrMessage
Dim ObjRSA 1 o, N% q) H( f4 G- E; O4 Z: ?
LngKeyE = "32823" ( t4 }8 s5 c9 D) y
LngKeyD = "20643" 0 G# t  \6 l/ V7 y* R/ v
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ( q* d9 {6 s& R$ N
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first * q$ X: t7 @! G+ H
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了" E7 x  {  e3 V+ G) @& l& B0 x; J
===================字符集================
1_____6EBB8 {  U! q5 n1 r. A3 D5 h
2_____5C1F
3_____4D75  o/ p# l9 N8 A0 D6 D$ K4 D
4_____26CC
5_____4F88
6_____3F4E3 @6 @. J8 b7 x) C- z" O4 p4 `
7_____0A9D
8_____1A1C
9_____6D20
0_____1089" M$ g0 c+ ]6 ^% ?' I5 D8 M
a_____0F3E, a( L1 P& d8 Y9 k0 U
b_____3159- Y0 j! Y0 v6 K- a  J  K
c_____3517/ D7 \* F+ e& f" _
d_____419C/ j7 k- Z* t8 _, T  V
e_____615C  @: N- Z9 g' Y4 {: J+ _) k
f_____556F6 s- g0 ]# W% c$ z5 d& \4 h% J, X
g_____2B7F; o' Z9 U! \- n
h_____0F9C
i_____00FA3 Q9 ~4 e- j! t" t/ [
j_____5A507 f( q& X4 c( m! n2 [$ T
k_____2850- H7 @3 T& V. P) S# I" |' o3 q
l_____3E7B
m_____71C5
n_____1FC8+ T: `# u+ @' j
o_____74C17 W& ]( [' q1 P( d
p_____5FB8
q_____6085) }0 N( _( ~7 }) T9 N9 ^
r_____3AC47 N0 P$ B% M+ Y% U% q. Y1 r% X
s_____2F50- L! V% ^+ {7 e. }" c$ t, q$ i
t_____36F8# [( _( Q0 h/ Q$ Y
u_____70108 d% {  P8 ?# v$ v& ]
v_____0B42
w_____1C7A/ Q) N" a; X/ z8 A  t& S1 x! n( [# {
x_____16F8
y_____2EE7" A4 _  V0 M: G- \' I
z_____5CF3
!_____6233
@_____3A45: h4 X' e6 K- s: P# o2 K* d1 ^
#_____2291
$_____5D5C9 ~- l9 k4 n* P. r' }# ?
%_____09B9& W% Q2 S9 c; V( l- G
^_____43EA
&_____62B9
*_____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 分享给朋友]