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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm% @$ q: \5 X0 n
原始出处：http://www.3ast.com.cm
* z, u/ b% b+ O! N6 Q$ W" H) z
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
  X" d: O: h4 f
============================================! x2 b( R3 e# \+ T! e3 I
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法/ [+ Y0 R7 X8 J. h" ?
以下是RSA算法文件' k' {1 p0 Z0 ~- Z$ Z: J

文件名RSA.ASP
===============================================
<%
Class clsRSA ' R: _% ~% e0 H  H
Public PrivateKey 6 K( h+ ^6 c: r6 [! X& m& U
Public PublicKey
Public Modulus 0 M* H6 B3 u- Q( q1 }
Public Function Crypt(pLngMessage, pLngKey) 7 ]: ~. ~/ O9 {
On Error Resume Next
Dim lLngMod ) v: U8 O% L' W' P5 y) T
Dim lLngResult % ~; M% q' C! @" {
Dim lLngIndex ' L' |% c, g0 g% j8 h
If pLngKey Mod 2 = 0 Then ; f/ a! r* u8 N! P
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 , u/ N$ e5 ~9 h4 D3 U
lLngMod = (pLngMessage ^ 2) Mod Modulus / z* X; K8 p- Y: @
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function , C6 e+ ~8 z/ b/ u8 Y
Next
Else * j& ^! ~( s5 ?$ [7 z2 r
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 3 K7 f3 T. G$ e4 X4 b( b+ N' A
lLngResult = (lLngMod * lLngResult) Mod Modulus % Z% i& a7 d. i; K, S1 Y% ?. [* ~
If Err Then Exit Function 8 E$ M7 c- Q5 m6 |7 Z9 y* [
Next 6 p' o7 h+ X3 s& d
End If
Crypt = lLngResult ! g& c+ U/ _) M* F
End Function
* D3 C) H& I: J& O: c/ P
Public Function Encode(ByVal pStrMessage) 3 R0 R$ i# {$ K' P  _
Dim lLngIndex ; B+ i- `) j/ k- F/ Q: u
Dim lLngMaxIndex 5 A" K/ m2 W/ q
Dim lBytAscii
Dim lLngEncrypted : `* U* `. W$ P, U. k
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function - u) \3 E( r5 {7 U
For lLngIndex = 1 To lLngMaxIndex 0 F8 z' l: d2 O
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) $ b+ C; I3 a: z0 b
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next * E$ c& ?& T, Q4 m( F/ \$ ]
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii - Z6 W" Y" |+ z! r* \+ o
Dim lLngIndex
Dim lLngMaxIndex / h) Y* D! A( L+ t
Dim lLngEncryptedData % T+ x% c8 y4 D
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 + d3 f9 d; R% ]
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 0 \& f$ _/ _( g+ x, z
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) + n) ^  J" w% r' A* F6 ^
End Function 9 P2 J1 M* T2 A
Private Function HexToNumber(ByRef pStrHex) / h8 o$ ]+ m, ^
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE 5 H! m% D8 w( Y% O/ w+ p9 m
Dim LngKeyD 2 k5 l, V4 k/ K8 W2 |" |
Dim LngKeyN 8 c' Q4 e# k  W) N. T- F
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 9 U) g7 P: x3 n, E: F- N
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 7 W2 Q7 V+ i5 h: P6 z( Y
Encryptstr = ObjRSA.Encode(StrMessage) - _) C9 F! m3 n( g3 N) q" z
Set ObjRSA = Nothing % U7 h4 r" k2 N7 @. G' j: m
end function
Function Decryptstr(Message)
Dim LngKeyE 0 L. @4 L+ R$ a/ _
Dim LngKeyD ( y. c$ Y! H9 y- p8 t
Dim LngKeyN 6 i/ [( G1 N6 F, z7 Z9 B
Dim StrMessage - n* v: A! ]. g& {
Dim ObjRSA , h" l9 L7 [- u; ?+ ^
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 7 C2 d6 r4 R9 [! U9 k  I
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================( J1 Z2 C/ }$ a% J* z+ q
) f- w$ ]7 X# O+ F) _0 k& F
还有一个用于测试这段代码的test.asp% d1 D/ m$ {: ^. G7 s
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) ; a+ o' |/ C, i* c& t" K. z) V
Dim LngKeyE
Dim LngKeyD - @% \# a! g8 V# t* X/ |4 m
Dim LngKeyN
Dim StrMessage % ]) m+ K6 `, T: w6 H. T" b4 u1 ]
Dim ObjRSA $ u0 D- N. o; u. ]& z' u
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ; h0 V; a0 K: A5 P
StrMessage = Message
Set ObjRSA = New clsRSA , O' T% [/ p4 y( e0 J, L8 G
ObjRSA.PublicKey = LngKeyE 7 u! ^. _0 ]1 ]4 ^0 F% K
ObjRSA.Modulus = LngKeyN 1 o4 \4 w! a4 Z) ?
Encryptstr = ObjRSA.Encode(StrMessage) 5 K2 C' u, D% Y8 \0 T
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 0 j* ~9 @5 c4 u, B
Dim StrMessage % G& F: L/ V3 ~1 _* b- |+ [
Dim ObjRSA
LngKeyE = "32823" % G, a! w% \( |' D: L9 _
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message $ c  I3 O2 G4 d8 {8 ]; }
Set ObjRSA = New clsRSA 0 L0 z1 u, k2 Z: Y& }2 Q0 }3 y  L
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ) e% B9 O/ [6 V! |4 f: h3 a- i% X
end function 2 Y3 j" p0 W4 l6 C! m
dim last,first % \1 ?7 ?. E" `5 ]- L$ A
first="!@#$%^&*()" & l  \9 a% A2 s: t: v( K  _
Response.Write "加密前为:"&first - g& u$ P! s4 H" d# U1 ]
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 0 ?8 Y9 }3 S% |; F! G$ o" o
%> ==============================================3 D# P- ?3 n. u& F3 X& T4 O+ z% y1 j7 D
剩下的就是字符的对照表了' \' `: E/ j; \7 E* n  r
===================字符集================
1_____6EBB% f( ]6 @9 J3 o7 k0 j
2_____5C1F8 w0 |: U+ [5 N" ?
3_____4D757 V4 X2 v# g/ J  t4 H" l
4_____26CC
5_____4F88
6_____3F4E: H. @5 t- e' e' a/ Q9 c* v
7_____0A9D
8_____1A1C
9_____6D20, x2 b' N& q, u% z. _$ Q) D6 V
0_____1089
a_____0F3E; G4 K& n- V8 f$ D. d! R/ Z; w
b_____3159' D3 |2 b/ p0 x  n  ^0 {- v
c_____35177 C2 S$ H4 a8 d# C( p
d_____419C: p7 `; V# t( `. h
e_____615C8 ?' H) t: c0 p
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A508 {" E9 \' t" x% Q$ j4 y" E
k_____2850( @6 K6 Q# u% o- \7 }
l_____3E7B3 ^  q8 i" n8 X7 n) m
m_____71C5, V' t6 r% I. b6 i7 X$ l! P7 e
n_____1FC82 i' \+ C+ E  L& J
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42- J% h) t. L1 F% J
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233; W+ l, x% [6 ]0 W# O6 H
@_____3A454 ^- q) l8 a8 D2 l( Z
#_____2291- |2 {! @# V% O: ?+ U0 T/ {) e  p  G
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301# i! j; _3 Y  C2 j; r/ r) y
(_____4659. r- V# s7 e  B& v, m
)_____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 分享给朋友]