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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
  S3 ~0 N6 F; m( s& M
看不懂的直接绕过. c  d6 o2 J; c2 a! s
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E! c* l& U6 }( Y' j# D; J7 }: A

============================================4 t1 }6 \: `& F
上面是当时自己校内的心情。现在已经解破出来了，分享给大家6 i, H% q* y' o: l
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法1 X) j" E8 ^$ S! h
以下是RSA算法文件

文件名RSA.ASP
===============================================
<% % m9 r4 R, E$ `4 f
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 9 ], C: d  E# F: [! F( S0 `
On Error Resume Next , a4 x( B" ]5 d/ k
Dim lLngMod
Dim lLngResult
Dim lLngIndex ( [$ w2 l1 ^! ^% q
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function " B; O/ o; P) q5 v
Next
Else 8 X* Y7 H7 `# H2 k+ \
lLngResult = pLngMessage 2 d0 t5 R0 O1 _3 [% H+ V
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 7 m7 v$ h3 e* }( \1 F  i
Next 7 [2 S. a2 M" q0 [+ f
End If # K* q4 {8 d- W+ U9 u
Crypt = lLngResult
End Function
1 m: r4 s5 c% `/ j. H
Public Function Encode(ByVal pStrMessage) 2 V0 c! x$ \# J" ^; R# B
Dim lLngIndex 1 Y0 r. i) P: y( @/ u) Z
Dim lLngMaxIndex ( t9 |; \2 y7 ?- h
Dim lBytAscii , [3 Z# J9 T* ~
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex * ~$ ^& u# ^# f+ v
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function + K) y; |5 |2 R  G
Public Function Decode(ByVal pStrMessage) * h7 O- m( O$ L! K( W6 T
Dim lBytAscii
Dim lLngIndex 6 F8 Z7 }4 l) t" h; j# e
Dim lLngMaxIndex
Dim lLngEncryptedData 5 Z6 `7 u  Z6 @8 Y. ]
Decode = "" / ~. k1 B/ e9 H3 w4 _9 D+ F: U8 E
lLngMaxIndex = Len(pStrMessage) ( u7 V7 V$ e2 {( Y1 `
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 6 Q$ r, Y1 W" u# {$ e8 G
Decode = Decode & Chr(lBytAscii) , F" V2 N. n5 l0 g
Next 4 b. [0 a, P4 T, _
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 2 B1 M7 H8 l/ n2 ]
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   f8 W. o# j  E9 V! K9 T
End Function & J9 H. o! m. h) E+ |4 m, c
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) ; w- B! r. x3 y7 D; G, w9 ]& X
End Function # K* k7 c7 k+ k6 f; v7 `* {
End Class ! Q- |0 p/ v  t3 d% }
function Encryptstr(Message) 9 r$ U* g+ d# z  K! R' E, T
Dim LngKeyE
Dim LngKeyD 9 N* C/ J1 x" B
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 7 S% u! s; K; R2 a) ^3 G2 W& _
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)   X8 Q% t' \' l/ z, A7 i, y; n! y
Set ObjRSA = Nothing * \5 _, D$ a* @$ p/ R6 t3 Z; [
end function7 B5 K% z- x! t( U( x0 v/ I, s
Function Decryptstr(Message)
Dim LngKeyE 6 T$ F: t9 K4 z% _; N- F+ ^# m
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA , c* ~6 U9 |# |# Z0 C* {
LngKeyE = "32823" ; Q9 v; Q, t- c, F5 u/ M8 {
LngKeyD = "20643" * U6 J# ]% U) R0 s
LngKeyN = "29893" ( ^# U2 Q- r8 A, _5 e' f5 X/ P
StrMessage = Message " o  ~- Y2 _9 U6 n) Q4 w- r
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD " p9 G( I3 R! V. o6 S" ^8 f
ObjRSA.Modulus=LngKeyN $ \. f4 E2 F4 e/ A- c. A/ e
decryptstr=ObjRSA.Decode(StrMessage) 1 b/ N9 A# i, Y+ Z9 ]! j
Set ObjRSA = Nothing - ]1 g. W& B/ d% _/ b9 ^! k9 U
end function
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 5 B2 W( c1 @" n; O* D! D5 y
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 7 S. q/ x2 J9 X$ Z+ V' c# U- T/ _. y
Dim LngKeyN * e: ^  d8 x( \; w5 C6 ]
Dim StrMessage , q) O; k: ]( B/ {$ {0 ^
Dim ObjRSA
LngKeyE = "32823" ; O% B* o; b1 l3 V% g, J1 J# S2 F
LngKeyD = "20643" . l6 b+ j0 G( q9 B" ~
LngKeyN = "29893" 8 n) X. @) [4 ~; {' u- M
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 9 |2 s4 N6 C& i% h$ `; w
Set ObjRSA = Nothing ; L7 g2 x: y2 s0 E* G
end function
function decryptstr(Message) % }/ M/ R; t1 R4 G
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage : g/ e5 z. Y) l& M, w. Q
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ) |: Y2 M, U" s6 J  m, [/ |
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA $ Q# B: u4 m2 D% K6 ^
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ) s3 O% i3 P0 g- \! [# b
decryptstr=ObjRSA.Decode(StrMessage) 1 f) x3 `5 D( ?, s, V* G) v
Set ObjRSA = Nothing
end function   u2 Z3 N7 ]$ D
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last ' F6 K6 \4 P9 y
Response.Write "解密后为" &decryptstr(last) 0 v0 Z: H" i5 }0 u9 ]0 k7 e
%> ==============================================* n5 [! v& i- J
剩下的就是字符的对照表了
===================字符集================' O3 M. h# [5 |) W+ {: _
1_____6EBB( H0 ?" X# i+ T8 K7 u- w
2_____5C1F  [* I! l) y& \: F: y7 x
3_____4D750 M- z- k  h  @& {+ z$ c& j
4_____26CC
5_____4F88
6_____3F4E! a5 l" A( J  X( r
7_____0A9D4 i% b  F, {% i7 ^" D6 U# o' _
8_____1A1C
9_____6D207 K4 @' C6 X9 H5 U; r
0_____1089
a_____0F3E; I7 {2 V* Y( F3 Y# h
b_____3159- d' ~" S- d! f" n
c_____3517
d_____419C
e_____615C/ h! X! ^4 @& g
f_____556F3 \4 \+ f( A& u. g; F4 A
g_____2B7F- w1 g. @6 u+ g; I$ t$ L
h_____0F9C; w" i9 c. r/ Z# B" [
i_____00FA2 ?  \# d3 U1 }( j
j_____5A50
k_____2850% Z) p' q' ~' z5 h% U
l_____3E7B
m_____71C5
n_____1FC8' v7 B$ d8 C" _7 F- L# h' D
o_____74C1
p_____5FB8
q_____6085# [; z) w3 E" H* q7 {
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7' f3 }" y, K' ^
z_____5CF3; b+ N9 p( ~2 |& I7 i1 U$ @9 ?, @
!_____6233! B  m- f* C& n( B& w
@_____3A45( ~5 u7 a! E$ p: F
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301( F8 j: {3 g, J. H9 ]
(_____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 分享给朋友]