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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm( C* r  R+ E/ C
原始出处：http://www.3ast.com.cm0 Q6 W2 [, ?$ E! C5 J6 t2 g

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
6 @' \4 w$ ?! i+ [4 z, P2 S
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件3 L: P) Q# n2 S: W  q- _
; \% k3 G6 R5 H" W- c$ ^
文件名RSA.ASP
===============================================
<%
Class clsRSA 0 y- O1 z2 ^5 H1 W- p& p
Public PrivateKey
Public PublicKey . L* \, y8 g- `
Public Modulus 8 H0 Q4 x( {3 R$ k
Public Function Crypt(pLngMessage, pLngKey) - Q! N+ T3 }6 D7 b2 e5 u) j$ i
On Error Resume Next
Dim lLngMod ; Q0 }$ L* B# V1 m* q
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then 5 B+ o" d; |2 e9 l3 V& i
lLngResult = 1 ( H; P6 r$ U& d  g* A
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ( c+ `  @0 A# M8 p
' Mod may error on key generation 2 B$ ?( `( I# P8 P! }" |
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 9 v9 [2 X# E1 ~6 Q' P( _
Next . p4 w) d& E5 P, ?8 l
Else
lLngResult = pLngMessage : @' t  T# E0 {8 ^' ]
For lLngIndex = 1 To pLngKey / 2 . ~! F9 K  t9 U( }8 z
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation # {2 P, ~- k& _3 I) u( C  o# J- i1 |
lLngResult = (lLngMod * lLngResult) Mod Modulus ! O; i$ E7 W% e5 q( a+ Y/ t
If Err Then Exit Function / U6 v' {' ~* M! Q9 l( R* e7 G
Next 7 C: A+ g- P) a3 O. ]. d) M
End If 0 J5 D; R- r7 b9 J; x
Crypt = lLngResult * p5 m! T( J& x+ g
End Function6 b2 o  @/ p1 r

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex $ J4 N- N, a8 s4 n4 D+ R
Dim lBytAscii
Dim lLngEncrypted 3 b) H8 Z+ n3 x! T: w' G& u6 F" \
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex # v& V) B. {6 m( R
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))   M5 y5 ]4 @! y. _" ]
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) ) f6 h6 W0 f& r: Z. ]* q
Dim lBytAscii ; w9 m; \4 B9 x; X9 D, F
Dim lLngIndex
Dim lLngMaxIndex * ~- B% o2 k+ ]9 X0 C+ s& k0 c
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) / J% ?8 Q# s; J% h: z) Q5 E
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ; \4 v! q( M- t4 m; B
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) , o6 v+ @# c& t( E( Q8 U# `" ?
End Function ) m4 H) t. d* `" l; p7 q0 `
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class % U* o' K7 J- s' }
function Encryptstr(Message) 0 U" G2 ~" `) [8 e
Dim LngKeyE ( q/ v0 S! _" ?6 E
Dim LngKeyD
Dim LngKeyN ; A) T4 `% a' ~0 Y( y5 F! X6 L* p1 w
Dim StrMessage
Dim ObjRSA / ~6 O( Z  j# Z( o
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" + Z( h2 K4 M" k3 S0 i
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN & _8 E) B) `! V9 O' g
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing : Y$ [" T" {, |& J' F, q* ~
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA " r. ?+ ?( q6 m! o9 T5 X
LngKeyE = "32823"
LngKeyD = "20643" 0 P, ~6 p5 Y# U, J' {7 F
LngKeyN = "29893" 6 W* g$ Z$ r% f; |. X
StrMessage = Message
Set ObjRSA = New clsRSA 6 A% V- ^- q" w: L: u: `8 D
ObjRSA.PrivateKey =LngKeyD - c* J; [% A, m. M! |! ~- s
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing # n( E( H! o$ E2 |
end function
%>
===============================================  o0 e$ U9 J& `1 \% B# ]
# c) ?8 P3 b, ~( F, f7 D7 V8 P' k: u
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 ) E- I$ }8 t$ W/ \+ E
<%8 E  b5 F+ i/ }1 g2 h
function Encryptstr(Message) * C" y1 q2 o% ~& c& Y
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN # ~) u3 k6 V, R+ s$ D2 _
Dim StrMessage 8 \6 V9 E) \" y. T
Dim ObjRSA . N% m5 D5 G8 x( j) ?+ F# ^! q
LngKeyE = "32823" ( s! Z" m, f4 ~3 F+ G9 L1 \5 k
LngKeyD = "20643" 6 u$ C' `# U" L5 P
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA . ?9 N6 f) [. h% b1 q3 ~
ObjRSA.PublicKey = LngKeyE 8 K% p( h$ Y- l" n
ObjRSA.Modulus = LngKeyN 9 i) }4 r3 U6 H/ u( {
Encryptstr = ObjRSA.Encode(StrMessage) , L6 Y) ^$ o& _. {7 P+ i
Set ObjRSA = Nothing 3 P, v) Z' c% {( |
end function 8 p* q. ?7 i7 L) U/ Q
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ) I% q5 _0 c& v! E
Dim LngKeyN
Dim StrMessage . @6 {* j4 |+ G- s( y% Z8 t0 _) I9 \$ a
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 9 H3 O# `% _/ m( F6 G0 t
LngKeyN = "29893" - {, y- `! o* n* X  x
StrMessage = Message 8 a) S  N1 n4 h9 b
Set ObjRSA = New clsRSA . \2 m4 b" t$ @1 }. b/ C9 d' X5 J
ObjRSA.PrivateKey =LngKeyD 4 c" R- |5 W7 }/ i# Y2 w
ObjRSA.Modulus=LngKeyN / d3 U# y8 J( m2 J
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ( p; e& Q( E7 s
end function 0 |! b" X9 y6 b0 {; f
dim last,first 6 |4 t( M$ l! T6 E6 D' |" e. x' L
first="!@#$%^&*()" , B& \6 ^/ }9 [
Response.Write "加密前为:"&first 0 ~2 M, D; b- M1 O1 A
last=Encryptstr(first) " }" a/ S. i. w* w0 d! E% d, c
Response.Write "加密后为"&last 6 y: ~7 B# g; ~7 I# J  j% R  S
Response.Write "解密后为" &decryptstr(last) " h% r, w0 a3 r: D4 v5 [" d: |
%> ==============================================7 t+ U$ d6 r* L: o, Z9 Y
剩下的就是字符的对照表了$ H6 ^* W4 h- x/ m% F
===================字符集================5 M6 y% Q4 p. ?
1_____6EBB0 H& H2 C% D% D; ~) G  A# Q
2_____5C1F
3_____4D751 X! O5 [6 L, x5 l1 f  p4 @6 ^
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089, Q7 L) `  o/ `
a_____0F3E* _+ k3 ?: [+ R, W/ g, C+ B' C% R+ Z
b_____3159, [- s( G6 e4 P- ~+ I
c_____3517! Y+ X0 M0 a0 v, r
d_____419C
e_____615C2 B6 z9 ~- \. z1 h
f_____556F; [: o& S6 ^( u$ I: s, K" Z
g_____2B7F# k4 U5 c% R* E5 V
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8/ Z; R# n' b. t& o0 X
o_____74C1- m# v4 |: }" Y/ r& L! S
p_____5FB8
q_____6085
r_____3AC4
s_____2F50; G! y) N  q: i: i
t_____36F88 s# C' @) F8 }& K' t* \
u_____70102 a+ L( l7 t. M
v_____0B42
w_____1C7A0 j5 b3 j3 N" ?2 L, d" [9 p/ N
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45  y. G8 m1 [9 X+ D: p  M
#_____2291, Y: T; l; t. v3 ?1 \9 {) _
$_____5D5C7 F+ P, H) `6 V3 K* F
%_____09B9' E/ \' B% j  A& W4 ^' E0 t
^_____43EA! h" p' A6 S# ]/ ~
&_____62B9
*_____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 分享给朋友]