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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm) ~0 ^/ P3 w/ W5 v- \& Q5 y( n
7 r( d0 Q1 C: w2 h* A6 S
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 |. G# \8 y# Q) g0 o1 p" w. Z

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家4 I( M3 R7 U1 I0 f7 V7 a; T
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法$ d( N( m, Z6 Y8 {
以下是RSA算法文件
6 }& n* I/ E9 R( Y  {8 h' j
文件名RSA.ASP* S- _. E+ ?+ G7 E' R
===============================================) c6 i0 x; h! K# F5 Y$ P7 L
<%
Class clsRSA
Public PrivateKey ' q% x4 C" i& X, E" Z; }
Public PublicKey + f! m3 W, [6 S
Public Modulus ! ~' p9 g/ J1 _7 [( X: m+ O  p5 U
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 0 `0 }/ W" v1 t  V5 e
Dim lLngMod 4 i! _) w! m* L' ]& B# G7 b
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then & n. c. N: Q7 n4 \: @5 |
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
Next ; N' q7 \  A5 p' `
Else   k+ U3 g+ k( J6 ?, v2 C, R% B0 ?, m
lLngResult = pLngMessage 1 ]2 |+ ]: A' f3 g- s, x0 Y7 k4 U8 d
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 ( l3 y5 q  \% [
If Err Then Exit Function , m- X0 ?+ u1 s  P: h" ~/ N8 q7 g
Next
End If
Crypt = lLngResult % Q/ @6 R" F  d6 y+ V
End Function
- M" o/ \& q) V) d- H) t
Public Function Encode(ByVal pStrMessage) " u1 N3 u1 K6 l
Dim lLngIndex
Dim lLngMaxIndex $ W) o, n. Y8 D
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)   h  a/ }& Z5 q. X
If lLngMaxIndex = 0 Then Exit Function 1 [- {" j( v& H$ T. ~% z
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) . `! [2 s$ i, C( R) `2 X( ]" f6 Y: }
Next
End Function 0 x& {- m$ R1 c% J, Z- g
Public Function Decode(ByVal pStrMessage) ( f' V, Z- f* q) E
Dim lBytAscii
Dim lLngIndex , V3 v+ }  y2 r) ]: A
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" : @4 u5 ?( |( W: O. O6 W3 C
lLngMaxIndex = Len(pStrMessage) " n( @4 z* u+ O- m: s$ B5 N4 w
For lLngIndex = 1 To lLngMaxIndex Step 4 / A# `2 m9 h& k8 w! j  ^
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) & S0 q6 z9 W. ~! k" u' f" n
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) / O' v# M( C) @$ k. l! S- V& O3 p
Next * R# p# V3 F. K2 K& B% _# `, I
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 0 n& m" g1 [2 H( z3 ~& m
Private Function HexToNumber(ByRef pStrHex) 2 J) _( n2 |6 J+ ^
HexToNumber = CLng("&h" & pStrHex) % U. Z* w) D2 Q) n, A3 L$ j
End Function
End Class
function Encryptstr(Message) 2 O8 j7 W4 s" s/ T* o
Dim LngKeyE 5 A5 p4 [5 y7 }  T/ U) ~4 W. c/ W
Dim LngKeyD " W& X( ^5 @# e- l
Dim LngKeyN 8 ~; i+ j7 A" Z  v7 G5 Y8 c- R- E
Dim StrMessage $ J; h' y9 L  _
Dim ObjRSA - h% y; G: q' K' Z5 M. S
LngKeyE = "32823" $ c6 |; \" j- E! c4 x8 C* w4 t% }$ C
LngKeyD = "20643" % @+ X" @  C. S' z! O* v( a6 I
LngKeyN = "29893" / @! L; _& B9 v' s9 J
StrMessage = Message $ Q6 W; i% g0 F; @6 y, }
Set ObjRSA = New clsRSA ! G6 V: s. K2 ?9 |) G  V
ObjRSA.PublicKey = LngKeyE ' v; T8 v: F' @/ v0 }: r( j& o
ObjRSA.Modulus = LngKeyN 9 [% F6 J, l. F* q% J
Encryptstr = ObjRSA.Encode(StrMessage) 7 U4 x$ l6 b- {% i, V% G# q
Set ObjRSA = Nothing
end function& f* o; A1 C( H( r* a2 {5 [- b
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD & u* w. L! E( s3 B! F1 F" w
Dim LngKeyN 4 G. L! D2 i: P! N7 L/ a, [1 U
Dim StrMessage
Dim ObjRSA ) r' h% x- ?& D# @
LngKeyE = "32823"
LngKeyD = "20643" , J; C: V# i/ [; f7 z+ o
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN - b" x, q+ o: p" o/ Z7 k, p: W
decryptstr=ObjRSA.Decode(StrMessage) 1 h% O: l9 R3 ^4 d* U3 _" v
Set ObjRSA = Nothing
end function # Z! X+ _: a3 X, y# Y4 a
%>0 ]# B' q4 _) ]3 A8 Y( @
===============================================4 }0 Q+ u: _- N" s% Y

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下8 U4 h0 K- z! S% Y! Q7 L5 ?6 ]* j* S7 f

<%
function Encryptstr(Message)
Dim LngKeyE 4 I1 `# z* I0 \
Dim LngKeyD
Dim LngKeyN 3 A! {7 V& o) a/ ]5 n- d7 M) p
Dim StrMessage : R  ^9 q% O; r% Y7 A2 J/ C
Dim ObjRSA , ]' k: j& N' n3 H" T4 T
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ; _$ n5 W# l- R& p0 U3 H
ObjRSA.Modulus = LngKeyN 1 `+ y0 ~( ^* F4 I- t
Encryptstr = ObjRSA.Encode(StrMessage) 3 H- Z0 h- ~' J; `- U
Set ObjRSA = Nothing % f2 y# x+ c* V6 ~' N5 d8 _8 T
end function
function decryptstr(Message)
Dim LngKeyE ; C" o4 Q' |! L* n
Dim LngKeyD ( E# u* F) L! J/ p6 S
Dim LngKeyN
Dim StrMessage 3 v& o- @$ x6 E2 h$ _
Dim ObjRSA $ v' C: G- U: w& `
LngKeyE = "32823"
LngKeyD = "20643" 5 j& L! w. G; v5 h
LngKeyN = "29893"   Y- w$ `/ Q( m/ r1 D1 G
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN & R0 H! s2 p6 f3 \) [- b: z
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing - p, M  A: A, ]" h# f+ a( [) A
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last , O$ I7 r: h; W
Response.Write "解密后为" &decryptstr(last) 3 I# W. w. q! ^7 s3 [
%> ==============================================" ]0 d9 `! w( o& R. O& F8 D4 ~+ I! t
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88: A* S- m0 V% A( H+ g
6_____3F4E2 J5 D5 l5 G( h1 ?
7_____0A9D
8_____1A1C! v) U; o2 b+ g: k
9_____6D20  [/ C$ ^3 X. H. K8 w$ W9 t# z1 u
0_____1089% @4 j9 v' Y: K" v
a_____0F3E
b_____3159, z5 _; u  R9 J9 ^( e0 y! K" z
c_____3517
d_____419C
e_____615C4 `0 G# L- s9 O7 s6 y
f_____556F- Y9 D2 S! M/ X& i
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B1 l3 g* B' L7 y+ @; x7 l' J9 [* Q
m_____71C5! |3 i8 s' L8 s7 V. A: a! P
n_____1FC8
o_____74C1- V& e2 z5 o, ?
p_____5FB8: l6 _8 I, i7 x' v/ Q# N; ^* Y
q_____6085- V' b- v! E$ H) V( o$ R$ X
r_____3AC4- @( Y" b- Y/ l/ `( S0 r0 c, N: m3 D% r
s_____2F500 m, {$ N: ?8 v! ~! w
t_____36F8
u_____7010
v_____0B42- u) i( x' E/ L
w_____1C7A) S- C5 B  T% X/ \4 w5 r; V( ~' q9 g
x_____16F8% Y6 I* b5 f" Y3 p5 a: ]  t* {
y_____2EE7( w  a' L6 c4 `- q; ^# |0 n
z_____5CF3; S/ W5 _: A$ o0 `/ d
!_____6233
@_____3A45
#_____22911 A8 J2 t& e* ?7 S  w
$_____5D5C
%_____09B9
^_____43EA; ^& I5 K8 H2 B" ]" J
&_____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 分享给朋友]