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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm) s. E! r$ D! `6 S7 v
  a3 W0 Z! i" |% Q& i
看不懂的直接绕过: w7 M6 [4 c. ]! M1 z; v
加密前为:hwy1234561 p' q! \9 s& V7 P" d
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件! s) I1 I- u% X+ [, D
- t4 H1 ~7 f1 j, f3 g
文件名RSA.ASP6 E+ X# v. h$ r  u+ ~
===============================================5 U5 U" z$ P6 o) G9 `
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) + ^, a% z% j) J8 p% M, @) a7 H2 }
On Error Resume Next
Dim lLngMod " v: p/ _' \+ u; B+ v8 ~9 o* X
Dim lLngResult 8 \" p5 j" `2 v: R
Dim lLngIndex & i7 g. d. P* F, V
If pLngKey Mod 2 = 0 Then
lLngResult = 1 3 W( x1 p# `3 o$ c
For lLngIndex = 1 To pLngKey / 2 ) i: s$ X4 H  N2 P6 \5 G
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ; I( v) B! l% d% q
lLngResult = (lLngMod * lLngResult) Mod Modulus 4 w9 j1 R# r3 s. e0 h$ t2 U# Q
If Err Then Exit Function
Next
Else $ i4 L) Z$ S+ y9 X+ T, O
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 2 V+ p4 F7 H, `' U; \7 T
lLngResult = (lLngMod * lLngResult) Mod Modulus : u. K  H' I; t% d7 c/ J
If Err Then Exit Function
Next & `) o4 p2 e' q0 b( a
End If / W* \! B, d" f! V
Crypt = lLngResult 1 g7 X8 b; t( e& S
End Function
- m+ b# ?! W# X1 }4 \' `$ _7 |- U
Public Function Encode(ByVal pStrMessage) " `- X" c3 P- Q1 w- ]+ @
Dim lLngIndex 8 ~1 T6 X: i# \7 |3 Q! j0 Q* ?* x
Dim lLngMaxIndex 6 F0 n: L# u( A# j3 G6 m1 c- E& @
Dim lBytAscii
Dim lLngEncrypted : }' ^: Y* A/ S, [/ s4 f6 ~$ A
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex % K; ?4 Z6 J+ B  B; \
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) , S! I7 x* T4 C
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function * K" M& e/ f- G3 B, l+ t
Public Function Decode(ByVal pStrMessage) 5 E3 T5 n3 A( r7 H$ N
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" " |9 B9 l% ?2 N) X6 _
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 ( `/ U6 B* u) L+ ^2 h* H( O! y
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 2 Z% I4 f7 y" ]0 ^) L
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) . H% e, i4 Q2 m( U) E+ ]
End Function   ~% F( n2 Y; x* {6 V8 @
End Class
function Encryptstr(Message) 5 N8 Q2 V$ M: J2 _, i* g
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ) _  a. \" K7 c
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE $ }! k' w( n% \' r
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ' S9 a$ ~% y5 Y, b2 b2 k
end function7 W1 W9 d3 u$ [" m) X- K/ O% g
Function Decryptstr(Message) 8 o* m, |3 ?5 [) m- U% Z
Dim LngKeyE $ o# P1 P9 A* ^4 ~7 M4 N( Q
Dim LngKeyD ' k% E, n  M3 z0 @1 M
Dim LngKeyN 7 q" {8 n1 X2 N) E& N% @
Dim StrMessage 7 l) @+ ]6 V; l
Dim ObjRSA 0 A4 f: ?7 x5 _
LngKeyE = "32823"
LngKeyD = "20643" 1 H, ?$ G" |8 _% @2 M" h3 V4 t
LngKeyN = "29893" 3 ^/ M+ o' w6 X3 l) b
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN $ }8 f! M6 _0 \2 }7 F5 z% r
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 9 m. X1 s0 V4 m% d# ~! ?: @- J! Q
%>+ P2 ~$ R2 h9 ~9 F
===============================================
& H4 }) L  D; g: M% ^5 y8 o. d
还有一个用于测试这段代码的test.asp0 R$ x  n% P' n% V9 D. o
有兴趣的自己搭建个IIS测试下9 y' `( b  v* n* ?& C6 Y& e

<%. U2 s7 j6 X* `  }' I
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage * r3 E" Y6 v5 ^9 w8 g* b
Dim ObjRSA & z8 i) k! l+ P* t2 a
LngKeyE = "32823"
LngKeyD = "20643" / j0 @0 }' C6 w6 \8 j; x; {4 Y
LngKeyN = "29893" $ O* Q8 `& K0 ^5 `( r; O1 Z& q5 x, Y
StrMessage = Message * [! L6 F9 l+ ]* V* |
Set ObjRSA = New clsRSA 4 i+ m$ e3 X  [0 g' w
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN % |& ^5 Y/ @, a6 m* g
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing $ P) b3 {( T; S6 f0 ?( G5 b0 s% r
end function
function decryptstr(Message) ( @) U$ ?# B1 Y% N( \
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ; g; T2 b' ^9 @6 }1 H
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 1 p0 E+ W' e& _
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ( y! ]& r5 F7 ?. k% e$ [/ f
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 6 u0 n! w, R* s1 P' Q* P( u6 V3 H: q" r
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first $ J" i9 |% l# u
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了( n) }/ I5 e# X# R& Q2 N
===================字符集================2 r  h1 m3 z5 l- J2 ~
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E$ z. }, |1 }; N# }! w! B* v: H
7_____0A9D
8_____1A1C5 S% r: r, G0 A! F! Y" S
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517+ D( A+ r! y) q
d_____419C' M/ t8 K4 `  V1 Z7 j0 v6 E
e_____615C9 l, S1 _( o& w
f_____556F4 Q+ E0 d" L% `& Q2 j
g_____2B7F* Q3 m" O  G" \' U+ F
h_____0F9C
i_____00FA; K8 u' ~, }0 ?
j_____5A50
k_____28507 p- F3 {) u; [; P4 v
l_____3E7B# [5 [- X$ H5 o
m_____71C5
n_____1FC8
o_____74C1( I7 _3 b6 b1 b/ K5 {9 m/ X7 m+ ~
p_____5FB81 |8 S6 B8 x. X3 q: T
q_____6085
r_____3AC4
s_____2F50
t_____36F8' b* ]4 l# n) L" h
u_____7010
v_____0B42
w_____1C7A" Q0 F- }% t/ M9 w. h0 O
x_____16F8' T8 i3 T3 D, A$ q& K
y_____2EE7
z_____5CF3: x) }) t8 z* k8 w0 z
!_____6233
@_____3A45" G$ a) v7 G' S- D; t1 u
#_____2291
$_____5D5C' U+ s: w& E( L5 Y% v
%_____09B9
^_____43EA
&_____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 分享给朋友]