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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm: O8 x( I8 d, {  C
原始出处：http://www.3ast.com.cm' e3 V* u; }. B

看不懂的直接绕过2 W# `7 u# I; F* L+ G8 E9 Q/ q  r. p
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 |2 H/ ^. p7 S
- T4 u" `  ^: Y7 C) x9 T! n
============================================4 _5 X% |  [, ?( N& f! ]
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, e, E4 t7 h( g/ f+ ~9 ]0 H
以下是RSA算法文件
+ o' l6 C6 q, \7 D
文件名RSA.ASP$ w3 z% O2 g8 Y# R
===============================================7 y0 L" x5 K) O7 d+ @9 q
<%
Class clsRSA
Public PrivateKey 0 p  M* Z+ J6 U! e' L/ ]! g
Public PublicKey & P1 W5 E8 ~/ w& y! f6 ~
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 2 `$ r2 U( w6 ^! V5 ?( E% ]
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then * Z3 P9 |) Z  i5 X4 U1 I9 M, A( n, T
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 1 X6 g& G6 o: u' a7 h0 \. S5 \' r
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next + f7 g% p/ t- {  w: X. r3 d+ x
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 2 Y9 t2 y) s% ^9 V+ c- W+ M' T
' Mod may error on key generation 6 y' |; P8 }' ]2 I- Q: z
lLngResult = (lLngMod * lLngResult) Mod Modulus $ |8 g1 h4 T: Z: e
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function
. M3 q" D1 i* l. D  H# T0 S# Z5 E
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii ' A5 H* B& h2 w' t: u' h
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex , X' ]4 g) o# ^$ I& \6 y5 Z9 q* l
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) " f. r8 E; m. w3 w- e; k5 `
Encode = Encode & NumberToHex(lLngEncrypted, 4) 6 X6 q+ m: {' ]7 A: H4 F2 Q2 q# K
Next ) a6 N' \9 g& B9 g1 r8 J
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex - w. n. p7 B7 E- y/ h" f
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 1 g+ I/ \& G6 `& ^: g+ h1 F% t: ?
lLngMaxIndex = Len(pStrMessage) ' Q* r& t+ D& B0 C) R0 l- d
For lLngIndex = 1 To lLngMaxIndex Step 4 2 y: B8 p( b: ~1 s5 H3 @
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) # z8 N' {8 ~8 O
Decode = Decode & Chr(lBytAscii) ; K9 H& D0 i% [1 j( p; J' Q5 z, I
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) , Y& f/ w  n- u) i7 A1 {$ W9 }
End Function   L% o+ h: A6 V0 A
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) & [8 D& E. D' W4 _. [) H
End Function . S, Q0 u# k. d  S& i- O; \# s
End Class - p& ?  \' o9 ^: }4 i, P
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage   `, n# r& z4 P3 t
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ( K. W5 f2 m* X# W
LngKeyN = "29893"
StrMessage = Message $ j/ i7 H$ @# u* Z! k
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing $ _9 ^+ M0 r3 S: I9 ]% @
end function, o$ t5 t. [. e$ \5 [* o! A
Function Decryptstr(Message)
Dim LngKeyE % c; m- K. {7 c
Dim LngKeyD # z2 y2 E* g3 _
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ( w" @$ p1 J/ X2 ]. ]
LngKeyE = "32823" 8 c9 b% V( [% b6 z1 ?3 h4 V3 e
LngKeyD = "20643" . q+ w' d" Q& k
LngKeyN = "29893" ; f8 ?/ T. b2 U0 a! I/ a5 y8 Q
StrMessage = Message 5 J6 I2 L- x, E$ d7 m3 E
Set ObjRSA = New clsRSA + P; K+ A- s, N9 N
ObjRSA.PrivateKey =LngKeyD " }, J5 f+ F! I% l
ObjRSA.Modulus=LngKeyN % u: ~4 K; Q2 N3 y$ x2 A
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function ) p/ Y5 x3 B; ?" g& L$ E/ }6 T
%>! N  B( n6 e/ z/ ~
===============================================& l1 V! M8 |3 @" a! s8 R7 I
: T8 h$ ]# q3 b: D* `
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下; ]6 g, a. k, h3 _6 G0 B' u

<%
function Encryptstr(Message) 3 F5 z( b& g! h: E4 x% R
Dim LngKeyE
Dim LngKeyD / t, }: j, L2 g; K& S7 D7 G+ [
Dim LngKeyN
Dim StrMessage % H, U  {( \/ y
Dim ObjRSA
LngKeyE = "32823" , _: i# D/ F, {! x. V% c
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message " U3 N3 B9 }; ^7 U
Set ObjRSA = New clsRSA ) a  z9 D( i" ?6 O) g7 N
ObjRSA.PublicKey = LngKeyE % [% I! v/ n- l
ObjRSA.Modulus = LngKeyN 8 @4 e+ u% S( `# Y5 ?/ F, D
Encryptstr = ObjRSA.Encode(StrMessage) ! Z! C* }9 |, X1 ~* ?! i* z% k# P
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE : ^4 W4 }! z9 v4 ^. A9 z
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 6 r0 \' L4 W8 h2 `
Dim ObjRSA
LngKeyE = "32823" 4 F* ]( K6 _8 ?- i$ B# t
LngKeyD = "20643" ) z& {+ X+ \8 Y1 k% E
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 4 e/ _, |! I0 r) h
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ; d9 Z* r3 B( \
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first . x2 _1 w3 _1 ~+ M: H& G
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================, ]9 M" o% X" \. ^8 V8 M: x% p* Z( ?
1_____6EBB
2_____5C1F0 m3 @6 z2 O2 f5 A
3_____4D75) w$ g% K% w0 J, N5 E/ \5 v
4_____26CC
5_____4F88: O# I- V4 A9 h
6_____3F4E/ ^3 B, H5 b/ h
7_____0A9D. ?! `# ]5 u/ L) D( |
8_____1A1C
9_____6D20
0_____1089
a_____0F3E! _4 s- A4 U  j1 n; G, z; Q
b_____3159. p7 J) r$ `7 B7 n: Z% Y
c_____3517
d_____419C5 j  O" Q3 g& [3 w4 F
e_____615C
f_____556F4 u: s5 Z$ X+ A. }% c/ q
g_____2B7F# n1 V$ I& c4 X: `* B
h_____0F9C7 A9 n! A. s6 `% m
i_____00FA
j_____5A50( L5 ]$ Q: D5 N& b+ G* f/ `$ m
k_____2850+ Z& C) b9 q4 Z" @) s
l_____3E7B
m_____71C5' ]% }+ l# o0 O; G" g; p# o0 S
n_____1FC8
o_____74C1
p_____5FB8/ [* V0 W" x7 ?1 P% k
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8) |; M% R/ j4 x  G0 K7 l# d
y_____2EE72 D$ }- ]) @3 j" K2 E0 ?4 X/ X
z_____5CF32 ], R' E4 [2 n
!_____62338 [& m/ U% m7 }4 U/ ]4 ?# Q
@_____3A45
#_____2291. ]9 K5 l9 Y8 _# Z+ i4 ~; m
$_____5D5C8 v; q0 Z( a3 {' l1 M4 F3 f9 z
%_____09B92 {+ w$ ]8 w: _0 ^: r$ W7 X  B
^_____43EA* @% x) `! {) Z% U6 e
&_____62B9
*_____63017 v5 M# Q! p- |1 y* C/ ~8 ~
(_____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 分享给朋友]