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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm8 r& ~1 f8 ^* ]
原始出处：http://www.3ast.com.cm
7 [) [' I# I' I/ X6 X, S& |% n8 V
看不懂的直接绕过8 N5 S: k9 f# ~( P9 }
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
' j; Q9 `+ U( |6 L
============================================1 X& I, S1 F1 N6 e- P0 s4 ?
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
1 S# x2 c" c% ^0 m: s' }# f
文件名RSA.ASP) m% N2 u1 q2 R) ^4 B0 W
===============================================
<%
Class clsRSA
Public PrivateKey 0 N: k, A4 h$ R
Public PublicKey
Public Modulus ! M$ u- Z# r" B1 @8 e. {  g5 A
Public Function Crypt(pLngMessage, pLngKey) 4 _! O( h7 S' w& t) M
On Error Resume Next
Dim lLngMod 7 s. h# O6 d" w
Dim lLngResult
Dim lLngIndex 4 _" `# o9 Z/ V
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 * j! n2 [$ ]5 ]. U% s+ |* {8 i6 p
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ! ~# E- |3 d! s4 }4 b0 t: E2 Q
If Err Then Exit Function
Next " C6 u" O8 J. m
Else ' X/ Q5 N+ b& N  j' }+ j8 V- \
lLngResult = pLngMessage ) ]  O' X! k3 f2 `
For lLngIndex = 1 To pLngKey / 2 * ?: D8 q* U, ^1 p9 d$ l! ]
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 g' ?7 I$ h- `+ V; [1 B7 }) ?
On Error Resume Next * r' |- p  d/ W5 H: q* q
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ) m+ U, N2 B, ^- v
Next
End If - K6 U3 w; y1 D0 L8 B7 A; |
Crypt = lLngResult 2 S8 ~- }# P2 T5 r% h
End Function
0 T$ q" V6 Y8 o& ?3 G5 r; d  N
Public Function Encode(ByVal pStrMessage) ' c; p4 ^% L' w+ G( E9 W/ t' m5 V6 |
Dim lLngIndex , T, m" z: c; k8 g
Dim lLngMaxIndex
Dim lBytAscii & h; ]. I7 g! J8 `7 T
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 5 c1 I2 T0 K  V. t( M% u6 r
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) $ ?* o4 i% ?' Q) k
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) : g  G  e( U3 \4 a) p  y4 P& I
Next 3 X, n% g/ S% ~  H
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii / y3 ]! s- e7 @
Dim lLngIndex % [' c4 P$ w9 `5 s- ?* K) }
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" ' A3 f6 Y7 @& J( q+ Z  g
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 1 X. A  }7 T9 Q5 f
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function - _$ m# l/ B* h" g
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 0 a0 [) J0 z; j" _8 [
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 8 T( P: ?9 q. F" M$ Y: m
End Function 7 o) \- }! l0 v7 G% O
Private Function HexToNumber(ByRef pStrHex) ' s9 {1 S; ?7 X2 C0 R
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 0 }- P& k$ n5 C/ Z1 D5 W, r, A( B
function Encryptstr(Message) 1 x4 o4 h1 s5 [- s9 `  _+ m: s6 |
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 4 a5 C  c+ H5 @) Z8 F; l
Dim StrMessage " O1 O& R" s/ ]8 k0 }3 E
Dim ObjRSA % k& Y8 x6 c$ Q  ?% [( T+ E1 b7 _6 g
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 9 t* {. [6 k  e9 h* r
StrMessage = Message 0 b! x% a+ b/ p8 H1 z* ~
Set ObjRSA = New clsRSA ' ?4 J6 k7 Y$ u5 E6 x
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function0 H. x" e, v8 \% N- a; G# Q  l" u
Function Decryptstr(Message) ! o0 t, O, c% b6 o
Dim LngKeyE ( ^  \% I5 J% s% v8 C1 W
Dim LngKeyD
Dim LngKeyN
Dim StrMessage # T( V! P1 r" f7 o! e* b
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ) t* O- w: A( B5 ?
LngKeyN = "29893"
StrMessage = Message + O& I/ h. q1 Q, t
Set ObjRSA = New clsRSA * V  C: r- ?1 E# R
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN   [0 G" c% o2 |/ w" @% e9 m
decryptstr=ObjRSA.Decode(StrMessage) 6 t' d9 E1 N; u) p
Set ObjRSA = Nothing
end function 1 g$ y) E6 G/ C9 X5 L
%>. W0 b, a' F" {! l1 ~
===============================================
+ [6 ^9 d8 q& T' }
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 / I: _; r/ s; u. o, e
<%
function Encryptstr(Message) ! P( b5 |0 m4 i' M" u
Dim LngKeyE ! U; F/ f! ?2 }' `( i
Dim LngKeyD ' g* t5 ~( V! c6 Y9 S* c5 R. U
Dim LngKeyN 0 l7 N7 Q8 n$ A" ^# S( \* L1 |
Dim StrMessage - R  n, K- b' x/ X6 F7 l
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 0 E8 `% z; k4 c9 j6 W. ?
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 2 e- j- ]/ @' R5 ?7 F
Encryptstr = ObjRSA.Encode(StrMessage) 8 M8 H( x6 q; h
Set ObjRSA = Nothing
end function 5 z" r1 y. K9 v. N6 t* o+ ]8 a
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD , L- e3 X. M% Q: q. E4 s4 |0 S
Dim LngKeyN 1 ]8 R. t, q+ Q0 J
Dim StrMessage 2 S3 \4 J$ X! T8 |0 P* [
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" % D. v! ]" v! c) q
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD # ]0 U$ e. n0 D2 k/ a' s
ObjRSA.Modulus=LngKeyN 4 y' T7 V* @# x
decryptstr=ObjRSA.Decode(StrMessage) 9 H- A: S3 R# m' d/ d; i* y
Set ObjRSA = Nothing
end function # U; Q' o+ b' \) {& z  U0 S. E
dim last,first , t' f7 n7 r  Q: F- |3 W1 w( T
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) 8 x" Y' U, p( ^
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) & v7 }$ D9 ^' J- j1 E
%> ==============================================- d3 p0 _9 y* D% w0 e! N
剩下的就是字符的对照表了$ p; g& e( e& m+ Y/ l2 O9 b
===================字符集================7 Z. E; D9 R* U
1_____6EBB
2_____5C1F0 c# e( m- F# O" B- Y
3_____4D75, j5 c$ h8 F3 p0 ^. H8 q# m
4_____26CC
5_____4F88
6_____3F4E0 o, S( |% A3 I2 P
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517  {/ `; \' z  v* }, S! M9 x
d_____419C
e_____615C
f_____556F, I5 {* b/ b; W' b' S
g_____2B7F
h_____0F9C4 f2 ~' P; E2 _* ^3 Y4 C9 k
i_____00FA
j_____5A50
k_____2850
l_____3E7B3 T- E2 Y7 r1 P7 Y8 e% d, d
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC45 s. `! s, x/ x* M/ R3 s+ A
s_____2F50
t_____36F8
u_____7010+ d. q- {  `" f( D3 |
v_____0B42
w_____1C7A
x_____16F82 n+ S9 j5 n& c7 q- [" w
y_____2EE71 e$ X8 s/ y6 t4 R
z_____5CF3" _4 h5 F, B$ h( n( @0 s
!_____6233
@_____3A45& l+ y* w/ k$ D1 @1 `- q
#_____22914 ~6 Z5 ?+ x8 Y/ A" P+ Z/ e
$_____5D5C9 m% z# g0 v. l& |* a8 ~
%_____09B97 ~3 e! R# E% H; d, w0 D' m3 q& W
^_____43EA; g6 x$ ^8 T) I5 Y% q  ~
&_____62B9
*_____63011 |% h$ S& G  U1 x4 _
(_____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 分享给朋友]