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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
, U4 Z# x! h4 B# `+ \5 ^3 @+ J
看不懂的直接绕过! t7 c! i( v+ O" I. \/ F% m
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E& A# o0 y5 S/ U# B

============================================+ O) O7 T4 z  ~6 T1 B
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法5 o( f# x* `$ ~! b
以下是RSA算法文件

文件名RSA.ASP
===============================================$ ~2 T; }4 \4 g' m
<% ' o7 u$ U/ F0 O5 A( ~( N
Class clsRSA * m- ^5 [" `( Y  a
Public PrivateKey * d2 R) d( ~! o* O* D. G  v
Public PublicKey
Public Modulus 9 A; m6 I9 a- J( p! f2 ?3 w" J
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next $ ?- s* I& L) T$ N
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ) M' ]3 _. f% V# C! M1 o
lLngResult = 1 $ h- a1 }) j/ s9 I) C
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ! a1 J' t3 b; r3 r
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 1 C# H0 ^, O) b4 N6 W
Next
Else : L5 W- Y2 {. S- T' B
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation & c7 n* q- P+ D) x+ D8 h
lLngResult = (lLngMod * lLngResult) Mod Modulus 3 g# w  u+ i* L1 u
If Err Then Exit Function
Next
End If 5 W6 w5 N5 [' }2 u6 ~
Crypt = lLngResult 1 O* S5 A3 H" E4 N
End Function! {) V; L7 K' N6 H$ ~- u  S

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) $ X- }# O" l- e4 Q4 \
If lLngMaxIndex = 0 Then Exit Function 9 {5 [# u2 b. ]- m! P( r
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) - k7 }" W! c6 \
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 2 T! e9 n. S& q% M8 h( p( R9 F
End Function
Public Function Decode(ByVal pStrMessage) - j0 K/ k9 n# j1 O: N9 F  R
Dim lBytAscii 9 L; V5 W9 T- a+ Z* D$ L. Q
Dim lLngIndex
Dim lLngMaxIndex . Z/ O3 c2 N# H
Dim lLngEncryptedData 0 P: Q* x$ v7 z2 W! a$ d
Decode = "" 1 ]3 g9 k  x& @0 r: O9 y& C8 x
lLngMaxIndex = Len(pStrMessage) 1 }9 V" I" g' A( |
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 3 d2 ]8 k6 X$ p6 m% J2 `
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)   j! ]3 s+ |$ d1 F( B
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) - w# x, g; @7 e$ G, q; L) e/ t, X, J, h
End Function + c1 I4 C: ^! s1 }  p! h
Private Function HexToNumber(ByRef pStrHex) ! `9 d6 h- W- B( I; L# [$ T0 W
HexToNumber = CLng("&h" & pStrHex)
End Function 2 C; j2 t2 K* ?
End Class
function Encryptstr(Message)
Dim LngKeyE ) V$ x% F, H7 q3 r; y
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 8 {, Y3 z9 ]3 z
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 5 Z  f0 x, l$ {9 `$ W8 h
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 6 V  X0 t' Z5 T" W# r
Set ObjRSA = Nothing ' w- a- `) ]% w$ i2 A
end function6 t% i+ z7 o$ p. k: j3 g! \5 N
Function Decryptstr(Message)
Dim LngKeyE + N7 f$ t/ H' [+ Q* j
Dim LngKeyD 9 e# Y1 S0 H  |4 q( A; R
Dim LngKeyN ( a3 l% P9 q$ g4 a; T: {
Dim StrMessage
Dim ObjRSA ; i, z, i# ?' f2 T' P
LngKeyE = "32823"
LngKeyD = "20643" + _. J% ]; w3 @7 F0 l- v; Y, D
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN " R2 {- b' \6 i2 Y& z
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing + a  O4 y& w) T1 t/ A" E- k; V1 d
end function
%>
===============================================
. X  v: X+ V% f" m  ^
还有一个用于测试这段代码的test.asp( F" @, \: h+ Z* _% ], i  F2 M- }
有兴趣的自己搭建个IIS测试下" b. y: Q/ r- R& j; M

<%/ d; s. d6 b/ m  c5 x/ l8 n
function Encryptstr(Message) $ _+ t; h# u* y2 p; o
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 6 l, s' Z, y6 t/ P9 Q
Dim StrMessage # d8 Y, l" D; |2 @/ \3 B. g
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ) N7 X, a. D8 W3 w; k2 o( r. x  F
Set ObjRSA = New clsRSA + k$ W8 W7 _1 f; T4 h0 t& A( J
ObjRSA.PublicKey = LngKeyE 6 t5 A: Z; Z7 }
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing $ o. }+ E& w2 H8 {; P/ J* }
end function 2 }$ r3 c" i3 c7 e' T' D
function decryptstr(Message) $ q8 `$ q+ o/ b6 p
Dim LngKeyE 3 w( V8 y, l, M  Q
Dim LngKeyD ) `/ ^( l- b0 F& U0 c% ?  y
Dim LngKeyN
Dim StrMessage " G8 C- \! X9 Z' s1 J1 K. @3 T
Dim ObjRSA * d  R* C$ g% J5 @7 }, h8 W+ g' _1 e) D
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA . f% C( p5 ^1 v2 h. S
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 2 S/ \; i- i8 P3 C% Q7 Q+ p3 |
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" " _% r; e1 r4 u+ z  Y
Response.Write "加密前为:"&first
last=Encryptstr(first) 4 ^3 U( H6 }0 D7 B: P& [
Response.Write "加密后为"&last ' o+ `, L( o7 q9 Q! {, `
Response.Write "解密后为" &decryptstr(last)
%> ==============================================- `: K, N: s5 m9 k+ o1 _
剩下的就是字符的对照表了+ X* _5 B  _" _' w+ O
===================字符集================  ]) z  S% \- N8 x
1_____6EBB
2_____5C1F9 R7 y6 l2 c; ?, p
3_____4D75
4_____26CC; l  d1 n5 ^8 O  r  \6 @5 R
5_____4F882 N. Y) c2 Y/ v1 o! |
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____10893 v* ?2 u" K! `+ w# i9 p
a_____0F3E
b_____31596 ]% `* b( Y4 s* s
c_____3517: f' b6 x$ E# k& ~5 x
d_____419C( W: v& X6 z$ Z& r" }, J
e_____615C& y! [! i3 J, \
f_____556F& H. e5 _4 J. |; L% b+ Y; V
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____28506 S7 s1 K" D3 R9 `
l_____3E7B' c9 ^/ U& u4 b
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____60857 D7 G5 r- D# }% J& B/ F$ ?
r_____3AC4
s_____2F50
t_____36F8- e$ |, S$ N9 W. F( D/ _
u_____7010
v_____0B42, L0 P" U$ o0 {
w_____1C7A9 V0 _+ O. B  B( A, y
x_____16F89 k. m5 V% K, ]. w! f
y_____2EE7& |2 K& F/ H% D+ O9 U, p
z_____5CF37 r5 i& \5 U, M" D3 @( ]
!_____62334 f5 B: n8 v+ U/ H! ]) X: B
@_____3A450 s* ^8 D" |, k$ G- _6 q. q) i
#_____2291' T( w9 d4 B+ n4 y2 O# Z: h
$_____5D5C
%_____09B9
^_____43EA% a* A7 }' }/ G8 A
&_____62B9
*_____6301, R1 X& M- B* Y3 s/ j
(_____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 分享给朋友]