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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456  Q) E2 L8 S( [8 s4 ]) X
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
: @; y$ q3 X" U
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件9 N: s/ K( N! r, _: E
) @! A, P- V- C4 V' y- x, u
文件名RSA.ASP, `, l+ s7 }$ ]" i1 w3 E1 @
===============================================/ E. R# h: i7 v7 [' j6 X8 Q
<% # E9 R$ C2 `5 m
Class clsRSA 2 B/ O/ F5 S3 r0 a) f4 z. l! i
Public PrivateKey . A% b& w3 ^5 `; R$ _7 M5 c
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next $ ]. E. l6 {8 i* O) T
Dim lLngMod
Dim lLngResult
Dim lLngIndex 3 X8 ^% H$ ^! s# `: Y! }3 T
If pLngKey Mod 2 = 0 Then ( u. X& x+ {5 z/ \$ D* }
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 * p* Z7 o" E* c! Z+ ]" h
lLngMod = (pLngMessage ^ 2) Mod Modulus 0 f9 a( W2 V: I* D6 D
' Mod may error on key generation $ _* U  e) n7 c, g# E4 B
lLngResult = (lLngMod * lLngResult) Mod Modulus . o3 m5 {5 F  F7 l/ y$ {  r
If Err Then Exit Function " L+ i9 V+ `3 C4 e/ A
Next - H0 l, v. d$ X- i) p4 r2 j4 q& G
Else
lLngResult = pLngMessage 0 w; P+ h! s! [! u2 k  \* W
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 ~- S4 x. x2 s7 F; m( A
On Error Resume Next ( ?% |& q  t8 h0 Z: \; p
' Mod may error on key generation ! C0 ?: f3 T3 i% r9 w
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If " R/ B: A) e5 Q
Crypt = lLngResult 5 i! }& ^) k! b) F" I6 w
End Function

Public Function Encode(ByVal pStrMessage) % h* L) L4 W% ?3 \/ h! C5 q
Dim lLngIndex   i( P' f0 g( T7 L
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted - R) j, T0 I+ q+ Q& z
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 1 n1 n3 |7 f% i6 \
For lLngIndex = 1 To lLngMaxIndex + ]* j& m, ^" M. {0 p* N. \
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # r, ^% @2 J' d: c- W  ]
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 6 I' T& y! P) o2 W# T
Public Function Decode(ByVal pStrMessage) , T+ h- w9 G$ U6 s& \" ~+ M
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 $ {" @( O* O/ H7 }. B7 @
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 9 \# w4 r% v( ], S' J
Decode = Decode & Chr(lBytAscii)
Next
End Function 6 N, D) w: |: C9 [+ M5 K) n+ a
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 2 W$ t' P( ~& I- {" f3 r7 `
Private Function HexToNumber(ByRef pStrHex) ' D: h, n9 y0 f6 }; j
HexToNumber = CLng("&h" & pStrHex)
End Function ' [* H( ~/ `1 g+ K7 W5 j- c( c8 t
End Class . g- {3 @; Z7 ?3 A
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 4 k- L( n- i, U6 x1 k  J
Dim StrMessage 6 D$ u* z/ ?2 o4 \
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" " H) L7 L! T3 r2 ~; g' m
LngKeyN = "29893"
StrMessage = Message . A8 R: u( `1 T: N# c1 _+ o2 u
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ) [2 w& l- g; j1 o; Y. H
end function8 ]$ F' t/ V( _8 `) T
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 4 R1 d7 u* w$ r" n$ f8 ?( f
Dim LngKeyN 5 @" k* M7 p, [: k
Dim StrMessage , F1 w  c, a- c- U
Dim ObjRSA ) Y& S: d1 k" M4 o
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 6 f8 C( _. @- D; X" |2 q) ]$ w. t
StrMessage = Message * i) K9 F7 s+ P/ W
Set ObjRSA = New clsRSA & ?$ w* M  b7 _0 K/ \7 c2 X
ObjRSA.PrivateKey =LngKeyD # X4 R8 [! m7 g6 z  l! T
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 3 {+ n& @0 [4 v. w" U
Set ObjRSA = Nothing
end function ; w) J! ~% M- b! a9 c& J
%>
===============================================
, |' q/ Q$ _+ Z: r: c
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 5 t6 s8 Q& c4 Q) s
<%% s8 b/ y, m& A
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 6 |. n: V. m1 V0 P$ r
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   K  n% h3 R' T! {5 n3 {* B3 N- c2 f  f
LngKeyE = "32823"   T6 {8 M! t! B
LngKeyD = "20643" 2 z! I0 B+ H' q% B
LngKeyN = "29893" $ ~6 S) f6 Q" Z, K
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 6 c9 U7 l% }2 S$ S" e/ t; X7 h
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) " B8 }. r( Z+ \: u
Set ObjRSA = Nothing
end function ; ~! o* }! A2 q5 z, m
function decryptstr(Message)
Dim LngKeyE : D* X8 e1 L: L3 q- c8 b
Dim LngKeyD
Dim LngKeyN   Z; ~- Z3 L0 @% `( k
Dim StrMessage
Dim ObjRSA , ]; J5 y- e, F  |% N5 z& t
LngKeyE = "32823" / @7 F7 ^% F! Z; z% n, I6 ]
LngKeyD = "20643"
LngKeyN = "29893" 9 c% b& c0 ~# [6 b3 Q; I+ H
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 9 C5 C9 e; V. p, c6 j
ObjRSA.Modulus=LngKeyN ' A! A6 ^8 Z* d& V/ v! ?
decryptstr=ObjRSA.Decode(StrMessage) 1 n1 V" }# W6 @6 m% C  G
Set ObjRSA = Nothing 6 V1 w1 E( s  L$ J$ ]% g
end function
dim last,first
first="!@#$%^&*()" 7 P7 U( O1 _' X. d
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last : u6 d, o/ @9 T% ]2 D
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了, F5 @" Q* J) R& }/ S
===================字符集================
1_____6EBB) L+ X% U7 u, j
2_____5C1F4 Y( r" k7 T% ~0 U# C
3_____4D75  h0 k: S6 b* L; E1 t" l
4_____26CC
5_____4F88
6_____3F4E' d; X4 E( }( w$ t
7_____0A9D' O1 w, q; e8 b
8_____1A1C! {. J, \" Q% U
9_____6D20
0_____1089
a_____0F3E8 j' }# g$ S  N1 @2 t4 n! i
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F0 x# D& y: v/ o+ |; H
h_____0F9C8 q) @6 T4 L! O: q$ c) V
i_____00FA
j_____5A50
k_____28505 E! d7 i+ |) o1 ?& r% e
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085& s9 v; x) {5 k  }7 X( s
r_____3AC45 n- R$ x: H2 _+ j- d! p
s_____2F50
t_____36F8" h& Y; C; l1 p
u_____7010
v_____0B42- C& u$ v5 B. h) H  y( u
w_____1C7A4 D# D. K' x8 ?" h- x9 @6 t
x_____16F83 {) R- \5 n; Q- K/ l8 i
y_____2EE74 P9 L3 m" _. r0 Q, D7 Q
z_____5CF3: D  E5 V% U  @; u: O# A+ A
!_____6233* o* ]5 a" u' M
@_____3A457 H1 G6 X5 W! M. ?$ Z
#_____22916 Q0 O( J& T7 T7 }
$_____5D5C* \3 G# p8 U7 n
%_____09B9
^_____43EA
&_____62B95 S1 B9 o* ~* }
*_____6301& G( |; T, H1 s' X5 e5 n
(_____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 分享给朋友]