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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm  |- G$ _# m' J
原始出处：http://www.3ast.com.cm: _' x" G4 A% q  A" H: T4 s( k
% E$ O) b- `9 j) p$ s
看不懂的直接绕过$ }8 V4 d& w) P
加密前为:hwy1234560 H/ ~, g: X7 i8 @
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E" t; K) G1 G' s9 H9 P

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家9 t/ L1 i) w+ p/ `
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法1 s5 H9 f  f9 ~! v: g" V! z$ T
以下是RSA算法文件

文件名RSA.ASP; O* I# S! O/ M. p
===============================================
<%
Class clsRSA 8 v; D' }6 q* i' U5 l% G
Public PrivateKey : H. J. E3 }$ E' Y: S  A0 S
Public PublicKey
Public Modulus ! \& Y3 s/ P3 N9 O0 t
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex # R+ r/ P: V) R9 r6 J6 r* i. J+ Y
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ! L3 H; p( j  i. \: h
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 z4 ^$ {' @* J: M6 m
' Mod may error on key generation 9 D: v+ Z' w2 t5 ?3 S/ U
lLngResult = (lLngMod * lLngResult) Mod Modulus * o: x( ?( i) Z' ]
If Err Then Exit Function 5 h" _, j0 @/ }
Next , r) ~! Z* l3 H$ q/ M! }
Else
lLngResult = pLngMessage / j7 a  m- i$ E
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next + n: d6 l; u. Q  x2 b
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus + `$ H! G# c: I: P. M& g
If Err Then Exit Function
Next 3 S4 W! V( C: P
End If , E+ }+ F: X; Q4 g- U' s
Crypt = lLngResult
End Function( @) S# H8 u+ g5 ^

Public Function Encode(ByVal pStrMessage) 9 u9 r+ `7 T/ q0 t  Y
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii 1 S1 C, @! P' G. E- i) l" V
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex / C. b2 \& |; N* v3 Y7 E
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 7 F$ t* c# A0 E9 }
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 9 S8 g% m1 O6 K7 W7 t
Public Function Decode(ByVal pStrMessage) 3 ?* q* [3 e4 f+ w! `
Dim lBytAscii
Dim lLngIndex ) k" x0 b" @+ G: _. Q
Dim lLngMaxIndex
Dim lLngEncryptedData 8 h2 `/ v( T+ _  k
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 2 P! [* ^  }0 G  j- a) S$ [; u8 I
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function ( Y) r7 L: M+ J0 m: H  u+ i: N# W
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function / P/ W! S9 s$ q# E
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) ) v3 b. b9 t( H. g
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE " _* C, \  }+ x) ^1 ?+ w
Dim LngKeyD
Dim LngKeyN # W0 w' V2 N9 h' v" j
Dim StrMessage - U0 Q4 G* i' x8 Z: |% i) I
Dim ObjRSA 5 ]# b4 G& z7 @; n# Z- `- P# s# a
LngKeyE = "32823" * n# ~0 D  @2 L7 c
LngKeyD = "20643"
LngKeyN = "29893" : q3 Z2 ?, _9 g7 m/ o
StrMessage = Message % f/ b% L: P; }: f- l
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE . L( S# F7 h8 S# ^/ Q+ I' Z( g0 G
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 6 N& g1 y, A5 J6 D4 X
Set ObjRSA = Nothing ! T# J4 |* H# m4 J0 n
end function2 {2 f0 j" i9 b( P
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 0 i) g8 q! ~; c$ E  @
LngKeyE = "32823"   ~8 h. x3 L8 r  w7 |8 G' s# a+ U
LngKeyD = "20643"
LngKeyN = "29893" 1 L& ^" M2 f& `  O
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) # O6 n3 J( K# Z, z+ [' _, z, Y/ n
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp* E& y* R# N; s, v& c
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN : q9 g' C$ N7 r: h! M' x
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 2 @. d( Y0 W) o# y5 T* u* O, E! t
LngKeyD = "20643" " r! }% J" d6 R% }3 z
LngKeyN = "29893"
StrMessage = Message . X: q' l! b) d
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE   _) ~! b- v- I' i
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 2 k* A9 e2 o% Q+ z, d$ E* s
Set ObjRSA = Nothing 4 f  f2 z$ N" Z9 h4 |) b
end function # H& D7 W3 \9 c- H/ t% p# H( u
function decryptstr(Message) / c, t: ?, ?8 ~6 Q/ V
Dim LngKeyE
Dim LngKeyD - M+ w( X* f% C) M0 n/ @; N7 P5 \
Dim LngKeyN
Dim StrMessage . |+ [: v0 z! y+ v9 k
Dim ObjRSA . e; U* n& Y; n& {
LngKeyE = "32823" 2 C" X" y$ M$ x6 _. e4 p% W) V$ U
LngKeyD = "20643" 0 k8 z, m: B0 D2 I& W
LngKeyN = "29893" 6 `/ R1 ^# _% ]
StrMessage = Message - `% d' C. K2 W3 I
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN , X7 h# u8 r1 n$ D% V5 p
decryptstr=ObjRSA.Decode(StrMessage) " ^' Z) z6 C  R( C5 ?2 f, ?& i- D
Set ObjRSA = Nothing 9 F1 r; u) v- M+ h
end function
dim last,first ; ]* s" u7 _, Q( K$ N, S
first="!@#$%^&*()" ! C9 L1 o7 @3 u9 J" T* `4 d
Response.Write "加密前为:"&first : g% S2 ~# o! M0 O5 o6 W2 w( A
last=Encryptstr(first)
Response.Write "加密后为"&last " \0 o8 f$ c- J+ U
Response.Write "解密后为" &decryptstr(last) % u/ `* ]; c$ m: R4 ]
%> ==============================================" w* Y) v) x* d1 n( f  l
剩下的就是字符的对照表了- X$ c/ B7 T, i
===================字符集================! t# N0 z3 N0 Z0 c/ w
1_____6EBB7 L% s/ V3 n$ M
2_____5C1F
3_____4D75
4_____26CC. s$ L  J# p- q8 ^
5_____4F88( o  o- S. @$ `# H. s
6_____3F4E
7_____0A9D
8_____1A1C! J- z9 q* `" X
9_____6D209 I' e6 R' Z1 W+ j% o
0_____1089% j2 \1 ^5 S3 H( G8 Q- Z, \3 _! u
a_____0F3E" l$ h2 j  C3 T3 w# ^
b_____3159
c_____3517  d" u1 ^( w  r& ]
d_____419C0 V+ y4 F' h# H
e_____615C# T8 Y& }+ }, @" ~) K4 H  ^
f_____556F
g_____2B7F
h_____0F9C
i_____00FA' R  `1 V  V* c. L/ g# r
j_____5A504 Z+ |# r1 i9 a! _
k_____2850( ^, B7 t; |% s; @
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB83 u3 R+ ?# d/ }% R' J$ Y
q_____6085* H: I9 v. {7 k& r9 k' V- y
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42# y9 L1 @! y2 {% p! `
w_____1C7A" B7 O1 a8 \/ M  h, z
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45$ Q! Y# K8 h& @! |( L# d0 @
#_____2291
$_____5D5C
%_____09B97 e6 C0 L2 |" t/ o6 t# v0 f( b8 ]
^_____43EA
&_____62B9
*_____63015 b# ^: R( o  _" `! i
(_____4659/ C% h9 K( G0 p0 S/ Q, H
)_____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 分享给朋友]