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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E! s: Q' o7 {* W+ V6 q
9 {  d0 U1 I; P! R& B( y7 W4 e, C
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家0 |  u  ~8 e; y- x: ~  w8 u& j
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法  d  J2 J) [, h7 z, ~( s9 O% ^
以下是RSA算法文件
, [! z  w* D, l; ]/ C( x# n
文件名RSA.ASP' w% \  V: [4 t/ L2 D5 N$ Y/ ^
===============================================
<%
Class clsRSA
Public PrivateKey / Z  z! K1 n- ^
Public PublicKey
Public Modulus 6 Z' Z  ], ^4 K( i
Public Function Crypt(pLngMessage, pLngKey) 8 D3 T- [( x- m- e, M; z  V
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 a6 y* _. e  \& \  Z2 g! g
' Mod may error on key generation * }: a3 l, t& k3 k
lLngResult = (lLngMod * lLngResult) Mod Modulus , X) Y9 n/ u3 T* w3 o* v7 B
If Err Then Exit Function 0 W8 M* e; P; H% r
Next
Else
lLngResult = pLngMessage ' V, \! J" b9 E4 ?2 W2 r; G( L
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus $ d8 S: \& v, y7 q3 m
On Error Resume Next
' Mod may error on key generation , `: L8 K7 ?4 I# L- `
lLngResult = (lLngMod * lLngResult) Mod Modulus $ ~# F7 J) o5 n1 R7 T) E
If Err Then Exit Function " l" p0 p  {7 v/ B1 s0 s
Next ( O" }6 C& c% }& a
End If 5 Y' O0 i( W8 ~# ~& U
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex : Q" }2 ~( F* a: D& r9 H3 ~
Dim lLngMaxIndex 6 e( P& ^/ S2 @/ H9 d* i- Y
Dim lBytAscii 0 f" p  Q2 P! M# C# X
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 9 T$ F2 c2 s" m8 i
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ) o4 {4 Z8 a7 c* _- A
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 4 l# K* b3 y. K& y2 I
Next # p. B) A3 W0 q8 p2 g; }
End Function - H& s) q' t+ ^1 u' N9 m6 f
Public Function Decode(ByVal pStrMessage) ( X+ p3 D! ]. x6 q
Dim lBytAscii : A! }# m/ d3 F! s3 e# U. l
Dim lLngIndex 2 \3 k0 v1 p9 K/ x3 T1 W" l, v6 I
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 6 f2 D( S5 ]8 l7 x
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 8 v) Z2 p( B: Y- y9 @% _
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) $ }! I6 ~& v9 R* b
Next - M# _% U/ m" [8 G# H' L
End Function ( H$ l% x, ^; P9 M4 y( ?6 U9 a5 U
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)   ]& A" ?+ u0 I+ Q
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function + F; H4 @; o$ k  B  {' Q
Private Function HexToNumber(ByRef pStrHex) : Y4 S8 r0 n! d7 `8 T4 Y* `
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class & `% G% C0 \* P& i$ R4 q. J2 W
function Encryptstr(Message) / p! [5 \6 R( X  y
Dim LngKeyE 4 K' {. I, U" u) q5 o
Dim LngKeyD
Dim LngKeyN $ C7 s( C7 ]6 ?2 v5 {
Dim StrMessage
Dim ObjRSA + S( `& [" o4 H( a: `
LngKeyE = "32823" 6 O/ n8 f$ X$ N
LngKeyD = "20643" " p2 t+ M+ P, c1 B! ?
LngKeyN = "29893" 9 C& D1 b$ }+ ?( ~  _2 k) U
StrMessage = Message ) W, [$ t- g: R$ q9 f' g8 Q$ h
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE - w  d) Z: c( {* x
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)   [" K) {& O! i/ W
Set ObjRSA = Nothing 1 f! P6 T1 A: h$ t2 g7 H# s
end function1 v0 k9 M' j* M* t
Function Decryptstr(Message) ; ^5 T9 d/ A2 }8 A: o( L
Dim LngKeyE
Dim LngKeyD % I+ R0 S2 P1 _' C& ?
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ( M& C/ g/ g8 ?3 Z# x2 C
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 9 ]9 h; H- V& _2 u6 L
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD + `3 K, B# v+ j8 @' F
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>: o+ _. s: o  t* U4 r0 r
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下$ F' z) n& u$ _6 P5 D; @2 ~, s
 % d, o& B$ n+ c, Y
<%7 _/ H% i  y' ]+ N8 j3 K3 B
function Encryptstr(Message) 7 z* h* l; q: P- X  ~* \1 \
Dim LngKeyE * A" a8 q- B" V% B
Dim LngKeyD
Dim LngKeyN : O: v! a  K4 s. v' K
Dim StrMessage ( e3 c/ a! f& n. X
Dim ObjRSA
LngKeyE = "32823" : S& q2 p% u( R8 u0 N
LngKeyD = "20643" - P# @0 n; N) M3 |9 n: e
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA / }5 C" j6 s0 l' Y3 L% ]
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN : S2 Z6 N) [" `1 l' X0 p
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 9 F5 O+ w4 s: N/ {2 Y
end function
function decryptstr(Message)
Dim LngKeyE 8 w8 @" z8 A; Y8 B0 ^" d% l
Dim LngKeyD   ]1 G( k4 U" b, R
Dim LngKeyN + e2 y8 ~, l5 d/ r# \8 r1 u
Dim StrMessage ( P3 `  j6 B+ ^0 m/ J& t
Dim ObjRSA 2 K# k+ z+ K$ e1 K+ @
LngKeyE = "32823" ( `6 \5 }5 ]+ D9 E9 b8 d
LngKeyD = "20643" : P5 [- R1 A' ]5 b
LngKeyN = "29893" " p0 l! e; ]6 N! Q5 {
StrMessage = Message 1 H  {1 Z* L7 C" `1 x8 h
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) $ Z4 g0 X* E# y( d8 ~' t) Y! ?
Set ObjRSA = Nothing
end function
dim last,first 7 {9 P. w2 ]6 X, t; _
first="!@#$%^&*()" ; q7 |: Z+ _! m9 g! ]+ s
Response.Write "加密前为:"&first
last=Encryptstr(first) / N9 @9 |/ g! K- c8 v
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB& g( m2 c# i  T# ]0 `- Y
2_____5C1F( ]8 w' s/ z" w! m) F  r1 p
3_____4D755 A5 T' {7 P$ r: [
4_____26CC
5_____4F88  N; p4 b; p' w) W. ~
6_____3F4E
7_____0A9D. y$ ^* q1 U$ P1 ?- l2 C- D
8_____1A1C& K. T" Q) }; I9 k' E; e; j
9_____6D201 k+ d8 B& m! i4 T- |- P- g, w  M$ o2 L
0_____1089
a_____0F3E& C+ \/ r  m" D! b8 t4 b" p5 {
b_____31592 m3 n0 {3 l) u7 Z
c_____35177 n8 Z3 ]5 M: _1 K
d_____419C
e_____615C
f_____556F
g_____2B7F6 q+ M  a, S4 J
h_____0F9C
i_____00FA
j_____5A504 e% f( A2 ?! q! Z* s1 A( ~5 Y8 r; k" K
k_____2850
l_____3E7B! E( N0 A1 ?( z9 ~
m_____71C58 w9 D. M' {  E* H7 y
n_____1FC86 V7 N/ `' j. d: ~2 {
o_____74C1
p_____5FB8
q_____6085) d0 O; S# N1 C/ y; c6 v
r_____3AC4+ o+ F0 P3 f. Y8 r2 d4 d% \8 G
s_____2F50
t_____36F84 l, Y; d* B7 R& Z
u_____7010
v_____0B42" J+ g  q- M9 b7 U
w_____1C7A4 P% Y% Z8 r8 w) r! Z
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA# ]! b# z( I5 I# t) Q) }. ~4 W) ~
&_____62B9
*_____6301
(_____4659. _3 ~% B+ m# ]6 U, h& T9 c
)_____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 分享给朋友]