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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm6 N" W6 j" p0 H- ]1 [, T
, n7 w- ], k: _3 V0 U
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E- c1 O; z  Z" S- L+ X" r) X
4 T: s" B* k6 y0 y! }4 \% L
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家3 j- J! O# H2 E* C  E
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法3 `( k5 ]* y1 \2 ^# Y
以下是RSA算法文件

文件名RSA.ASP- n9 N9 }8 K4 |# f) I. Q: ?# y
===============================================
<%
Class clsRSA
Public PrivateKey + S& a- N* Q6 Q9 T
Public PublicKey
Public Modulus 3 Z9 H& }& w7 k# N8 v5 n
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 & |+ l+ q9 P% b7 {- G3 O
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation % G  l2 ]! C3 Y3 a3 p
lLngResult = (lLngMod * lLngResult) Mod Modulus / j1 Y7 \2 o1 ]" w5 f3 t
If Err Then Exit Function   v. C: t6 a$ q. K7 C% |. }) D
Next
Else $ F8 u2 D& m9 K, n8 U. t
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 4 K7 g$ O: q& N4 i: V# x( S
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation ; m& e7 S6 W+ ?* B. s5 J) a+ S% m
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function % k/ X% E" U+ g( v: l
Next
End If
Crypt = lLngResult
End Function1 H8 K3 r4 H, r7 r% k' R! H3 A7 c2 z( m
& L3 X. a. M1 y3 T1 {, t+ e
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ( u# z, L# l8 @: L2 R( \' l4 v
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 4 Q# V! E$ V3 v" h9 ~* J: X9 @
If lLngMaxIndex = 0 Then Exit Function 6 q% P+ I8 G6 g9 T' V' `0 F1 W+ O
For lLngIndex = 1 To lLngMaxIndex 5 \( t1 ~2 Y! c2 G4 N, t
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 9 _, t1 S9 S' _& V9 B9 D
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next & [$ q8 @/ l! P
End Function 6 ~1 g) i- l4 `: c: V0 d
Public Function Decode(ByVal pStrMessage) " I2 o9 C7 i5 S8 ~- `' E
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData & n( E5 W# w( H# Z5 y3 m5 k1 p' I! S
Decode = "" - w8 M' g: K- Y% p1 t
lLngMaxIndex = Len(pStrMessage) ' _% v' a1 F4 e3 m5 ?
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) * D( C; @& f- i/ N1 r6 S% h8 F1 y
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 7 A4 x5 l) O8 ~) E4 P+ U% t5 I
End Function
Private Function HexToNumber(ByRef pStrHex) ( X, ]1 H2 V9 ^+ I0 l4 T9 m% z  o
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class " J) Q( f5 `' H
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ' \$ Z0 t1 U& n5 }) n  U, w, B1 D
LngKeyN = "29893" + j& h$ x( }0 k
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE - k- R! F) v/ R# ?, U& K5 M
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 2 I- W5 I. p1 x% z* b
end function
Function Decryptstr(Message)
Dim LngKeyE ) C( W' p3 f0 T5 G1 U
Dim LngKeyD
Dim LngKeyN
Dim StrMessage * N6 n0 I, D9 ?' G  ~8 x
Dim ObjRSA ! [% y( x1 s( [, [/ P
LngKeyE = "32823" 2 w! U1 A9 C6 H
LngKeyD = "20643"
LngKeyN = "29893" ! h2 e2 p% }; d% z
StrMessage = Message % d0 r- B3 U4 {% Z" _8 K
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 3 w8 q' S1 v* {8 q, E% d) A- m
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing # f7 `4 Y4 k* \3 U
end function / H& D) A0 p: Q' \3 E
%>4 r! O& }  E/ m0 N) A% P% P  M0 F' a
===============================================+ g0 v  B- X, j' o  b+ Q

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下" l5 h  E1 c* p

<%
function Encryptstr(Message) 4 ^5 n, O4 s( q/ W( z& ^8 r
Dim LngKeyE + m- S$ @# v! Z2 C( S
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   }+ W# W- f$ \8 A: |  u' N
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 1 P; t3 H+ @: o7 t5 Y
StrMessage = Message   @$ |& @7 P" w: V. m8 D) t. i, p" j
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) - c0 i9 v0 T* s: u7 H: i
Set ObjRSA = Nothing   E! m  f+ B3 O2 a. o0 ?8 |: i
end function
function decryptstr(Message)
Dim LngKeyE 2 Z) W- E! I6 o) p1 r! k
Dim LngKeyD
Dim LngKeyN
Dim StrMessage # }! k( p! _7 `# W% X# o- E
Dim ObjRSA
LngKeyE = "32823" , Q( M# ?4 {) H: y+ A! e
LngKeyD = "20643"
LngKeyN = "29893" 6 \  H9 i# n+ h; Q2 l
StrMessage = Message / f9 O" b7 w0 w( C: C
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ! }2 h1 c  ?- X& S" T7 E* g( j8 U
Set ObjRSA = Nothing
end function 1 q" n6 H  h; S: ?2 C/ k9 f
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first / _5 f& D( w2 I  o
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了) E: c+ Q7 {7 r, f
===================字符集================) `* u1 t5 D5 }$ D$ u; ^# [
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E' z. R8 n' A! y
7_____0A9D7 p& G; s8 V  @! ]
8_____1A1C% L# j% {2 D+ G1 w$ b1 H1 Q
9_____6D201 K5 M" w$ H5 i
0_____1089
a_____0F3E
b_____3159
c_____3517: z' u( _1 O% F4 h& ^! i
d_____419C& r" B" A* \( j* D0 G
e_____615C
f_____556F- M) S6 A2 _8 S$ ^9 ?9 Z3 o, f
g_____2B7F
h_____0F9C
i_____00FA
j_____5A500 p  o, e5 V# d- g3 J2 @2 s% Z3 [, P
k_____2850
l_____3E7B
m_____71C5
n_____1FC8) g: ^3 \4 B7 {8 g9 ?! y
o_____74C1
p_____5FB8
q_____6085) @: x, B1 I4 D! z4 T( ]
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42/ c7 H: b; s! v7 l
w_____1C7A
x_____16F8' ]* O  i/ W5 p' Q9 K+ C8 E% n
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9+ I3 B) ^- A. |9 M
^_____43EA
&_____62B95 e- x. m6 ^7 K; N3 d  |5 H
*_____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 分享给朋友]