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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm5 c; ?% h! Y3 h5 q) r7 s! K
原始出处：http://www.3ast.com.cm

看不懂的直接绕过, q" f0 `( q  r* A; C  L
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E0 u  O& ]* |! ~  [
# e! f* k1 W- [! L3 Y% m: a8 p
============================================9 F/ f4 L4 z+ q+ d& d6 O0 V5 h
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法2 h: |( h$ l- A7 D
以下是RSA算法文件- M7 a) m4 g# {2 N4 H) g! M* O

文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next   d5 Z' M1 z9 ^( i
Dim lLngMod 6 U' x* F" E- K# Z
Dim lLngResult ( K2 Q. ^: t5 s
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 . V% Y* D8 y1 }4 H
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 z- p% C' z( A) n1 h# j0 S0 m
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else ! |+ _; s: U. T, [- I" W
lLngResult = pLngMessage $ \+ t8 I' _& ]
For lLngIndex = 1 To pLngKey / 2 ' F4 H. V5 h0 k7 s' k
lLngMod = (pLngMessage ^ 2) Mod Modulus - w' W( {4 {5 h9 ?
On Error Resume Next 7 w3 h8 m" G- z* Y% b- I& A
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 3 a$ V8 j& N! M2 ^, V% H) c2 O
If Err Then Exit Function 5 R) w4 J; [) _" R3 z5 P
Next & J$ n3 L& T1 e+ e
End If . M! F9 ?# c: M4 ]# S+ |3 w; M
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 3 `1 w) F' Y6 d6 u2 L
Dim lLngMaxIndex
Dim lBytAscii 2 c7 r* _& }# S, ^: S
Dim lLngEncrypted ! V. K( N1 c6 W# Z+ d. h
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 9 S2 r$ D1 N5 V7 e0 g9 X& U
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function $ y  j8 t4 X% O$ Y, _
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex ( C! x3 n" _) T
Dim lLngEncryptedData - ^" v6 [6 u, g. r1 B
Decode = "" 3 g- w6 `, }7 z' K  g3 l  X: K
lLngMaxIndex = Len(pStrMessage) - X8 z1 ]4 L" C0 [: \* f
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) / o% e2 R7 x  Y
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) " C8 k+ j" w8 V3 C( ~. |* w
End Function 9 s/ C1 i; l& Q& D  B
Private Function HexToNumber(ByRef pStrHex) $ H' w6 b" s& E) p
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)   Z/ H5 X) X; G$ d- A
Dim LngKeyE # \( ~6 l$ y, e2 w( o* z8 x3 u
Dim LngKeyD
Dim LngKeyN 1 v$ Q. s- Q3 F, i: I
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" # S( s4 I2 t- S0 |* h( Y: e
LngKeyD = "20643" $ `, v7 i0 v2 f6 x( O
LngKeyN = "29893" ! S/ g' Y" S, q& N; B
StrMessage = Message
Set ObjRSA = New clsRSA * e) o% n$ v4 R  M- A$ C3 c
ObjRSA.PublicKey = LngKeyE 9 K, Z' S$ B1 V9 T/ `0 j
ObjRSA.Modulus = LngKeyN / f' w# F% Z; M( z1 I' I- Y
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function4 V! B$ z6 \$ Z# a, N  s
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ; m2 ?& U) M  N* G& n
Dim LngKeyN 7 p' s2 v6 N) |( }
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" , v7 ~5 ]' ~& C/ W" `  k8 r2 m
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN # `0 q! e1 m: y. Z& R
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp- T* I5 C" e2 m1 N) j
有兴趣的自己搭建个IIS测试下( k% ~% o8 N5 X. y+ p+ z/ e6 Q  g

<%
function Encryptstr(Message) ; L5 g. y3 @  w
Dim LngKeyE 1 d9 g) K/ I2 q; A& p$ U( X
Dim LngKeyD 1 }0 [0 l$ w4 T2 G
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" / L/ z8 m6 t! Z4 ?+ k
LngKeyD = "20643"
LngKeyN = "29893" ( |1 j- N2 v) }+ V  r; n
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE , {/ {" ^5 T6 Y6 B
ObjRSA.Modulus = LngKeyN % T7 ^! A$ l' z. W' _
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE 1 x  Q8 ]. f, b4 I3 \
Dim LngKeyD $ T7 ~: \# L2 |6 G+ B5 F. d! {8 _1 N
Dim LngKeyN
Dim StrMessage
Dim ObjRSA $ A. E0 G$ ^: M+ j) v
LngKeyE = "32823"
LngKeyD = "20643" $ K4 ^% w4 @) G) G" i
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA . l: b- x1 R' B$ s1 f
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 8 m( f( |3 |  v7 A4 e( \: u# i; p" r
Set ObjRSA = Nothing 3 a+ n  g, ^0 F! c: F! M
end function - q0 A) b) B6 c8 j* _
dim last,first % ]9 B( U9 |9 g3 m3 N/ n
first="!@#$%^&*()"
Response.Write "加密前为:"&first 3 H" v0 z, X) s2 l7 j7 A
last=Encryptstr(first) 3 Y, c, G$ C( x; D( S/ \
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================9 I; }8 [1 |! j* t: w
剩下的就是字符的对照表了: `; N! M( I3 }, o; D
===================字符集================' p7 f$ n6 \) j+ _' R- K8 J
1_____6EBB0 b4 G2 E* D1 d0 ]- D( S; E; h
2_____5C1F
3_____4D757 k( A/ U8 o* t, U
4_____26CC2 z  l0 E/ ?( C5 N3 \1 V
5_____4F889 z: Y; z7 X8 T: N! t
6_____3F4E
7_____0A9D
8_____1A1C% k+ }* ]+ W2 n$ l! Q" Y- x! i
9_____6D20
0_____10894 C( A) Y2 Q7 g; G
a_____0F3E
b_____3159! \0 U0 y: V1 i) i0 V
c_____3517  [- |- y0 f  ^; h4 A
d_____419C
e_____615C
f_____556F- T# |" ]4 o! b
g_____2B7F; t  K" ~1 n  \! G$ R* f
h_____0F9C; J, u* G' ~) o! J# t
i_____00FA
j_____5A50; _. g3 B6 T+ r6 y" R
k_____2850- B* W2 d/ C/ T" E( q
l_____3E7B
m_____71C56 A" \8 n" u4 c: K2 p" \5 b+ k
n_____1FC8* J4 B6 ~1 R( K* _$ ]* a
o_____74C1
p_____5FB8
q_____6085$ f- ~2 Q0 J* c1 I9 i( T
r_____3AC40 r# A5 h4 p( e- d
s_____2F50- x9 G2 m6 O% k* H& ^4 M
t_____36F8
u_____7010
v_____0B42" [7 w% x9 p2 q- x$ w# y% n4 }4 _1 m
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233$ ]+ q# E; N$ i" s( F+ I
@_____3A45
#_____22917 Q  o6 g# S* M
$_____5D5C( _! J, l) v9 F: R( l3 `& a
%_____09B9
^_____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 分享给朋友]