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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm- I' ]7 W0 r/ e- L
原始出处：http://www.3ast.com.cm- R! _# H- s9 d

看不懂的直接绕过* Q. `1 s  z+ T4 \' i8 h3 ^7 J; {
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E2 N- @3 ]3 ^$ p, L' M

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件$ _( G6 C1 U: Y  q# T0 ?* Y

文件名RSA.ASP  T% R* A% F2 M$ ?5 {8 q
===============================================
<% 5 X) o) F3 V6 s- d5 C
Class clsRSA
Public PrivateKey , ]) a% `) X3 c, @# w, x. Q7 B
Public PublicKey
Public Modulus & ~& \4 d9 ?& j! z  U( q  `1 Z
Public Function Crypt(pLngMessage, pLngKey) 9 q. l7 }0 L- b# E& P1 K& V
On Error Resume Next
Dim lLngMod + `9 [3 n& r' l% S$ ]4 Q: }: M
Dim lLngResult 7 q+ g  U5 c3 _- t4 c3 w3 l( `! y
Dim lLngIndex 6 s9 f8 E1 x7 B( {0 I) A* b. ~
If pLngKey Mod 2 = 0 Then 0 i# B& A0 `- y
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 0 }* z' B: v8 v$ r
' Mod may error on key generation * _, }9 v5 P7 G. ~1 L
lLngResult = (lLngMod * lLngResult) Mod Modulus + K/ m5 g1 Y5 ?6 o4 X' J
If Err Then Exit Function & x+ L( a* Z) J, u' _& m  Z
Next
Else
lLngResult = pLngMessage 1 K% U% D% y  ], _1 ]: v- C& z
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 K) U7 Z# J. v$ R0 i6 A% C3 o
On Error Resume Next
' Mod may error on key generation 8 M  g1 ?: x, {' }; Z* j
lLngResult = (lLngMod * lLngResult) Mod Modulus & k; M6 Q# n( M* D; Q, ^
If Err Then Exit Function
Next 0 K: R& r' S! C9 T6 ?& b( a
End If $ |$ }/ w3 N# V* S) L6 _. Z
Crypt = lLngResult ; R; F! A/ `. i
End Function
$ j$ ^& H. s# B# N- ^* h4 A
Public Function Encode(ByVal pStrMessage) 4 r) v& b- v9 w4 E
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii . I9 t, s$ F% I9 T8 w3 [. Q
Dim lLngEncrypted : h3 t3 B: R: A) d* S
lLngMaxIndex = Len(pStrMessage) $ o/ |& }: t- r' x* B3 s
If lLngMaxIndex = 0 Then Exit Function " H" j, @+ Z1 b" }. n# b% \
For lLngIndex = 1 To lLngMaxIndex ( [( Y/ A3 {  H2 d) P' q' u
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 2 T2 |" X+ p) F1 _2 t  ^
Next
End Function
Public Function Decode(ByVal pStrMessage) ) G3 Z3 V# X6 f4 u+ t( J, g! @
Dim lBytAscii ; F- ^/ N/ Z* F: V. r
Dim lLngIndex
Dim lLngMaxIndex   w4 S+ X  D: x% S
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) . O) ?6 y2 w% o* [4 Z
For lLngIndex = 1 To lLngMaxIndex Step 4 7 E8 a* h6 @/ A7 L- d7 E8 H
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) % g9 W- s* b; d5 y) p
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next $ e7 o5 _. D8 P' a6 Q; B3 K$ ~
End Function 8 I* s0 W( A4 V3 ^8 d" B
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) $ @0 D' |, C, ?  Z9 |
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class ( {+ E( ]8 h  ?* i0 C, U. F/ I' J
function Encryptstr(Message) 6 k+ b) v# n4 g0 _) a. C' B
Dim LngKeyE 3 m% J% |' h$ X+ P. h7 J& i
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 0 L$ V6 D3 A( S% y: |6 a
Dim ObjRSA , K$ S3 h2 S& g$ i, N$ z
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message % X* T# N0 o9 t$ T- }6 C
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE   i+ w1 u# z. j  h; @
ObjRSA.Modulus = LngKeyN 5 j! B1 X/ |+ W
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) + C' b# W; X" W
Dim LngKeyE
Dim LngKeyD ' \& }# r" O2 d+ L( U& k7 b0 u
Dim LngKeyN
Dim StrMessage 4 N8 p# |/ f( ~5 w& ^7 ]7 g
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" + Z' j$ }5 N' y* s+ F
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ; C7 K+ }8 @& h
ObjRSA.Modulus=LngKeyN ' @% v, W# r: Y2 q* M2 Z& ]) L
decryptstr=ObjRSA.Decode(StrMessage) : m5 N/ u" j& N4 m
Set ObjRSA = Nothing
end function
%>
===============================================. I0 `0 z- @( K5 ?) q

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下6 _/ T  Q% Y% P, }
 4 F7 m. a; Q0 R( @+ d- y- ]
<%4 E; ^( ^6 F8 k# k5 C
function Encryptstr(Message) : `/ j# L2 \( k- j% c. R3 x
Dim LngKeyE # }, h' R% C& u! A
Dim LngKeyD   {) d0 B# N) c5 X& G; n" C& e
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" # f9 ^! r- i7 K
LngKeyN = "29893"
StrMessage = Message 7 j; `' P. r, V3 z& k
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ) C* o. x0 ~# m8 n2 h  X: v- C8 C
ObjRSA.Modulus = LngKeyN 8 M' [: @* C5 L
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 4 x1 g+ V5 O+ g$ A. s7 u& I; ~2 q
Dim LngKeyN
Dim StrMessage
Dim ObjRSA " o3 w- E: z+ W: i
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA : }; t4 ]% `2 V. o
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN . w, a' L8 }- t. U2 x
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing - [6 s! X0 O& U3 A! I; G
end function
dim last,first 0 [1 h! h. E, q0 z4 ^; j
first="!@#$%^&*()" 1 ]7 E) @2 T* S) l+ q4 \! `$ v
Response.Write "加密前为:"&first + i5 _) k5 R1 R- P4 ?6 `
last=Encryptstr(first)
Response.Write "加密后为"&last ; R/ n. R% d3 a
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB* a0 m( |+ m  I# Y
2_____5C1F
3_____4D75
4_____26CC
5_____4F88" E5 e; h7 J7 Y3 @1 x
6_____3F4E
7_____0A9D
8_____1A1C6 i8 U' _, i% ~3 q8 m
9_____6D20
0_____10897 g+ r5 |# m$ j) H
a_____0F3E" j7 Z  n8 S5 `/ d3 n' h
b_____3159
c_____3517. O, T3 H( ]  ?: |9 U. r
d_____419C
e_____615C
f_____556F- A( i$ }( h5 i0 m% C4 p8 Z; `
g_____2B7F
h_____0F9C* B- W' T4 l, S. e
i_____00FA, U! R" L, ^( a( g2 N9 m! H
j_____5A50
k_____2850
l_____3E7B1 _5 y2 S/ Z; B  N" j8 }/ t
m_____71C5
n_____1FC8
o_____74C1! C8 @$ j# W! m3 A4 _( R# M# ^
p_____5FB8* X  |2 u. h: K1 y8 q0 P
q_____60856 k8 o3 ]& R1 S( R$ Z- I  Q5 n
r_____3AC4" O% m  h+ P8 D8 H8 h
s_____2F502 d1 A/ u  ~7 M" r
t_____36F8
u_____7010! ?. {/ i- E1 O! H9 G" T
v_____0B42
w_____1C7A: b0 J8 n! q9 L& [
x_____16F8
y_____2EE72 Y" t  p8 l+ x0 x; R3 ~
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C+ d6 m) y9 T2 v) j$ E0 p
%_____09B9/ q* v' P! U# C) ~5 @* z+ {! T
^_____43EA+ }$ @; g+ E4 N' s; v
&_____62B9( c# t. @9 a( G+ p
*_____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 分享给朋友]