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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm! B' C9 D; s# E
( s5 u; Z/ T% K( V8 j* o
看不懂的直接绕过
加密前为:hwy123456. l2 R. d4 `* p" M
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E9 Q2 z0 E. [, n
/ v4 c* y! f: _7 C2 R6 R  U! z" u+ N
============================================% [% Y- V) g1 ~5 M! a
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
/ g5 {2 T2 B* Q& ~* Z* Y8 H+ {
文件名RSA.ASP; i8 q( L8 q; a' _
===============================================. e5 j! l& \- }: o( y% n; c' d( O# j
<%
Class clsRSA
Public PrivateKey 3 t) o8 r7 }9 G. F' ?. u' q
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod # e1 K2 ]6 r9 O, S
Dim lLngResult ; `: p. K- Z+ J  t& T: z
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation - I+ `! l- _6 H! }" I6 a
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 4 C- G- ^9 y8 K" ~
Next
Else % ?) t- i" ?% U% |$ Y5 n
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 ( ?/ L0 |1 L2 @" w- T8 ]) Z, v
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next % B& {4 V* G. k# U, w5 Y6 k1 W) r9 V
' Mod may error on key generation 6 b% r# [, ?* O) b( E8 r% Z1 R
lLngResult = (lLngMod * lLngResult) Mod Modulus 4 `5 S. A( l; B6 @+ j0 @# Y8 U& L
If Err Then Exit Function " c. A" q7 [. `
Next & g5 @7 c+ g4 {- ?
End If 1 |9 g* o3 X# W$ q6 y3 X2 M
Crypt = lLngResult
End Function: g% @8 J( k9 E: u2 \* G$ s( B/ P

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex 0 N0 g; `+ g+ N. _
Dim lBytAscii ; C& C: t. s, a7 ]6 U, K+ y2 k; b
Dim lLngEncrypted 6 U$ T' }3 Y* E2 B4 L+ u* k, Z; B
lLngMaxIndex = Len(pStrMessage) 0 J, ^& L$ L: N& k  n, s+ D3 w! q
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) : t+ M# r/ f) A+ R) M
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ( p) A+ i( K: n% n. H
End Function
Public Function Decode(ByVal pStrMessage) 3 q* c  V/ n9 Z6 x9 N4 V% v; p0 s' M
Dim lBytAscii & F9 \& Q* _8 [+ h* S& d7 l
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) % p( \! k$ }( m0 D
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 2 g6 j' I' I! T2 u& d7 m
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next ! z) j: {6 I5 b, y2 u+ Y3 \1 w
End Function 9 T% |2 A7 a% x0 T: ]
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 9 X# i6 N; V: y+ ?" |5 f
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) : w: p# W6 G; N: Z# y7 b
End Function
End Class $ ~. n- p8 K: E* _% O" E5 H) _4 F' ~' y
function Encryptstr(Message) - ^# a9 t/ z3 V6 W4 a: P& Y
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 0 n' l; @6 f9 s
Dim StrMessage
Dim ObjRSA 0 S5 m, |6 S: U8 \' p5 a
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message : W3 b& a$ I5 K
Set ObjRSA = New clsRSA : d; {; \2 h- O1 X: e8 j
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function7 Z7 n8 {' D; _" \6 Q
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ( w! b8 q% a2 X6 X  _4 a
Dim StrMessage 2 R9 E; c0 C; k) m5 h* ]
Dim ObjRSA % G: a/ w; s% e6 U$ k
LngKeyE = "32823" 2 _5 ?' ?* F) Z2 }
LngKeyD = "20643"
LngKeyN = "29893" ! _% c# o- J& I2 V1 P2 ?
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ! a6 A2 L$ h6 n% c
ObjRSA.Modulus=LngKeyN $ p4 }! d: g2 A: ~
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下; D' \+ N. c( r( ?; L! K
 ) f/ S- g9 p8 h+ j2 c
<%
function Encryptstr(Message) ( O; X4 b# g( p" k# r; D
Dim LngKeyE 7 B2 D# h* g0 e( ~3 O. t- D
Dim LngKeyD
Dim LngKeyN ( i0 z6 u/ H! f* k
Dim StrMessage ) o2 C" e2 {2 W) N* W
Dim ObjRSA , s) |  [* O. x5 y/ }: ]
LngKeyE = "32823" 8 Z9 \2 s- R  z) s
LngKeyD = "20643" 7 z; k- g0 S  I& w7 \! m
LngKeyN = "29893" ( b7 Y+ x& g4 |
StrMessage = Message . v( E, @2 G' H) m$ K! T( |
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing . W4 N/ C- x) y; N3 l
end function , A! B8 M1 M6 `1 Q6 {  @
function decryptstr(Message) ) ]# c: V1 Z9 E6 y% K
Dim LngKeyE ! L  Y1 m$ q1 P
Dim LngKeyD & r  e( e5 F5 J; `; Z# C, c
Dim LngKeyN ; f, @) Q# n& i2 x0 y
Dim StrMessage
Dim ObjRSA * c4 K3 Q  E. C
LngKeyE = "32823"
LngKeyD = "20643" - Y7 H' o; e* e  q' A) @% r+ \5 j
LngKeyN = "29893" ' @8 U  g+ N' p0 t& f& j' i
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 0 H( P: {1 U  d4 k
ObjRSA.Modulus=LngKeyN / Y! k( t% Y) |  Q* w
decryptstr=ObjRSA.Decode(StrMessage) & g0 ~3 y, U+ R) U" Q2 f* \# c
Set ObjRSA = Nothing 7 D7 a( N8 J- Q2 l- i  v
end function 5 N$ N0 p( Z' Z; L8 q  @5 u8 ~4 [4 O
dim last,first / Y( _9 @! c1 W0 G$ ?4 f8 V
first="!@#$%^&*()" 4 a0 ^# m8 ~" [2 ~! k9 d
Response.Write "加密前为:"&first
last=Encryptstr(first) . K& y2 j( x8 V; D" }
Response.Write "加密后为"&last * a( N6 y8 Z* O/ |& N# b
Response.Write "解密后为" &decryptstr(last)
%> ==============================================% a* ~! a3 [: {
剩下的就是字符的对照表了0 U! \2 {) A+ v# a( B" B
===================字符集================+ W. d3 H7 H6 M
1_____6EBB( p) S* F% Q% h
2_____5C1F
3_____4D757 |! {3 z  m1 S% U
4_____26CC
5_____4F88
6_____3F4E. l$ a+ A3 L! c( x
7_____0A9D0 A1 X. x1 r& ^7 e8 n7 V- R
8_____1A1C
9_____6D20
0_____1089+ h! ^3 O" x* _$ F
a_____0F3E; r4 k: v: V, H4 ^5 c
b_____3159
c_____3517
d_____419C& v2 m2 o; @  {! y
e_____615C( M5 N3 P: V- ~& ~! ~1 v8 C
f_____556F8 i, e' i2 M& ]( ]! Z) ^! S
g_____2B7F# V$ o: r# t1 [4 t" `
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5% n& m) U1 r: P6 z' T' s7 x
n_____1FC8
o_____74C1
p_____5FB8/ I/ R) B: r0 L, v- n3 O
q_____6085% \/ h8 u* V* S: H
r_____3AC4
s_____2F50: G6 m+ `1 H. F6 f5 h/ y
t_____36F8
u_____70105 F, ~% F3 z, y2 Q7 u2 \( z4 a
v_____0B42, \6 r8 Q' A) A- O2 S
w_____1C7A5 I& l! e+ K4 |0 I: H+ J0 p1 w
x_____16F8
y_____2EE7
z_____5CF3
!_____62336 @/ W1 g4 o4 }
@_____3A454 A0 @6 B* u3 P4 s
#_____2291
$_____5D5C+ J( M2 c& A* c" ^
%_____09B9- I$ x9 u% p; ~1 D3 E$ ]
^_____43EA
&_____62B9$ W! C9 ]+ A2 o7 v4 o- |( \! H
*_____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 分享给朋友]