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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
2 w3 e" U3 S; D% w9 V3 o6 |2 K
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E9 m8 z! N) W* X; j' R1 `0 a

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法: o9 q: \5 \2 w, i% ~5 H
以下是RSA算法文件  Q* K' @: J( {
8 m0 H4 j1 _# C
文件名RSA.ASP5 @  a7 X2 w4 F6 s$ y' G( h
===============================================
<% . ]+ w8 f! U! E4 z5 d
Class clsRSA
Public PrivateKey
Public PublicKey ; n( J& M/ y& J$ j5 V
Public Modulus 5 K: ~+ l- F: Y8 m
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod ' V" X" H1 K6 x$ E4 o: G7 F
Dim lLngResult 7 [  }% R; {* {( D
Dim lLngIndex # m' h, E7 K$ l- s# a6 x+ [( `4 ?
If pLngKey Mod 2 = 0 Then 3 @1 ]% e$ U& h+ A* P" k/ M3 D
lLngResult = 1 6 u& n+ z% v" x! W( H2 p$ c! K
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 T" e( n* B5 h( G
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus . j1 E0 V( F/ k8 o& J
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 O0 o7 {* n; j
On Error Resume Next $ v- q) K! X9 `2 T4 B
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus : q% r5 R1 n" @' [
If Err Then Exit Function ) _) S. m2 ]9 R0 F1 u$ d" a) G) X
Next ) }7 o# ^/ C& S7 }2 h. I- f
End If
Crypt = lLngResult . @7 X. a+ |  g0 C
End Function
5 H% m+ X. B3 ?! b
Public Function Encode(ByVal pStrMessage) 5 r8 I7 N: }# C
Dim lLngIndex : I. f7 p3 q6 S/ W: g. W: [
Dim lLngMaxIndex . r  L5 D6 @4 u9 P5 w
Dim lBytAscii 3 B! O% }  R8 V, @4 h! J
Dim lLngEncrypted 6 o7 I/ @1 {" m$ B  v
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex , N1 F* p* \2 P6 k$ }. I
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) 5 U" q9 y( g  D( Z7 o0 e
Dim lBytAscii
Dim lLngIndex , h( [6 m4 x* O. S+ v$ B
Dim lLngMaxIndex
Dim lLngEncryptedData : i7 f2 R! x, N: v; G' Q
Decode = "" 0 N' g$ i2 f) H6 ~- I! [
lLngMaxIndex = Len(pStrMessage) . T1 f3 E( O! C( j: Z
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) & _$ \  o) a# n/ [) y3 Z
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 4 K8 u0 P' I* e/ t& J
End Function $ t! }9 m' p; t7 X1 Y
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 6 X  |7 K$ g1 O0 P8 N' g
function Encryptstr(Message) , J9 i9 j# i3 w0 e3 f& s; F9 ~
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ' q5 g0 d* Z1 o% v
Dim ObjRSA
LngKeyE = "32823" ) n5 v/ x5 H- Y2 B
LngKeyD = "20643" 7 y( B" \0 h4 R
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 9 ^' g" ~1 s% e* ?+ K; y
ObjRSA.PublicKey = LngKeyE + T) Q/ F7 o9 h
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" * J# T3 j1 i! }5 L$ ?
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message * S. `" P, {& N9 i: C. W
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ' S+ j+ L- x9 l1 N* [
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 6 Z5 Z2 k8 D+ l% C6 a% A
end function 1 V6 b- m6 h/ l+ x
%>
===============================================
  d% d9 [/ D7 W: Y4 s5 k
还有一个用于测试这段代码的test.asp; ?% b/ S9 ?! G6 _; W
有兴趣的自己搭建个IIS测试下) e, m. p# k1 Q( K9 f; T  u  P$ i2 s
   [4 E6 F# F2 S8 W( |7 R0 o  @
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN $ M. q( Z, W) R- Y
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ) c) M" X8 s$ I5 o
LngKeyN = "29893" ' d# ~2 L; @2 T8 J8 ^# O) [. O; ^2 ]
StrMessage = Message 7 q- F. f; A3 X; ]* r& j0 O( {
Set ObjRSA = New clsRSA $ s8 E  l8 n2 G
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 2 D/ Y8 @/ f: y1 j2 r' j- D! G
Encryptstr = ObjRSA.Encode(StrMessage) 0 E' H$ Y5 k) f6 A1 e7 M
Set ObjRSA = Nothing * n! _; d% E1 o
end function - M" p, J% r$ h: t# G' j- a
function decryptstr(Message)
Dim LngKeyE   U9 n2 y3 e5 {) Z1 Z# Q  s
Dim LngKeyD
Dim LngKeyN ( X3 N% G* }) {
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" # o! _2 P) c3 C0 i( S
LngKeyD = "20643" 9 s0 V8 z" G& P2 |
LngKeyN = "29893"
StrMessage = Message $ b. I5 _; h1 h! e: D1 _. o
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 8 o: d' x; M9 D& c9 h4 u" \
decryptstr=ObjRSA.Decode(StrMessage) 9 E/ O* b4 M9 a; ]/ G! M
Set ObjRSA = Nothing . M8 s/ v+ p$ g; ~& z! c
end function , F2 m! T6 Q' E2 H8 C
dim last,first * E) j. d- b, d' y& G  c+ I
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last ( I$ k# ]4 M+ o
Response.Write "解密后为" &decryptstr(last)
%> ==============================================* C; W* [0 N& w% j
剩下的就是字符的对照表了
===================字符集================6 d3 Q6 d  C# G1 w
1_____6EBB
2_____5C1F
3_____4D759 ?7 D$ @7 g4 D3 l0 r. Z
4_____26CC- [  e9 a. K8 V% t: `+ ^5 Q1 H
5_____4F887 s4 f( O) V( Z8 O/ k+ K" ]- B  V
6_____3F4E
7_____0A9D8 [4 r# k& e# H) J0 U3 B* F4 i
8_____1A1C" C3 l9 ^5 Q+ u: Q; n
9_____6D20
0_____1089# q( e6 t6 `" W/ W% O
a_____0F3E( L: p- D- f/ Z
b_____3159
c_____3517
d_____419C& O  k+ x: ~- ]3 ^6 z" i
e_____615C' m# c4 [8 D5 S/ |
f_____556F7 P. D" n* O% L5 y; s: p
g_____2B7F
h_____0F9C
i_____00FA
j_____5A509 j8 u  y4 n" J
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1' t9 \) m# D7 G1 X" H% T
p_____5FB8+ H5 z% y, V' r! l* t1 J
q_____6085
r_____3AC4( @0 Q, ]8 w+ T  U
s_____2F50
t_____36F8
u_____7010- B& G" \' J7 U" w) C' T8 [0 l
v_____0B428 [3 l8 g2 i0 e6 J% Q3 c
w_____1C7A, e6 P& Q8 i$ s5 }! O/ ]! {( M
x_____16F8. s: `$ [( o, P5 W8 y. @5 X8 y
y_____2EE7/ z1 k* T0 S+ O2 g
z_____5CF3+ g0 F1 S6 o0 k7 ^
!_____6233
@_____3A453 a" [4 `( B$ c
#_____2291$ b% k1 K$ I2 H: H
$_____5D5C* ]) m5 g3 c! Q; _. ?: B
%_____09B96 y2 R. l9 A% ?6 ^$ j
^_____43EA) J$ g" S* e# C, g
&_____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 分享给朋友]