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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 |; X% F+ J: T4 O/ I
原始出处：http://www.3ast.com.cm% N6 }" M. h- k: T6 z+ s* d

看不懂的直接绕过
加密前为:hwy1234569 N  W+ g+ l7 u0 u" P  W& V
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
0 f$ h  Y+ N5 N5 c0 f* _7 J( d
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件( t. N- O& S1 [' p( z
" z5 W4 L& P& W  s) P: |' D: k
文件名RSA.ASP
===============================================2 ]. r, n7 G5 F1 L$ b! n
<%
Class clsRSA
Public PrivateKey
Public PublicKey 0 A* Y* ?' U4 [( s
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex 6 S" D" b5 U1 J2 o
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 2 d! v; f) r! |/ i! E- r
' Mod may error on key generation 9 I  D6 \8 D: I- g
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 W2 u  y- y; B# `' u) a6 L
If Err Then Exit Function
Next ; z9 m2 n+ y+ s, U6 I! u
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 0 _6 I$ o1 G0 C/ @
On Error Resume Next - [' N8 r! a% x- s4 ?  m/ g
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function : c* S# Q& X  Z4 c! }  O
Next , T* j( t  f( ^3 X, E
End If
Crypt = lLngResult
End Function5 ^5 x1 f$ J& W0 Z! ?. z3 y

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ) A5 H1 L; w4 K- I7 k( c
Dim lLngMaxIndex ) P8 y  E/ s7 C6 U  w
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function . C/ p5 _/ v( y* u2 K
For lLngIndex = 1 To lLngMaxIndex + Y) W# e0 c& B! Z! d
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 5 q' E, M) M  o; U4 _: o
End Function 2 l0 L" O3 T. ^' S
Public Function Decode(ByVal pStrMessage)   V$ A" n6 I! e2 R1 U
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) $ N5 ~+ S) c0 a# a; n
For lLngIndex = 1 To lLngMaxIndex Step 4 9 h$ h- m0 a. X. H3 t8 r2 h# P
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) + ^  p( r" O( }5 R% x
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) " `; H; f0 {& L8 ^( `" e, q
Next
End Function   ]1 t, V# [. C4 h7 x
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 1 Q5 ~& o4 }" P2 S7 y# ]3 [$ ]
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ( v$ X& N3 z' t9 ^. d: G: u& n
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function / V* ~. w. V- r' b( A
End Class 3 ^/ x! X6 w7 s7 J
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN . O/ g' S2 k$ \4 W  W
Dim StrMessage
Dim ObjRSA 0 K1 p7 O+ q. W- \# D" V: O. ?
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ( v- S. o% `) y# x& v
Set ObjRSA = New clsRSA 3 `5 o, I! y6 Q" a! g$ E
ObjRSA.PublicKey = LngKeyE 0 g7 P" A" o# C* [: ], y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 2 Y$ C7 X5 }& a* c( {: u+ ^
Set ObjRSA = Nothing - y; A- d% S" O! o# J$ ^% O( d
end function
Function Decryptstr(Message) # y0 g1 @! z  l; x  K
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 9 i9 C- `% _# A9 s. y7 y! `
Dim StrMessage # h+ I7 L' V: f
Dim ObjRSA 2 e' N7 X% d8 r+ z3 P  J
LngKeyE = "32823" 0 M8 n; s% v% a+ y$ H* A
LngKeyD = "20643" # D: t" C/ Z* ~2 }+ Z
LngKeyN = "29893" $ v# C, e* m5 R0 J/ }& G1 C
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 4 ]% W7 s, O' }7 C3 k0 V
Set ObjRSA = Nothing * ]+ D% S5 ^, U
end function
%>
===============================================- H+ A1 e3 C* ~4 d, A; X
3 I. A! T1 o$ u3 a2 l  }9 Z) J
还有一个用于测试这段代码的test.asp5 B" P% z  t  p, T9 l
有兴趣的自己搭建个IIS测试下
 / x3 x4 p; h: T" M8 e
<%
function Encryptstr(Message)
Dim LngKeyE 4 \- U. m3 a8 N, r# N( ?( @7 a- e2 |; ?
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" % Q7 A! J1 c# ^/ w
LngKeyN = "29893"   j- J) O* h* O! d3 _9 J
StrMessage = Message # k7 D8 d: o& f1 [$ l. A
Set ObjRSA = New clsRSA 0 t( x+ O: U, k" q
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) + }$ r$ f- ~& j5 m5 _- v( Y
Set ObjRSA = Nothing : p; I& j, P4 e5 i+ |5 R) G
end function 2 _5 Y$ X9 Z; a/ K3 V: l
function decryptstr(Message)
Dim LngKeyE - _; c8 p; t; m; V
Dim LngKeyD ' k3 G+ J8 d% y
Dim LngKeyN $ a( h; m  q' t
Dim StrMessage
Dim ObjRSA - f5 f. W* w& ~
LngKeyE = "32823" 9 h6 Q5 P- @* ^- O# l
LngKeyD = "20643"
LngKeyN = "29893" " _. O, k2 I2 b* c7 _( M
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN & j/ O6 e6 s( K  [$ p5 v; T) r
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" 1 k, k5 r+ z7 ]7 D/ j6 b0 m
Response.Write "加密前为:"&first 0 V" i% w& Z+ j1 g3 m
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 6 N0 I+ q9 |0 U& `
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB, g2 P. E& r$ H/ ^( A. r
2_____5C1F
3_____4D756 `& D  ?7 ~8 E: a* C
4_____26CC
5_____4F889 D3 [3 z1 W4 D+ ^4 e
6_____3F4E& ~# ]: s# M. V6 t* V; P
7_____0A9D
8_____1A1C- C/ I  Q9 L% E1 C6 G1 c: o$ _; D  b
9_____6D20
0_____1089& k1 Z8 k; L6 m$ M
a_____0F3E9 d/ F4 d. E! v& r
b_____3159: m2 c0 Q: d2 {! d1 H0 m, u
c_____3517
d_____419C
e_____615C
f_____556F9 Q1 M2 r! \: B' \  h6 U
g_____2B7F; J0 h& r* ]/ ~% |8 f  _; R0 O/ t
h_____0F9C4 V3 X0 L7 `, o; z& g' a3 R
i_____00FA0 s8 T* F+ _: L! ^, F2 x4 A! d
j_____5A50
k_____2850
l_____3E7B% S( n/ Q6 I  S1 m8 l
m_____71C5  v+ R% ~9 P0 ^7 r# a
n_____1FC8
o_____74C1% @# Q7 I+ [9 _% u
p_____5FB8
q_____6085- s6 }( T4 Q, M3 D0 j5 ^% q6 D7 S8 e
r_____3AC48 V( @8 {" X6 \' x. j% H: D
s_____2F50
t_____36F8) H. a1 I9 Z+ l* c: K5 e3 P
u_____70104 I4 Q- a9 a( g) p( ]
v_____0B42
w_____1C7A* G/ e. j- f: r
x_____16F8  W% Q) p+ u/ O) h- R
y_____2EE7( r; f* g. {2 N/ E% \" E
z_____5CF3
!_____6233) ~9 \$ Q8 @) ]
@_____3A458 x1 [% k% u/ r, K
#_____2291$ P6 x) r+ l, J' t
$_____5D5C
%_____09B90 N  Y) }" K/ l3 V
^_____43EA! [' G& W& _6 O% d
&_____62B9
*_____63010 e- y) v, x) \3 v5 t. i. ~
(_____46594 K! ^& h4 h3 Y7 w' @; V5 Q+ V
)_____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 分享给朋友]