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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
2 q9 c. [" f3 m$ @/ [! H
看不懂的直接绕过, v! n( l  ?6 f. ^% W
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
1 `. x9 ^6 \: S( Z* H
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法8 O& N" q! d' O! s/ ~/ _9 P. v! @
以下是RSA算法文件0 K$ B( A- m9 V( |2 J- ?; @  Z
% y  i+ e* u1 `8 e6 u
文件名RSA.ASP0 Y1 n! |$ y6 O, e% j
===============================================& B: v: _# f% f* \6 f$ C' Z+ h4 v( C
<% 1 N( E/ T: s6 J1 M3 F' a
Class clsRSA
Public PrivateKey
Public PublicKey 7 ]* H# S7 ~: T9 G
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 9 M1 |: T; z( d6 k  g! j
Dim lLngMod ! \' ]( q( f  g2 X0 [$ N) S
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then % b4 v8 ~0 k$ f; ?" J+ j0 U
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation " o4 D) i0 n- x1 l7 D
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function   d+ }9 M0 b0 p5 G1 u
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 : ^; t7 S9 T4 ?! U4 F# K! u
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 1 {' b" x) g  R7 ?, ~5 u4 s$ Q* {9 z
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function
1 W* X6 a2 B7 N  d
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex 2 l9 h) G7 a3 M( x
Dim lBytAscii
Dim lLngEncrypted / N# A4 g3 i" f! N
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 1 a: N7 n( Q1 l  G4 {* ~
For lLngIndex = 1 To lLngMaxIndex   x2 o# T" r. j
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 8 p9 \# E- [& H' H6 x
Encode = Encode & NumberToHex(lLngEncrypted, 4) 1 T" s8 N& f( T! k7 R! \
Next
End Function ! F2 h- W; j: h# B% y' X+ ^
Public Function Decode(ByVal pStrMessage) 0 ?. Z3 U. v$ R5 A
Dim lBytAscii 9 a0 r! z* H( W( F' b- B$ d7 N
Dim lLngIndex
Dim lLngMaxIndex ) H2 N  p3 i' |( W( @7 ?" B
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 7 u; M! k7 D1 ?6 @$ `
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 1 M  D* ]3 J! H. B7 O; M: Y
Decode = Decode & Chr(lBytAscii)
Next 3 j/ ^2 ^, w7 i" n# L* g
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 5 H/ q5 X6 Z; N6 n% ]0 O
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   o4 `: S( y% M  P6 s6 r6 o7 F2 |- Y
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function . ]& u. Y9 S& B9 o& v# k; K
End Class ' [& V5 k; f/ e
function Encryptstr(Message)
Dim LngKeyE 9 @/ P# T' g, r
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 5 o$ z5 V  e% t' A: t6 a  D( R: i
LngKeyE = "32823" 8 k* t5 O: d. o/ ^# |# H; ^
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message - P2 ?4 r  l% p
Set ObjRSA = New clsRSA ' h$ p1 p3 \- O3 }6 p; H4 s& q
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)   b1 U/ q* z, D9 U% G" a5 G
Set ObjRSA = Nothing
end function" j' ~# S2 d. q, Y2 E4 x5 A6 j% X0 c4 E
Function Decryptstr(Message) ' I" _6 R7 ~0 W* N1 T1 j* G
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 5 v- f7 Q; S( P2 G
LngKeyE = "32823" 3 M; c* T7 k  `1 A
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ; P/ t, Y6 i7 Q5 X
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN   V+ W/ O& K0 o+ Q; \( c# s2 d
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing * G% ~9 q( v" J7 k6 H) F2 l4 ~
end function ) Y% e3 C4 H+ J
%>
===============================================& B% |/ c  @! U( Q- i- }9 U

还有一个用于测试这段代码的test.asp! n- n" J) a8 Q
有兴趣的自己搭建个IIS测试下! d0 i/ F9 q# J, {+ T7 \
 ! P' [( T* X% T
<%
function Encryptstr(Message)
Dim LngKeyE : _$ B; B2 k" n5 B
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE   N. R4 b& O4 {1 F% v
ObjRSA.Modulus = LngKeyN ( ~: M( v2 W# Z* H7 M3 ^/ B1 q
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) . T5 x! X$ f9 [
Dim LngKeyE ) @- u( B$ N; C: W7 p
Dim LngKeyD
Dim LngKeyN
Dim StrMessage . ], L+ r: Z7 E2 V3 o5 }) W
Dim ObjRSA $ c8 k5 x' r& ^, S  ~
LngKeyE = "32823" ; G6 n9 D) E# c2 Q+ o
LngKeyD = "20643" - V8 W  |" ]- J+ D/ m
LngKeyN = "29893" $ w+ u( ?; I4 r- h' Y
StrMessage = Message
Set ObjRSA = New clsRSA 1 z3 R! K" y$ l+ I
ObjRSA.PrivateKey =LngKeyD ' K( Y" G- ]9 D# z# c
ObjRSA.Modulus=LngKeyN , T* ]8 w2 _1 Y3 N6 L# x3 \% ?  p
decryptstr=ObjRSA.Decode(StrMessage) 4 B6 t" A6 p7 A
Set ObjRSA = Nothing , e3 d) l: D% m; W9 C' j6 m$ @5 I2 H
end function ! E  Q9 S! A/ ]: o$ k' S/ j: G
dim last,first % Y7 |# I5 P! L- O
first="!@#$%^&*()" ; G1 v, Z0 ~, }( P
Response.Write "加密前为:"&first 0 W) B2 Z2 D/ `: E: c
last=Encryptstr(first)
Response.Write "加密后为"&last 2 D! \) B7 {3 }9 Y
Response.Write "解密后为" &decryptstr(last) 0 j5 j. m' w5 B
%> ==============================================
剩下的就是字符的对照表了* y- h" o$ V2 g/ Z# L3 @8 ^
===================字符集================; c1 g. B" q# P4 @; o* c
1_____6EBB) \1 N2 B& D5 U- q: e
2_____5C1F: e: i# B) [/ x% C, F' _
3_____4D758 c3 a9 s7 g& n$ G- m1 x3 Q- S
4_____26CC
5_____4F882 j) T1 Y7 s, X5 Y" @3 R
6_____3F4E; s$ y8 g4 H, H3 E) x7 ^9 w$ ~$ H
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517+ S% [( {) B) ~8 I" `+ L: T- _
d_____419C
e_____615C) _* H: `; F8 h6 C% |  D
f_____556F
g_____2B7F
h_____0F9C
i_____00FA8 T) v" `$ y) o( t1 o
j_____5A50
k_____2850% ^- q/ \; B( t% `* z9 J
l_____3E7B
m_____71C5
n_____1FC8
o_____74C12 B! R( @! X8 @1 W9 z0 w' a
p_____5FB83 ?, I. W- e% {5 h- @$ O
q_____6085
r_____3AC4
s_____2F508 h/ ]  K8 \6 X3 ]3 l" a
t_____36F8
u_____7010
v_____0B42- k( b% F( p9 c
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233) z. \0 P' C% F
@_____3A45
#_____22919 W6 Q0 L$ U. a
$_____5D5C
%_____09B9$ Q% S( |. K+ T% }' g- z6 ^% U
^_____43EA
&_____62B9
*_____6301
(_____46595 G( u, C# ^1 ?5 d: z+ u
)_____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 分享给朋友]