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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
6 r2 p0 i, D. {$ k: j% c6 R& Z
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
# R. T  \8 A  n) M  X* V8 @
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家* a, F9 [+ z8 c$ H  O
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================  n8 R/ b/ w3 p
<% : ^2 p9 r! l3 B' R
Class clsRSA
Public PrivateKey 5 l7 N" M% m% D
Public PublicKey
Public Modulus   s% d6 a" I  L8 P' {
Public Function Crypt(pLngMessage, pLngKey) 6 Y1 c" w9 z( |! k( Q! m# c7 \
On Error Resume Next - R, w0 `) c5 f, S, ]
Dim lLngMod $ w/ J; `2 E$ r+ O) s/ C
Dim lLngResult
Dim lLngIndex 6 G% k2 x+ y/ ?7 ]- q
If pLngKey Mod 2 = 0 Then ! x! K; P2 F( {+ p0 ^/ X- B
lLngResult = 1 : z  {1 O6 o# v
For lLngIndex = 1 To pLngKey / 2 : ~3 r3 r6 a. ~3 o
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage , F8 V9 }1 v5 o5 ~* _! p
For lLngIndex = 1 To pLngKey / 2 9 _' Y3 t+ o& Z* k: e
lLngMod = (pLngMessage ^ 2) Mod Modulus . ]2 {) D) W/ J
On Error Resume Next 8 N5 p% X/ b5 f2 i
' Mod may error on key generation / \0 w0 L% t' a4 j4 Q) F3 T3 ]# p5 F
lLngResult = (lLngMod * lLngResult) Mod Modulus $ j& c5 A7 l! l% }
If Err Then Exit Function
Next - v* z# [( `- U- o2 G) z/ v
End If 0 s1 j8 ?0 D3 _9 `1 c
Crypt = lLngResult : S3 f/ \  {$ [2 U, w; E
End Function1 Q6 Y+ _; }' S& K0 U5 c
/ g( l1 J& n3 ^" Y9 D4 Z/ B  {& }
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex & J, Z# G. u$ O5 u" T
Dim lBytAscii
Dim lLngEncrypted / ?( m' ~/ M/ o6 O" `$ Q; [
lLngMaxIndex = Len(pStrMessage) , [0 B+ ^2 ^; p
If lLngMaxIndex = 0 Then Exit Function " o0 z/ Z1 v' |
For lLngIndex = 1 To lLngMaxIndex + ], ~2 ^  A- A# Y1 ]$ `4 C
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) / l; |7 r0 ~) {
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii * a2 A1 n( j2 b% Q# u& v3 ?
Dim lLngIndex ( V+ Z8 c6 j! g; K; t7 R: R
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) ' k5 [& P3 R* D9 S& a
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 S" K0 t! S7 v, X* Y5 s
Decode = Decode & Chr(lBytAscii) 4 r7 \5 e( l, F
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ' c: @4 n/ d" f) e# E0 o, _( p
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 0 b& F1 K2 N" H: S% {
End Function 3 b$ G( n( l9 E8 ~4 r' I
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) ; q' o& ~$ T# w5 p" Z
End Function & C+ ]! K% N9 S4 g0 N8 b* \
End Class * Y; D3 _2 W* W0 v6 _; O; H
function Encryptstr(Message) 2 ?, M6 g" ?+ u4 a4 y$ K  G
Dim LngKeyE
Dim LngKeyD & c- |% [: L# x1 J
Dim LngKeyN ; i. e0 X" x3 X5 \& Z, p! V2 O6 q4 t/ E
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"   x; `* a3 H( F
LngKeyN = "29893"
StrMessage = Message $ t* i% l6 ^) S4 o# ]4 `* k: r9 x
Set ObjRSA = New clsRSA 6 P+ k! M7 |7 L2 D7 l, U
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 5 O7 e& A: K8 o) k( }7 q" T5 u
Encryptstr = ObjRSA.Encode(StrMessage) * C3 T3 r3 J* O7 L
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 2 o2 e+ K6 ^* M( F: [' C* v
LngKeyD = "20643"
LngKeyN = "29893" % X/ h/ [  }/ C7 p" |8 [
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 7 ~4 H, {  a$ I) s8 H1 {2 H
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 6 [$ l$ m6 {4 X4 ~
end function ; G( y  f3 R( a# A
%>
===============================================$ ^. q  m% j2 J5 R: u

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%' x5 c" ^% B4 v- ^( K: b
function Encryptstr(Message)
Dim LngKeyE 7 |/ M, n1 c& T5 g: m4 N; y
Dim LngKeyD
Dim LngKeyN ; c" ~: C: n- }
Dim StrMessage 8 p5 b$ Y1 z' [0 Y. f
Dim ObjRSA " J- P+ O) P% {1 g6 f) f( I' D
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 6 ]  B6 T& O  w
StrMessage = Message $ W9 H6 @6 I0 u' y
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ; P) i* j" ^0 s" d; W" C$ o
ObjRSA.Modulus = LngKeyN + m- K! W2 e. g$ m" a4 h. W
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 8 m. P3 E+ ~( d
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD & b% Y1 r2 D8 c7 L
Dim LngKeyN
Dim StrMessage 0 U- b3 k: Z" z4 ^$ y' }& K
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" # A8 L! U3 c% `: u; c% |
LngKeyN = "29893" 7 _8 r" w4 F4 n
StrMessage = Message   c* m: ]" W5 v/ M
Set ObjRSA = New clsRSA 2 I+ Y3 ~. \& G% p+ c
ObjRSA.PrivateKey =LngKeyD 7 W( H. g! Z7 Z2 v
ObjRSA.Modulus=LngKeyN # n6 Y% e! W$ o1 N. \# [0 x# p1 ]2 V
decryptstr=ObjRSA.Decode(StrMessage) 4 y! |# [( I6 b7 j3 ]
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" 5 u8 {: L4 R; C* B. F- h
Response.Write "加密前为:"&first
last=Encryptstr(first) 0 t4 r8 i. u# [. K* O6 A& ?: d
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ) `2 y' R" ]& y, ~0 [
%> ==============================================+ k$ a1 f' r- z* y/ N( X, Y
剩下的就是字符的对照表了5 D! `7 {& F# o7 u; C
===================字符集================3 k, u9 H! {; ^1 i8 y  M! U& d1 M
1_____6EBB3 Z/ W& v) w! X6 }6 d3 k  e3 R0 O
2_____5C1F8 M1 l5 {4 _- M9 X+ w* J
3_____4D75. @: \" b4 ^: `
4_____26CC/ h9 R4 e" l1 h2 J' x
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C+ q/ V# @1 b& h0 v$ I* q
9_____6D20
0_____10893 ~% r1 O. L0 I8 H& Y
a_____0F3E+ l& |: _1 _0 t. {* O9 M$ D
b_____3159
c_____3517* D; q9 G" ^* I6 E$ M
d_____419C
e_____615C, W4 h% g; k% D" B# L7 Z/ \
f_____556F( e9 ~7 S% e3 `  q) e
g_____2B7F
h_____0F9C6 x. K6 h* S6 L5 `
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8% y$ x- B2 K+ q/ E1 B
o_____74C1- ~+ x8 N% B& Z9 J1 l& X
p_____5FB8
q_____6085
r_____3AC48 C6 U- u' L) n! i  R+ G; g$ O5 U
s_____2F509 e3 U+ d  {+ F  M
t_____36F8
u_____7010
v_____0B429 ?; g3 Q; ?( Z3 Y. m5 O8 }7 f) a
w_____1C7A: M! s+ D, r# t8 X7 z6 B7 ?$ `$ g
x_____16F8
y_____2EE7
z_____5CF3
!_____62335 @6 k# Y2 u; C4 Y
@_____3A454 Y- C5 E) X& e& |0 H; q
#_____2291
$_____5D5C
%_____09B99 W% K% v8 ]' e6 \. }+ ]
^_____43EA
&_____62B9  o1 w2 K, u) m( s( L2 K
*_____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 分享给朋友]