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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm8 Y; H5 l% u# Q
0 T; \, Q6 o7 V3 _2 W0 c! d
看不懂的直接绕过9 f4 r% V  k! G, F# W; ?
加密前为:hwy123456/ M9 H( t: n: z. k; L: [& q
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
4 O5 C4 ?2 }  T/ ]
============================================+ l! b# m/ b' `( z7 h5 a
上面是当时自己校内的心情。现在已经解破出来了，分享给大家+ G, [( L; a- d; T. u
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件  w% ~6 C1 N" o  ~& S

文件名RSA.ASP
===============================================
<% 8 n, P" {$ o; D: M7 Z$ Z
Class clsRSA
Public PrivateKey % c4 ?3 s& ?  @0 v( R% X
Public PublicKey
Public Modulus 3 G4 n; `- I; [7 G
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next . W$ n! D' _2 M" B
Dim lLngMod   W$ r/ z. L( a, D9 A' w6 M5 r, b
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 # B- K+ y* \$ _/ Z& m
For lLngIndex = 1 To pLngKey / 2   C+ z( m% R; o: u! e+ ~
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 7 W' F  L5 l7 O6 O6 E2 f- h
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus $ c4 q: W, r7 V. g
On Error Resume Next 0 C: ?# Q  R! F" w% }
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function , T: T! X" Y! @/ |4 W( s
Next ! [. U4 R; f6 ^8 ]5 D5 u
End If
Crypt = lLngResult ! M: f. K( ]1 i( Y8 W0 \: ]- }
End Function! K  y0 R6 y5 N" w$ }- x2 x* Z
; E, _) v, P3 O8 C1 N
Public Function Encode(ByVal pStrMessage) " S, |* ~# d' ?, Z% J% n2 _
Dim lLngIndex
Dim lLngMaxIndex . F" t2 i: L/ o
Dim lBytAscii 5 H& A7 b' p- t
Dim lLngEncrypted 0 k+ |. U; V0 Q$ q* `
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 8 i, ]# z0 W& F# u* E
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 2 l  G! P/ ~! {- J) T+ d
Encode = Encode & NumberToHex(lLngEncrypted, 4) 2 X. q$ L+ |; N$ h9 W
Next
End Function 8 e  b' h+ ?) |9 c1 Y
Public Function Decode(ByVal pStrMessage) , B* K* i5 q/ ?3 G
Dim lBytAscii   l% k1 C* H" U: ~: J6 w
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData   g9 o6 H1 O8 F
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 0 a5 c5 \. ]. q2 i
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) ; q2 s8 a  ]. `
Next & u  ?$ ?; D# f* x. w7 p
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
End Class ! `: `' o7 Q* _3 m+ b
function Encryptstr(Message) . ~6 p& N/ G" s
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN * W3 T/ H7 z3 x% f7 e# r5 ~/ h0 `
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 5 Q$ ~; i$ G/ }" y
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ( m. r" N% W2 U/ F2 r/ `  \" ]
Set ObjRSA = Nothing
end function3 A8 W+ j( r, }! c, E% G
Function Decryptstr(Message)
Dim LngKeyE 5 f4 u) ?7 B3 L* G( m7 a
Dim LngKeyD 8 w) z+ _6 `' U0 C1 H8 }
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 9 ]" c2 C- U# t
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA - s1 y4 Q; M1 V$ I) h
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 1 B0 c8 F" P* O& t" m. g
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing * p0 X8 S, ~% {9 Z+ h
end function
%>7 n4 V' t  J/ T; i, x6 w# l9 L
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下' `& v: l. ]) k$ O( N( {0 |
   [* X# x7 p7 k/ \: ^3 k5 F$ s9 J
<%
function Encryptstr(Message)
Dim LngKeyE $ S2 \3 f7 u2 R. U5 c
Dim LngKeyD & F2 C8 i, V: N; G; O% L8 Z
Dim LngKeyN 3 h, F) K, R8 a9 [
Dim StrMessage & ~" Y' M( b6 E6 ^% Q( W
Dim ObjRSA $ v6 x  i8 M4 \, y
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   D7 f& J' G5 q- l, P7 x; d
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) ; {* H/ ~$ Q0 G4 c" b' D& ^- L
Dim LngKeyE 4 H# O8 l7 ^& y- E2 W
Dim LngKeyD / u6 E! ]! V' k$ t  `) G$ a& T
Dim LngKeyN . R9 ~4 [1 O' y5 s' s" `
Dim StrMessage
Dim ObjRSA " |7 A. ?% y1 O! H
LngKeyE = "32823" 6 n) e$ t* ?) \9 b
LngKeyD = "20643"
LngKeyN = "29893" 3 y$ m- H% n$ K( r5 V$ o
StrMessage = Message
Set ObjRSA = New clsRSA * \0 c. d- h" U! A, W0 n
ObjRSA.PrivateKey =LngKeyD + x1 G7 L. K2 d' n" X
ObjRSA.Modulus=LngKeyN 7 Y0 A9 Q3 v: D" |2 Q% O
decryptstr=ObjRSA.Decode(StrMessage) - M9 Z) [1 v. E+ D
Set ObjRSA = Nothing
end function
dim last,first - G) Y% N6 m3 u4 |. w1 W
first="!@#$%^&*()"
Response.Write "加密前为:"&first - I0 M$ c, w3 ^- H7 I& y: C
last=Encryptstr(first)
Response.Write "加密后为"&last 2 |) Y/ o$ g# K6 {# Y- I
Response.Write "解密后为" &decryptstr(last) - S: f9 h: @: w9 |# O5 O8 o% D7 {
%> ==============================================, \3 H8 @- u! A7 H9 _
剩下的就是字符的对照表了' I/ L, f! ]& Y/ T1 K- _1 Z
===================字符集================
1_____6EBB& z0 N7 E/ ~9 k3 X' T
2_____5C1F
3_____4D75
4_____26CC9 V* K0 ^. i) ?0 {0 o8 V0 ]
5_____4F883 V: O" X; B9 |  G& S* u
6_____3F4E
7_____0A9D
8_____1A1C- s' z5 `3 A8 ^9 v7 H# o1 ~
9_____6D20
0_____1089
a_____0F3E
b_____3159  k7 d) ?5 m7 }. k
c_____3517
d_____419C4 m- Z$ k; }& Q
e_____615C8 B" V& v& N% f# Z& y7 @) m( t
f_____556F' G) L) ~  {8 @0 R8 ~
g_____2B7F* \% y$ \3 a3 S9 x. v" H9 b4 {. g/ Y
h_____0F9C
i_____00FA5 I8 g8 b& M7 f! Z- J* V3 d
j_____5A50
k_____2850
l_____3E7B
m_____71C5) S: E6 H8 b( \
n_____1FC8
o_____74C13 O; \, ~. B: ^) M# u) w
p_____5FB8) Z* R% p: C# X- W% F; H! i
q_____6085) y! s' n6 R5 v4 u0 r
r_____3AC4% ?1 r5 F* ~3 S+ p4 Y
s_____2F508 I5 F0 `$ A+ U; W/ m
t_____36F80 T6 T3 l: P# `0 x, q5 K: O
u_____7010
v_____0B421 M4 e8 Z+ ~7 w3 u
w_____1C7A1 z# G# M0 y- I4 M7 U" V  X1 A
x_____16F86 i6 \1 K+ e" P" b! y7 a' \5 `
y_____2EE7( j' ^( _0 H) }+ d- m% D% g' I
z_____5CF3
!_____6233
@_____3A45! \& t- z* u' J9 ^) t% [( L
#_____2291
$_____5D5C
%_____09B9
^_____43EA6 T. g& Y1 b6 G4 o( m, u) D5 ?
&_____62B9
*_____6301: g; f/ i  P, y8 y
(_____46591 w6 e) t& x5 h% A& j! `- F
)_____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 分享给朋友]