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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 E6 A$ j5 O7 B/ ]' I9 h! x
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy1234566 x% h0 X2 V; A* Z
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 ^% T  d! p5 H; \# f) A5 ~

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家0 N; {; Y. \- C: o
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法6 B/ e$ z; c: o8 p9 y
以下是RSA算法文件

文件名RSA.ASP. ^5 [) z6 T+ t8 a/ D: O
===============================================
<%
Class clsRSA # [2 r" y. u6 b
Public PrivateKey
Public PublicKey 0 S' r: k! j# u- H& j8 P
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) : b1 }+ W! c5 _
On Error Resume Next ) E3 l9 u* l4 x
Dim lLngMod
Dim lLngResult - ~' v# _, m& M: o  ~$ f6 v
Dim lLngIndex
If pLngKey Mod 2 = 0 Then # s. j$ z3 j5 y# T
lLngResult = 1 % O2 p: g- o5 ?# z/ k) }
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ) }# d' a, a! Y- b) v( \
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 0 F1 ~- ]0 ~3 X: a1 A
Next
Else
lLngResult = pLngMessage + b. o7 |" |. Q7 q7 K" _
For lLngIndex = 1 To pLngKey / 2 - c$ ?' P! h4 \6 x! U
lLngMod = (pLngMessage ^ 2) Mod Modulus ' \- N! W8 d6 j+ ?$ b& W0 ~7 z8 L
On Error Resume Next
' Mod may error on key generation 3 G! R6 I6 N% J' s9 \
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 5 a8 a% g  |9 @  m- m# W
Next
End If
Crypt = lLngResult ; y4 s/ |; T! N# A
End Function  a; v  v2 x( P
) q8 R! q8 Y+ E( `* I
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex # W0 a0 W9 B1 O+ Y. E5 u1 n
Dim lLngMaxIndex 3 F/ e8 ~5 w, p; Y0 ~1 E0 o% g' Z' q3 C
Dim lBytAscii 0 z! F* ?. e/ `
Dim lLngEncrypted . d& T. Q3 f+ K$ _+ @
lLngMaxIndex = Len(pStrMessage) 6 n2 h0 D1 a1 `2 [  g0 E, i. l& I  e
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 4 v& r% S3 z' G9 b0 D+ G! M
Next , i+ c. x# h" J
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii & d& B7 r/ r0 S) k! C4 g4 `' j
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ' V+ z5 \- S$ ^$ p: h/ \* e# |3 }
Decode = Decode & Chr(lBytAscii)
Next / {3 V2 q9 F. x$ H, }
End Function & P3 A) T; V, q. ]& t$ h0 b& w4 O
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) , K5 q* u% C9 E  w5 V; y6 _
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function # T# Z: `6 ^7 d. R' _+ T
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function 1 M) g( |" f) I: {1 T6 Y1 e/ L
End Class
function Encryptstr(Message)
Dim LngKeyE ( _. N; |, G! G4 v7 w' P
Dim LngKeyD 3 h5 n2 B( n; U0 k* e1 s7 e
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" # `2 t( @8 @/ d
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message * h- g0 I  s' H  Y: `. ~; u
Set ObjRSA = New clsRSA 4 x* \. \: q9 h. P. p$ i$ L! `
ObjRSA.PublicKey = LngKeyE / M: i! v! b& d# C# ]& c( E: h9 s2 C
ObjRSA.Modulus = LngKeyN * p/ a6 y1 S, L2 R
Encryptstr = ObjRSA.Encode(StrMessage)   `: j& H5 a9 S5 e! e# W; l# N
Set ObjRSA = Nothing $ k1 b5 D! s5 ]% L3 v7 L( s3 d3 t. o
end function
Function Decryptstr(Message)
Dim LngKeyE 4 U' N% q  _9 x8 n
Dim LngKeyD
Dim LngKeyN + G7 F" ]% {* Q! c+ W
Dim StrMessage + p0 x2 [  X5 o+ y5 f- p* ~
Dim ObjRSA / }( _+ C' k% V$ n( F1 B9 O$ S7 ?7 i6 X
LngKeyE = "32823" # {; b" g; U* r; H! z2 R" k% l
LngKeyD = "20643"
LngKeyN = "29893" , b) Y1 X% g9 q; S- N" w, ?" Q# n, ^
StrMessage = Message ; o3 w# _# H1 z; [& u
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ' T$ a6 i- G2 \6 e& M" K
Set ObjRSA = Nothing
end function
%>% P3 `% H) Z# C
===============================================8 c$ a& x/ S0 G4 N

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 : D; @2 C& h" P" G* i
<%0 l, G6 W; F  d" @$ ~
function Encryptstr(Message) ! D* N# n7 x+ d2 W, H6 a
Dim LngKeyE
Dim LngKeyD + k! w' Y# a  j% q  A3 ~
Dim LngKeyN 8 s# ?. L3 Q3 L# F$ Z( y2 p/ F
Dim StrMessage # b. U$ p8 ~; C6 l! w
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 5 {  l1 c  d1 _  g
LngKeyN = "29893"
StrMessage = Message 5 o( e, [7 J5 s# d' X
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN / j9 L" {" d, Z. K: M; x9 d/ R
Encryptstr = ObjRSA.Encode(StrMessage) # k: q- k3 b! s. B+ o
Set ObjRSA = Nothing
end function
function decryptstr(Message) 8 D2 [3 W6 n0 l
Dim LngKeyE 1 R& F- `. s9 v7 I" Y
Dim LngKeyD
Dim LngKeyN ! w* ?3 j* @3 ~  l) q0 t8 v5 i" S
Dim StrMessage
Dim ObjRSA " \, ?, C7 S0 f, s; o! y1 Y! Y
LngKeyE = "32823" 4 o+ i+ J0 o' Z* X8 Y& Q1 u. h
LngKeyD = "20643" 7 s  J+ [% S# m
LngKeyN = "29893" $ i4 q9 q, G  \8 h3 k$ K
StrMessage = Message # N; G+ N' p4 P; q  z# a# P
Set ObjRSA = New clsRSA 1 w0 p4 n% K  Z1 D, @
ObjRSA.PrivateKey =LngKeyD * A. a3 N% ~$ X: Q
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 7 c. C! s0 k/ h' V' @
end function
dim last,first
first="!@#$%^&*()" % j! n% `8 t6 Y+ @! B: p# F4 Y" b
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last ) E. `! `1 S! n- E+ @+ ^
Response.Write "解密后为" &decryptstr(last) 3 [* `$ {+ y5 b; [$ m$ w% I( \
%> ==============================================$ D) Z+ `6 c; N8 [7 k4 I+ [
剩下的就是字符的对照表了
===================字符集================
1_____6EBB9 m. p# A, I: R! H# }
2_____5C1F
3_____4D75
4_____26CC
5_____4F88: z/ \4 ?, D6 t* v: m2 M+ ~5 D
6_____3F4E7 n) b+ y! v1 G; ~
7_____0A9D, x) O& z; j# d) w  l. Q( `8 M
8_____1A1C! ~, c. M2 R9 q( i
9_____6D20
0_____1089
a_____0F3E
b_____3159( `9 o& e) f3 w& ^
c_____35174 X6 H" q. f4 y  v& L. O7 E( T
d_____419C0 K! i0 ^' Y1 _: y
e_____615C7 v3 B; S. l" P' z+ V. L/ q
f_____556F; o8 b7 K" y6 _
g_____2B7F# J6 m6 m4 ~( Q  @% `
h_____0F9C
i_____00FA
j_____5A50, E3 X7 @' X; e' g4 ^4 S
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8/ R0 X- ]  G5 I; j  F
q_____60858 o6 ~4 r* O2 r2 d% A; w
r_____3AC4
s_____2F50' R8 Q' c$ s: B  q4 I* ~
t_____36F8
u_____70104 S9 R4 c2 Z# R8 k
v_____0B42
w_____1C7A( p. l  W# }9 F  ]' W6 m
x_____16F8( }( P# J, T( ^5 C% n$ B3 `, R6 U& K
y_____2EE7
z_____5CF37 x0 `! k5 q# w+ ]6 {3 T6 a1 l
!_____6233
@_____3A459 X+ ?( y! i* l" O: B; ^0 V
#_____2291
$_____5D5C
%_____09B91 \+ u1 N- W( i% K  K
^_____43EA
&_____62B9) e# Q' ^* J2 `  [
*_____6301- O9 ?% Q- u, ^; ^0 j
(_____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 分享给朋友]