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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm( ?+ @+ }  R- q$ n( s
& d) c* K: r1 k  m: \
看不懂的直接绕过9 S6 ?  H  f8 O4 G
加密前为:hwy123456% v4 n' P4 ]9 T' z( R
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 a3 T7 L" l$ w5 k$ m

============================================0 s% m; l2 a- k9 l" Z1 V( ]& e1 Q
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
" t8 e6 P* s" s! V/ e1 z. m& c1 H
文件名RSA.ASP) B$ @& R2 h5 D, c+ `" o$ }( ?
===============================================
<%
Class clsRSA
Public PrivateKey 5 w5 v" J5 Z! Z. K- i, O( m" {8 u
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex ; A0 u0 ]5 p3 {8 ?' r
If pLngKey Mod 2 = 0 Then 5 T7 p$ g& h0 q6 g4 T5 x
lLngResult = 1 * Z) x+ v6 ~  T9 v+ O* r. g9 z
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 2 h; q0 N3 |, O& p6 m
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 0 ], R6 R; c& E6 U6 w  {- R
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 $ o9 ~$ P7 ?9 q" S/ j5 m$ E
lLngMod = (pLngMessage ^ 2) Mod Modulus . i4 `: {* B# \7 N7 \& G9 H8 N6 g
On Error Resume Next $ o3 Z, u+ G/ W; `9 C
' Mod may error on key generation & G/ o' v% M& `  Q( ^- J5 A
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 7 ?/ ]* W2 S% S7 U- q9 ~
Next / @4 u3 q+ s6 u: O+ `6 A
End If 8 Y8 g6 K8 p1 q3 a9 ?
Crypt = lLngResult
End Function4 H; M- t0 g3 Z1 f$ T

Public Function Encode(ByVal pStrMessage) * \% R" F6 `+ L) f' A
Dim lLngIndex 4 b3 Q* B* W6 E) R! \
Dim lLngMaxIndex ; e3 n/ O' L7 W6 t+ j5 b
Dim lBytAscii
Dim lLngEncrypted , Q% ]- \+ \% w) V6 M) }: C
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ! S& g1 I* V4 `; }- o( y( i
lLngEncrypted = Crypt(lBytAscii, PublicKey) ; C" ]% r" s& w8 T4 X2 W
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) ! n  j8 `; P+ c( m4 N  w$ M
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 9 `7 S% j' }/ U# G2 v
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 3 Y* b5 v% z# R4 e
Decode = Decode & Chr(lBytAscii) ; @9 i. I8 k9 e: }
Next
End Function / M! Y5 y6 w$ d7 y; x* ]( f  @) ]0 [
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 4 f) V/ N* E# H( b* P8 S
End Function : C4 H" E& T& d7 ]( k8 b5 ]9 t
Private Function HexToNumber(ByRef pStrHex) . s4 r. ?' O4 u( G# C
HexToNumber = CLng("&h" & pStrHex)
End Function ) @$ S  O9 b# K" @, _% ^
End Class
function Encryptstr(Message) 8 b) N0 l) m0 o
Dim LngKeyE
Dim LngKeyD 9 S3 J+ D6 F( F4 z! z
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" + n$ w6 P4 j. a
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA , v' L+ r3 _; r
ObjRSA.PublicKey = LngKeyE ( Y/ S& Q1 ~! X% w3 j" ~9 n
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) - t- H9 _+ N6 N5 F
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) - E1 z' i; a1 H) p7 q
Dim LngKeyE : v. n/ Z" h! V6 X- G+ m3 q. `
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 2 [8 q: _- i' M4 B
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 3 d% P3 k! y" P* L! k$ I
LngKeyN = "29893"
StrMessage = Message 4 G) k, q3 q1 W1 H2 F
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 0 L: J# l8 @5 j9 t' U+ T1 k* U
ObjRSA.Modulus=LngKeyN 3 E1 w6 L' C+ h. a4 P; x
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>; D& a) E$ ^9 y" d* O
===============================================

还有一个用于测试这段代码的test.asp" e: w7 M4 x5 O# D( X% h2 G
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE 2 u) J- V/ O1 g" U; U- d
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 4 V: a* p. M4 z
Dim ObjRSA
LngKeyE = "32823" ) {# s' o4 c" m5 r- e. H
LngKeyD = "20643" " c0 v. b# H$ q( W# O
LngKeyN = "29893" 7 J' I: u( |( \! F. l! D/ q
StrMessage = Message
Set ObjRSA = New clsRSA 9 H$ ^! z8 h3 p+ s1 g
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN / Q* L4 \+ ^* D& Y6 x
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function ' w" _; C  H% p5 ]* o- U
function decryptstr(Message) 0 P6 l* C) t3 n( Y3 ^6 R7 d4 S
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN * D7 Z. m+ E3 J
Dim StrMessage ) ]! J! b& s6 T
Dim ObjRSA
LngKeyE = "32823" ' `8 f0 G2 N9 Q5 i  |
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ) P1 w5 w! J. H, B; y0 q( D5 Y
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first , U8 G  G( a' r+ e& V6 o! H. x
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 9 r9 `/ E* F$ y/ {
Response.Write "解密后为" &decryptstr(last) " w) D( L0 A% C3 O. ~
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D753 A- I2 J5 y# e: W2 p5 L, u( C
4_____26CC9 H: }: i7 s' X- w2 |/ e* i
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____35172 y0 h9 ^! o& b+ v9 v8 u
d_____419C9 p: Q) i" C# D( ^
e_____615C7 O7 }. Y/ \- X' M4 A6 Y
f_____556F' E" ?3 T4 _& _9 I: S' L
g_____2B7F+ G! s& e4 I% B3 X  k9 Q/ ~
h_____0F9C
i_____00FA
j_____5A50: x8 ?" r1 v! N' I. b5 i; f
k_____2850
l_____3E7B: v4 [, Q! M2 n- R& u4 Q" }
m_____71C53 p9 @; i5 P8 l* u8 _
n_____1FC86 i1 }5 w7 d' ~
o_____74C1
p_____5FB8
q_____6085
r_____3AC4! c( S9 h% I+ C# ]! j
s_____2F506 }) i! |* J, M9 e8 y+ o
t_____36F8- O0 P( p% t5 A
u_____70109 S6 \1 X2 q+ a+ X# E( W
v_____0B42! i( S( V$ |) {+ e, f
w_____1C7A, j' s2 d% `$ u: b- t4 o- ~% q
x_____16F8# P7 X9 o1 W3 F$ y
y_____2EE7
z_____5CF3" \4 g7 J; V. q$ @0 _( l
!_____6233' a1 c+ N9 D, [  c
@_____3A45) a- a5 q% j2 H9 F
#_____22917 V- j6 n( D4 g4 Y8 I; G8 e3 k; N
$_____5D5C
%_____09B9& @. N0 H, n3 K0 K9 K7 _
^_____43EA
&_____62B9
*_____6301( o9 ?. @4 k, D* `
(_____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 分享给朋友]