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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
) U2 m8 _' K. D% h8 i$ M
看不懂的直接绕过
加密前为:hwy123456; g0 G, _; J) Y2 a
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================; N# H- V) Q2 a, V
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 I: T& Z) g5 t/ N) K) P- q+ Q! O
以下是RSA算法文件
  L! X  e  D5 s0 ^5 y+ c3 R5 k
文件名RSA.ASP
===============================================% T: d/ C& r5 w5 z# v+ G
<%
Class clsRSA
Public PrivateKey
Public PublicKey 4 d4 k5 c1 W: _# I, f9 W
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
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
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus # |- c/ u4 K, b: O4 X
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation ) Z, m: ~3 L  R* L2 W- h
lLngResult = (lLngMod * lLngResult) Mod Modulus ( m2 z$ v) d+ a$ Q; P! F9 I; v
If Err Then Exit Function
Next % T; i- f; T$ y: M" g
End If
Crypt = lLngResult
End Function8 Z" U9 x, V$ m! m2 ?
$ ^* J$ C! q% W4 n( Y* V+ W3 v
Public Function Encode(ByVal pStrMessage) ; r4 X- m6 X9 d! M# T
Dim lLngIndex 0 V) U/ O) ~! O& T9 @
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 8 y( F6 i  `2 Z$ w8 M8 _
For lLngIndex = 1 To lLngMaxIndex 8 M$ l0 A! E- W, u$ A
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) / y' `$ Y( @, `  w2 \( m- D
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ' }0 Y: A( P( e3 j* F! L
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 2 g6 H" q8 E0 |" Q+ e# d3 B
Dim lLngIndex : X' O; W2 v# `8 C
Dim lLngMaxIndex 4 J& f7 [: n5 Z7 f5 [3 ?
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 % b: P( n7 F0 [6 H; ?+ d
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 9 |2 D) K6 D* r4 I$ M
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)   |- Y  O  J( `9 k2 x) @$ z. w
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 9 W9 M& H9 r& [, O9 O; U. O
End Function + M0 z" Q+ G: f4 g0 Q2 r
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function ; ?5 \" n: a# T( v1 T3 c8 W4 ?
End Class ! Y% \" |& ]( i0 G, \+ y
function Encryptstr(Message)
Dim LngKeyE 4 B2 D& C# a8 e- ?, z( W
Dim LngKeyD
Dim LngKeyN " a/ T$ h* Q; ~- F0 n' _
Dim StrMessage , v( D2 `' D) U
Dim ObjRSA
LngKeyE = "32823" 7 R' x' t) }" D5 c( w
LngKeyD = "20643" % b" u) D' |  h! S, Q
LngKeyN = "29893"
StrMessage = Message 8 w: b) Z* o8 ^" x; V) b5 z
Set ObjRSA = New clsRSA 7 J* v9 ]. b- j
ObjRSA.PublicKey = LngKeyE * @  E- i' B7 e
ObjRSA.Modulus = LngKeyN $ M( V( h: e  E$ |* p# a( u& r. G
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 1 B- I' ]- ]  ^6 F- n; p( ]$ g
end function
Function Decryptstr(Message) 6 x- c' V8 A9 o0 {! u
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ! S9 y* w) N  m8 M6 V) L
Dim ObjRSA
LngKeyE = "32823" ; C. M5 }3 I9 }: @/ T$ k
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 2 j' l+ E' s" v% D, D3 m8 A! ?$ a
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 8 i% c) K! G, O" B; g/ Z2 l7 m
ObjRSA.Modulus=LngKeyN 1 l9 W5 @/ }! \  O6 c* D9 X4 g
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>& Q2 |( F! R' b2 I5 ~; H8 M3 I
===============================================
# I9 G. {+ N" i/ C3 m$ H& Q$ q
还有一个用于测试这段代码的test.asp4 G9 _* X+ J% E
有兴趣的自己搭建个IIS测试下7 L* |3 Y8 ?+ E; H" Z* m1 b
 4 q9 u1 s* o( F
<%
function Encryptstr(Message) ! _* k2 O- |: Q; X" R, h6 Y9 s* x
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN + t) g) K8 `- N) a
Dim StrMessage
Dim ObjRSA , P8 M* ]; W: i" x
LngKeyE = "32823" 0 Z# ^+ [* K+ r
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message & a! X# @, E, c% x, p5 Q
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE   z# H1 b8 l" X0 y
ObjRSA.Modulus = LngKeyN # e) T7 r4 T+ X
Encryptstr = ObjRSA.Encode(StrMessage) 3 V/ w; g8 \& F7 H
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE ( ^5 h9 d  `# M% i4 i5 k' |
Dim LngKeyD
Dim LngKeyN
Dim StrMessage $ ~* P5 w: V" L) |
Dim ObjRSA
LngKeyE = "32823" 3 k( }* M/ X1 y7 t  p# @
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 7 g% \( U3 W6 v( E8 t
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 8 S6 w3 r7 x% ]
decryptstr=ObjRSA.Decode(StrMessage) / a/ n9 b- D5 N4 a* @. ?: Y* B
Set ObjRSA = Nothing   E5 Q: i# V  P& e) z; b7 R
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first " U- T. c3 w& b6 A( `* c& d) Y
last=Encryptstr(first)
Response.Write "加密后为"&last 6 J% v: q2 f! ]9 F
Response.Write "解密后为" &decryptstr(last) . h% p% g+ x. Y* N9 X6 K# y
%> ==============================================
剩下的就是字符的对照表了
===================字符集================! q7 p! R( o! p7 i' }
1_____6EBB
2_____5C1F, g+ E/ K7 G: P
3_____4D758 z1 k3 I# u4 r! a7 h; C* Y* w3 Y, m4 c
4_____26CC( I0 a3 F6 e4 V, ?2 H7 S
5_____4F881 ]% h' P: K* l/ Y, Z
6_____3F4E
7_____0A9D% v, b- T# X0 |) {0 \. T6 |; T6 D
8_____1A1C! h7 U6 Y; _/ p! K8 l( p
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C; [* Y7 d- Q9 `& ^0 {1 j' y- A; i% ~
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA7 @# c% `5 \; p0 g' }0 U5 N
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8* D& r; u" H( M  k! |
q_____60852 J" c# n1 z. M% q7 {& }# V. Z
r_____3AC4" S- V, t  D; p
s_____2F50, ~2 S; s5 a# D4 I% P
t_____36F8
u_____70108 u' X3 `, q' C6 f
v_____0B42
w_____1C7A: W, o5 {$ C4 ?. L
x_____16F8* v% o0 F+ Y; N+ B
y_____2EE7
z_____5CF3% }$ R+ m8 u: b& n
!_____6233
@_____3A45; i( c" o6 O$ T7 |9 D$ H# [7 ~' O
#_____2291& u: h. T3 B5 S- T
$_____5D5C
%_____09B95 ^4 Z7 j- ^5 F6 D: p
^_____43EA
&_____62B9! C# c- ~2 k) }3 ]& e! Y4 L6 P
*_____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 分享给朋友]