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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm. e& c" K( R3 M# _
; f3 k3 s  w1 I) |; J1 B
看不懂的直接绕过3 z- h7 [9 @0 j- {8 f3 Z- E. o3 R
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E; B" v! P8 Z6 v; w; u; ~( K

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家2 d1 Y8 F( ]6 C! t1 t# T$ s2 A
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
) N' I2 S) E* w% a
文件名RSA.ASP+ F, g  v8 ]" b8 {
===============================================
<% % a  u5 K2 b& d1 L) ?2 X) K$ q
Class clsRSA # u, R7 o9 I# c: B+ v. ?
Public PrivateKey
Public PublicKey # f; b3 _/ H6 J$ ]
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) * D2 T/ M- I$ j, [5 }
On Error Resume Next
Dim lLngMod ! w5 c' O1 e8 n! }
Dim lLngResult ! r. \* u7 `, A
Dim lLngIndex % S3 i: a7 p( t& @9 E2 G6 o# F
If pLngKey Mod 2 = 0 Then
lLngResult = 1 4 w$ m+ w. s8 k
For lLngIndex = 1 To pLngKey / 2 " u* k, s- i8 I& N5 X4 j* j& t! x
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus & G' c: E1 d+ ~3 z  B: y
If Err Then Exit Function ) s* x& D: e+ [* B- f
Next / U! }; t* `, }
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next * N0 @* f4 A- n' q# m1 {
End If
Crypt = lLngResult ! n+ n, s: J2 b6 U
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex * j2 g9 v/ K8 v, f! F. Y+ {5 z6 f
Dim lLngMaxIndex
Dim lBytAscii , E8 Y+ i1 S+ ?  R/ a
Dim lLngEncrypted $ k6 [2 h5 x& Q$ }- t  M* H* G
lLngMaxIndex = Len(pStrMessage) % O% N4 [& O7 z
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex / Y2 S. k! y/ g+ N- h+ ?
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # k& L5 t" D9 ^* C" F3 Y
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) ; G2 V- \! U% R' e4 t* a- O
Next
End Function # p- R, @7 [+ H, l- }, s3 m: N
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex ; ]! [6 |- U7 Q4 }( V- S
Dim lLngEncryptedData ; n- P1 k" l9 y( Z
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 : _, V+ r- i6 N# I9 W6 Y- z
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 8 y! M5 T6 b: O, o0 L% A9 m
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 5 A- ^0 j$ |; M6 Y
Next 5 n6 [0 n' H  O1 G% p$ K
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 1 C+ A  C1 O3 Y3 L/ o/ y$ B
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class $ _$ @) T0 J8 f2 Z. ]
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD / c& B; s: _- I. f! x1 C# ^
Dim LngKeyN
Dim StrMessage ' ^9 R9 E  d/ p% G  m" i
Dim ObjRSA ' {1 u# T  d$ R; [5 y( ?! y
LngKeyE = "32823"
LngKeyD = "20643" 5 B+ r7 f: ~  B7 g5 u+ l
LngKeyN = "29893"
StrMessage = Message " q8 I- R$ t7 M/ g: |1 s
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE % |7 z/ E% V- H3 a3 S
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing & V3 L/ Q( p# n+ u5 m
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ; d0 _, o* `) m5 k  M
Dim LngKeyN ( v* \. x/ C$ z  v
Dim StrMessage , X& `+ M* `( Y' n. P
Dim ObjRSA . Z; J9 R7 a) U1 d
LngKeyE = "32823"
LngKeyD = "20643" . i+ ?4 Y' Q$ W1 {
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA * f6 A0 z+ E( t" R' |' g, H* \' o; k# c) P
ObjRSA.PrivateKey =LngKeyD   z5 \7 J/ h- p' [3 \# W
ObjRSA.Modulus=LngKeyN 6 k* A3 n; a% @* @( Z
decryptstr=ObjRSA.Decode(StrMessage) 9 a0 ?/ V$ ?9 c1 J  P1 h; G
Set ObjRSA = Nothing ( s6 p& f9 e! Y
end function - B5 S" L, h! M
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下: l) ?0 d0 C) \( B9 K7 y7 s( }

<%
function Encryptstr(Message)
Dim LngKeyE 2 l/ u4 e: f3 A* G& c2 l3 h9 s
Dim LngKeyD
Dim LngKeyN 4 B8 @! T$ P4 d8 z6 K
Dim StrMessage
Dim ObjRSA 8 w% ^  e" T, m( a
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE # W( q$ {- G7 |' w
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 8 K& j$ G, |- F; {
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 2 }4 V$ L, e) i  V) M
Dim LngKeyN ! m% W9 p! p$ \4 O0 r! ?, v- A
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 2 E; w( u. S) l3 H! E" g
LngKeyD = "20643" , p2 `# W, Z. G8 c: l
LngKeyN = "29893"
StrMessage = Message " v/ \4 }* {) g, l
Set ObjRSA = New clsRSA 4 p  P& p0 i/ Y" m( x+ I
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function * }3 e4 z2 K! P( s
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first ( C: ]9 [5 Z/ Q& ^3 S7 D6 Z; x
last=Encryptstr(first) * L  q! {/ W# ]( x$ {8 Z
Response.Write "加密后为"&last 9 @) f! `* k( s7 F
Response.Write "解密后为" &decryptstr(last)
%> ==============================================! R/ r8 `8 E1 g; \# \
剩下的就是字符的对照表了
===================字符集================0 x/ v' ]0 C$ s) ]& m! @7 q
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC1 O  T+ J  P# h, I- P! L
5_____4F884 A3 N' l3 |! z8 V- M
6_____3F4E; Z- \/ N$ c, \. P0 u
7_____0A9D$ T" Q! @0 j5 t7 u$ l8 a" t$ N9 d
8_____1A1C, k. X9 e$ N* N6 b! s
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____35173 r0 F  P/ Q% I' D  s
d_____419C6 O/ K) `1 B, a( q- S) H
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50) K* I4 `: d- _/ K* k1 @9 K& \
k_____2850+ m8 l) G* a& t$ j2 U2 C
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1/ g  m# E( s2 l3 U. ?
p_____5FB8
q_____60858 s$ L5 a( j* k+ r, y2 I3 y1 S" M( s+ I
r_____3AC4/ T% r8 q: R# j4 ^
s_____2F50
t_____36F8' j( c1 W3 ^  F/ M
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF36 ?8 M/ L) e7 p6 `  `3 {
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9  {  q7 I. `4 L8 P
^_____43EA
&_____62B9
*_____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 分享给朋友]