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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过# j+ ~2 ~; |$ X3 d1 U3 ^) H
加密前为:hwy1234564 Q. C2 l- ~- o* C- w7 B0 E
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E9 s3 u/ y' @4 D5 s: }" W1 J

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

文件名RSA.ASP7 q9 J: R! ?+ Z, D$ q9 q) U$ `" n
===============================================2 h2 x1 j0 }5 Z9 \1 x" V
<%
Class clsRSA
Public PrivateKey 3 x, R. t9 H6 y$ J; p$ B
Public PublicKey 4 k, b$ J' [' B4 I* C% M9 ^
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) : w  |5 a1 x2 l
On Error Resume Next   ]( y, j/ G5 J, R
Dim lLngMod
Dim lLngResult
Dim lLngIndex , s" n& h- Z+ x' H
If pLngKey Mod 2 = 0 Then 1 \  R) u3 t3 ]( Q; b6 @  U  k3 ^
lLngResult = 1 ' |9 s7 v' H! f4 W
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 2 k; ~' a2 f- j5 d8 R5 Y
' Mod may error on key generation / N) S- k4 Y( o# q
lLngResult = (lLngMod * lLngResult) Mod Modulus 4 {7 q9 W( {' `0 W, D
If Err Then Exit Function . R4 i9 z1 E) s
Next 2 }% k" u: _1 B& F" h5 g$ U8 N
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 5 C) c+ B! ~7 D5 Z/ w$ \& u) z; ~
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 1 W% B( I  ~+ k' ?# M
End If ( O& I& c0 O! h9 t2 k7 I7 V* {  x5 X
Crypt = lLngResult 0 k9 P. T- K$ F- U1 H
End Function
6 G8 z  K4 V6 G$ C+ D% {
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii " y4 k; \5 v, B# y
Dim lLngEncrypted " C3 A3 L) {% e- N2 N# e# R! p: ^* d
lLngMaxIndex = Len(pStrMessage) # H3 `8 \* C( l) z
If lLngMaxIndex = 0 Then Exit Function 9 d& @, C( q6 {1 P4 l8 {
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function ' P3 P2 f  b3 v7 o: f8 U
Public Function Decode(ByVal pStrMessage) " n6 {! d7 m+ `& S$ e
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex ) B( d2 N, ?- {# X1 ^' z
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) / \' M2 J+ T8 n7 O$ V
For lLngIndex = 1 To lLngMaxIndex Step 4 4 h1 d2 g& x# k
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) ( z6 f3 n& u( k+ |1 P3 W
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function & b2 X6 V( Q3 M, Y& u1 L& m0 s* T; v
Private Function HexToNumber(ByRef pStrHex) $ }& u7 _5 v. [0 J( e
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 1 D* f2 q& E+ k+ ^- O# V$ Y7 D
function Encryptstr(Message) # s7 L' Y. U1 K0 r' D+ ]4 g
Dim LngKeyE
Dim LngKeyD 0 x6 A3 L3 q+ y4 r4 I$ `
Dim LngKeyN
Dim StrMessage % ]& e6 H- K" p5 P2 p0 D
Dim ObjRSA
LngKeyE = "32823"   ]5 ~7 W4 h  t5 Z5 \0 s" V
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 4 b2 k8 n, P0 x) a0 h$ U
Set ObjRSA = New clsRSA & }/ a* n9 s3 w' p6 I- ^
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 5 y0 l* l! O" X' X: p4 I4 l
end function
Function Decryptstr(Message) . s! b  V6 S0 P% Y3 V5 J' X+ F5 \# Y
Dim LngKeyE 7 R& }, x2 l% O9 G. K$ G" W
Dim LngKeyD   ^, A- r4 w0 `' g! {! c
Dim LngKeyN " J  @( i& L/ {- \$ ~7 {; A' o4 b
Dim StrMessage * s8 c/ J% K. ^# h: ?
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 0 g" ?- E7 i0 G! R
LngKeyN = "29893" 5 C' N& y  s2 ]
StrMessage = Message ( O. \6 a" I- o( h% j! t$ E1 y2 d& J* T
Set ObjRSA = New clsRSA . F* f% v4 H0 H* Q, |
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) # {8 P. I/ a. d8 L* K* w
Set ObjRSA = Nothing ' S' M# j* K+ B: M+ M8 W# p" \
end function
%>
===============================================
  t2 z, \) C2 q9 A" G
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下. y7 P6 T' P2 C5 K4 q, n. s
 # ]0 s/ v0 J. T- |. p0 I
<%
function Encryptstr(Message) 1 S! B  O- o+ y" R0 U# i% m% {& K
Dim LngKeyE 3 |; }9 J9 E9 m7 N5 X8 L
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 1 S4 A  }2 R3 u) |! A3 V
Dim ObjRSA , x9 w6 }4 V$ c% e! d
LngKeyE = "32823"
LngKeyD = "20643" # w2 I* m, ~+ O9 \+ g/ x  P
LngKeyN = "29893" % r, ~# ~! [' h9 T- H' F
StrMessage = Message . G, }/ ~+ o' t! s. ?, J
Set ObjRSA = New clsRSA 3 `& |9 ^* a9 R4 l
ObjRSA.PublicKey = LngKeyE : D! f- O( b- _
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ! j% J: D; R4 n* E% X! e
Set ObjRSA = Nothing
end function , N, i2 D5 @# U
function decryptstr(Message) / M( X' `# @, T6 y
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 x5 V0 {) f1 {- V1 R! E% |
Dim ObjRSA
LngKeyE = "32823" , E( |) z4 v" t& c- e
LngKeyD = "20643" 4 H% u' q+ p0 q* [% `) M5 f" T
LngKeyN = "29893" 7 b9 \! `6 p* S1 u
StrMessage = Message
Set ObjRSA = New clsRSA " T4 s7 t( i$ A
ObjRSA.PrivateKey =LngKeyD 3 k5 R' V2 ]$ P% g& H( P% g
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 8 g: l( s; w* i$ h' m8 g
Set ObjRSA = Nothing 1 Y5 C% W& H1 o% P, }- J( i  K
end function 8 D) ^/ \( ]" Z9 r& d3 x6 f& _
dim last,first
first="!@#$%^&*()" $ n% `, P8 D7 `0 I# f! J5 S6 Y
Response.Write "加密前为:"&first 7 e5 ^. {" O/ }8 B9 O# ?
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB4 F* P% p* p6 L, F. T7 g% }
2_____5C1F; W& s  b2 \( t
3_____4D75
4_____26CC% f% f* F0 y/ Z  Q8 E8 H' k* \
5_____4F88* B1 m; f. L) y3 w
6_____3F4E, o9 h# Y0 R2 H# l
7_____0A9D
8_____1A1C
9_____6D20! D1 }0 U5 [2 v7 F: Q, N
0_____1089! p% B/ _) w" O: r
a_____0F3E: L4 K4 \% B# Z7 `
b_____3159
c_____3517
d_____419C: ?& b& w% ^$ s
e_____615C
f_____556F7 @/ S! M5 b4 j) d! @
g_____2B7F. u- S2 z: Z9 p2 c, B
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B& w4 |3 i) w/ e" u$ e) F% A) P
m_____71C5/ \( W% l0 s+ J0 }( y
n_____1FC8
o_____74C1" q4 L9 T$ W% E0 ~" h' m# {
p_____5FB8
q_____6085
r_____3AC43 M* u* _* y" M- n
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7( y7 T3 u1 j* l4 u
z_____5CF3! T) m3 e7 D4 i( h, F
!_____6233
@_____3A45
#_____2291- L& P& B, c2 ~) o# y( r
$_____5D5C8 \" C! c9 J, c
%_____09B97 C$ b" c- {5 d9 H1 D& y6 q
^_____43EA
&_____62B9
*_____6301  |+ N' Q5 c6 R8 U
(_____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 分享给朋友]