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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm9 Q5 l( D8 `* v0 ], Z' `
原始出处：http://www.3ast.com.cm

看不懂的直接绕过6 h6 q& x+ @8 H& x' e. Y
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E- y7 w3 g3 F' q: @% {
( q; ^5 X* u3 L. F! `- L& R- [1 Z
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家' G/ B( |4 B; H8 F$ r
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法  N0 E+ _7 X4 W* d& X
以下是RSA算法文件$ V: a2 C, c+ y

文件名RSA.ASP6 m! O. @, q5 b. _  m
===============================================& U! d4 A1 ~6 }7 G( w9 ?" S8 L: F
<% $ m8 f. E" Y) U- Y) t' v
Class clsRSA 4 G4 @: ?4 {. G* Q) b* C5 L
Public PrivateKey 5 n) k, _  ]5 O; z9 S, Y9 R
Public PublicKey : z& f7 i6 X/ Y: y
Public Modulus 9 b+ _; O9 s* N& v
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 5 `5 h1 E5 x7 v
Dim lLngMod
Dim lLngResult ' W4 I8 g" J- h3 J
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 2 o( t  T- Q, _) o3 |0 w
For lLngIndex = 1 To pLngKey / 2 3 k( j; C. t2 P. B
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else + f3 g" c& h/ U4 g9 x5 ~* B
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 8 `, S: h) z: W0 X( P. e
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 Q% B) I( h( k! U( w( P3 \& |
On Error Resume Next   C# ]. a' T* \4 M/ M9 b' C) `# b
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus + T1 `3 `1 |' P* b: X, h
If Err Then Exit Function 3 c3 x% n. F% g
Next ; t4 K& f* e3 r! b$ K/ v
End If
Crypt = lLngResult
End Function
; s, G" u- N1 T- d2 c
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex $ V7 P) B* e; H$ L8 X7 l
Dim lLngMaxIndex ' w- i, Z1 U! X! i! X  D8 `
Dim lBytAscii . X2 x/ L- |8 c( q$ P3 X0 R
Dim lLngEncrypted 7 r! O' ]: }( P, F
lLngMaxIndex = Len(pStrMessage) ; e: m- g3 c8 ^# f8 C2 k- x+ A7 H5 r
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 9 Z- h  ^! ?3 \' }
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 1 i, E+ o1 Z* F0 @
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 3 L1 u( V' g% l& q6 G
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData ; `: y3 a* |, \
Decode = ""
lLngMaxIndex = Len(pStrMessage) 5 b& C. U8 h6 u. g1 W1 C
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 0 t4 s; }2 K' W. u! H0 ^! H
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 E+ `5 i6 a, L5 w
Decode = Decode & Chr(lBytAscii)
Next   r- v1 e' v: k) _/ D: z
End Function   p. \' v( h/ V1 o" E  ~/ y
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) " R4 \, H- q9 H' V
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) & H) t) l5 \, j/ l
End Function
Private Function HexToNumber(ByRef pStrHex) , G+ n& t3 }/ ^, n
HexToNumber = CLng("&h" & pStrHex)
End Function # |% \8 t" B) p
End Class
function Encryptstr(Message) $ Q$ `- C& G9 k# O
Dim LngKeyE ( C4 t6 W- z' i/ b: v& ]& u& H6 b
Dim LngKeyD ( K1 p9 q/ ]8 |3 T
Dim LngKeyN
Dim StrMessage 5 o: T3 k! A0 [0 `
Dim ObjRSA   @% P$ ?: q% Q6 i  G
LngKeyE = "32823" * J5 y: A' h% B7 ?! s& |# R. z
LngKeyD = "20643" 9 q- E# s% `0 s. i3 E
LngKeyN = "29893" 3 a. V$ h6 r6 z* @* f! r
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 9 ^4 S, E7 l5 n" @1 E& I, q% Y
LngKeyE = "32823" ) N7 A3 w: S( Z6 T, s  c3 D# f
LngKeyD = "20643"
LngKeyN = "29893" * S8 m+ F. b% M0 z9 W! K  _
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 6 k$ o& q+ n, r+ S- y
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>+ L/ W, _5 E& W" M7 y6 U  V* E
===============================================
7 G% a$ v9 ^+ k1 ~) n/ ]
还有一个用于测试这段代码的test.asp; S. Y6 }. a6 Z/ n" }
有兴趣的自己搭建个IIS测试下

<%# u3 r" `% b% M5 q1 F. c: W. o" v
function Encryptstr(Message) : |( E* D0 ^% Z, W
Dim LngKeyE & Q( q) Q' ^. o
Dim LngKeyD 9 N) h) y9 [, w
Dim LngKeyN % l: y7 _. {6 v( ]6 k: k
Dim StrMessage # i0 ^1 W/ H6 j9 C
Dim ObjRSA . C3 w) z8 v: V" K
LngKeyE = "32823" ( _( F4 U5 A8 \8 F) J! m
LngKeyD = "20643" " a# f! b2 R! S
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 0 S! d" o4 _3 l. e. K
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) ' ~4 g8 T/ F1 K, z2 _" O+ Y$ a
Dim LngKeyE 7 b9 C! @* G0 \" F0 u' [
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ( \$ J. W$ C* _7 Q
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 8 {. K) q& w3 u; }3 o% F
StrMessage = Message   @3 A: z5 u. a8 v# M0 f* `
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD & \, w: [4 w$ t5 ~; N, D2 ?" J
ObjRSA.Modulus=LngKeyN ) z0 [% r) L  w/ v
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 2 Y9 _6 c6 p) \8 i# r* _, f
end function 8 z- Q  S6 T  ~( Q) @
dim last,first * L- O" i3 w+ f( d7 K- J0 }
first="!@#$%^&*()"
Response.Write "加密前为:"&first 5 j& W* _# K, C7 @" k  Y' m
last=Encryptstr(first)
Response.Write "加密后为"&last . C( [3 U# y. n/ D, q' i
Response.Write "解密后为" &decryptstr(last) 5 L2 X2 k) L( e/ H
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB2 b9 Z8 N0 R# p" C5 q& j
2_____5C1F
3_____4D755 p7 Y% A2 p1 k' N3 l
4_____26CC8 I) t6 c5 A6 k* z- j( I
5_____4F88
6_____3F4E# L1 [: ^! V/ X# w- l
7_____0A9D1 ]2 O2 O: r4 J' Q& B% O
8_____1A1C
9_____6D20
0_____1089
a_____0F3E; i5 j; r2 u& o" w
b_____31590 b- t) k, m& k, |3 ?: d
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA, G  E* N( G2 Y
j_____5A50! k. O: o3 r+ R  {( f8 l8 w
k_____2850
l_____3E7B7 ]/ o+ u& i8 P1 D9 y4 ]+ r8 `+ b
m_____71C5
n_____1FC8& r7 [0 t8 g- y% ^/ n* C9 M
o_____74C1
p_____5FB8! e+ I/ U, `/ a. b
q_____6085! ^  q& S" g% U
r_____3AC49 F4 l0 n2 G5 F3 _$ [# z  L0 n
s_____2F50
t_____36F8
u_____70105 l# y! J2 E4 t2 |9 x' d2 I9 F
v_____0B42
w_____1C7A$ o1 o2 c3 M) h8 e" Q4 R1 @+ N
x_____16F83 S) z, l6 h. D# @% Z  H8 H( e
y_____2EE71 S8 w  Z- E1 b" [2 Q6 f
z_____5CF33 P  _9 _) v; q+ C9 f2 J
!_____6233: V6 s8 m8 }. R9 l, C# ]  s4 ?, B9 q
@_____3A45
#_____22919 c1 c; v2 Z# R3 ?: `2 T
$_____5D5C
%_____09B9
^_____43EA$ s6 |$ g% W8 `
&_____62B9
*_____6301* m4 ^( O; E4 V  Z8 K
(_____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 分享给朋友]