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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm+ c- ]8 D( z* d  Z6 J! x" [) z0 F
原始出处：http://www.3ast.com.cm4 ]1 [# s1 Q8 L
  U: T9 f- o2 K( h2 w* u
看不懂的直接绕过  v4 f5 K) S& p" F
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E. v% F/ ~9 k* N4 P/ W: S

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件# b: q' e4 `' a& v, J

文件名RSA.ASP9 l$ W7 g, |+ b( _3 D
===============================================* w/ P7 z# J+ y4 g& ]( T+ z
<%
Class clsRSA
Public PrivateKey
Public PublicKey , [# |! h" I$ P4 ~! l, ^& L' d) v
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next # B) l; Z" h8 R6 b, N: _
Dim lLngMod & D4 m! B0 O$ k; O( i4 K
Dim lLngResult ! ^& n% q: s) \+ c2 Z! _* F
Dim lLngIndex
If pLngKey Mod 2 = 0 Then $ G6 v  _  J$ V8 m& u. L8 |
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 - i& M  Q! w8 U& @8 _4 [" X
lLngMod = (pLngMessage ^ 2) Mod Modulus   o4 m1 r, ~+ b
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 3 q/ @' ~( p  E- G1 ]
If Err Then Exit Function $ Y# E, q2 ?' _' c: y( P, C
Next
Else % k/ B1 I; k7 [
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 * Q5 e, V; J* h; q
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 c0 R5 |& i4 B8 d' R! P/ _
On Error Resume Next
' Mod may error on key generation : u3 D# P4 {$ v" m/ Q0 }& C
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 G$ N0 S+ y9 V+ t6 ?
If Err Then Exit Function 9 M3 K9 P2 D  Q: H! W" H
Next 9 A( V. ~. h3 ^  p& w
End If
Crypt = lLngResult
End Function# U& j: m0 v% k" c' D& N1 ~
3 F& r7 \$ M; r( t* D
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ! j/ _  V3 L/ M5 h
Dim lLngMaxIndex * m* w5 Y3 \: b5 h9 H5 Q- e
Dim lBytAscii 4 i; U& N; U) ]) O
Dim lLngEncrypted 2 S, R: d3 N: T$ c; q
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex # J  u; F! p! z. c- c/ V
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) $ p! Z& [  I* A, Z* ?) a
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 4 \8 c: G2 X1 s" b4 @  F+ a+ k
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 4 C  J0 e6 Q% e3 N
Decode = ""
lLngMaxIndex = Len(pStrMessage) 2 a0 a2 w4 g. _+ |4 Z( Q8 n/ a
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) & J0 M- [; U& F$ i' R, D
Decode = Decode & Chr(lBytAscii) 1 V4 m" {, c+ A- h
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) / Y0 Z% l. ]- x/ ^+ K8 H9 ]) f
HexToNumber = CLng("&h" & pStrHex) , Q; U% `2 V+ m1 e- q
End Function ( R4 k0 L, ~1 D5 @
End Class
function Encryptstr(Message)
Dim LngKeyE 6 _4 D) g8 c# m
Dim LngKeyD
Dim LngKeyN : O- a  A4 }" G* Y( p: f0 |; H4 I0 |
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" # V3 _+ j! s$ Q; f
LngKeyD = "20643"
LngKeyN = "29893" ) x$ e6 e4 i; d& q, }" t7 k2 {
StrMessage = Message 6 S7 y8 k: K3 E/ b
Set ObjRSA = New clsRSA 1 G4 [( K1 C2 I; G* Z6 a
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function* s; t; N  n$ [2 D, L$ D
Function Decryptstr(Message) ; m4 P; v  L  O$ \! O5 m( o
Dim LngKeyE
Dim LngKeyD 8 Y# B) E. O/ E) \" R$ N+ L
Dim LngKeyN   j( z6 G' k; Q& M! C( r8 `7 q7 H
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ! [" V7 X# o6 Z2 V* x; R7 }
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   Z4 _7 \- n; _3 q
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) & ?7 k# K  J9 H8 `% F, f3 T. V( g/ k
Set ObjRSA = Nothing
end function
%>6 x; b! a* R1 y: H; ^  _
===============================================
% ]7 W! i: q# s6 J" K
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下) b+ z) V: P8 F+ X1 u7 L5 t

<%1 t: c/ f$ ^9 a! e
function Encryptstr(Message) ! v, l* ^" r: u0 Z$ W& B
Dim LngKeyE + F' b3 S) L, u. |% J" Y4 s
Dim LngKeyD 5 Y3 T4 O: H% d2 }
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 2 @* C/ W8 G# z4 D. X9 r
LngKeyE = "32823"
LngKeyD = "20643" - s6 Z% F. e$ x, X5 H
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA & f9 B% G/ a2 _- u9 r; C: Y
ObjRSA.PublicKey = LngKeyE " {# K& T( f% }) |* S- w
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) * B0 R8 S% f7 c6 d, G
Set ObjRSA = Nothing
end function 5 W( t/ B+ m3 l% D
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ( ?% [6 p& s; C0 F2 K+ y- {  [
Dim StrMessage 9 @" u9 a& o, Z; l( s! y. s- a9 C: x
Dim ObjRSA ! f# L4 }, N" ~4 S. V, q! Y
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ' d3 u/ t( c& u" M5 [
StrMessage = Message 3 X+ s% O7 @8 B
Set ObjRSA = New clsRSA & ~! F4 }2 Q# e( E
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 5 q+ s, U! C# m% o5 a  Q7 t
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" 6 m+ ~* b) H$ H+ {, F  w
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last # F: l6 J5 S* M  I! F% M
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================6 @* B% z5 o3 m  e2 T% D
1_____6EBB! F6 x: K9 P9 S8 s$ ?
2_____5C1F
3_____4D75
4_____26CC  P  p4 U8 A" ~( \9 L+ ^2 k1 `
5_____4F88
6_____3F4E3 M4 G! c; n0 G2 X
7_____0A9D/ n4 l: R* g4 b- K  s4 j
8_____1A1C, r6 C* K/ l' g! X
9_____6D20
0_____1089
a_____0F3E8 G$ T0 N: y$ H, p  G
b_____31595 T! F. \9 ^" Q  }. g6 ?9 ]3 o# J. y. Q
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F  ]7 ~* m9 C1 C1 j8 D* w4 t
h_____0F9C) T! F! {4 e( V3 K
i_____00FA" p) J: b2 O: O
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8! [0 e- O4 J$ Z
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42# m  q" h+ {4 V2 U- t
w_____1C7A  W, E8 t& H9 E  t$ t6 k
x_____16F8  g+ U* _* X* j
y_____2EE7
z_____5CF39 [% b, b4 m7 O
!_____62332 Z2 j0 ^/ A0 o
@_____3A455 S; K3 ?) B$ A) f4 p, r
#_____2291
$_____5D5C
%_____09B9& j  f" B* E5 o4 R) H
^_____43EA* d, t  s$ V2 q1 `" D
&_____62B9
*_____63012 S- K/ D6 _  c  f3 d2 y
(_____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 分享给朋友]