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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm" N% \  ?  Z8 h/ I& t! _& ]
1 e" A4 _# D7 G# w. ~
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E7 D# x; K' c8 [

============================================% M, {/ A3 q/ @- l% H8 z2 U! g+ B
上面是当时自己校内的心情。现在已经解破出来了，分享给大家: K2 f5 A( s( g$ U4 X0 H
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法! }8 [. p& M$ W6 Z0 V
以下是RSA算法文件& ]% k" o; \" z4 R5 g

文件名RSA.ASP3 A9 ^( t8 L$ T5 d' n
===============================================
<%
Class clsRSA
Public PrivateKey $ t' N; E8 |/ E4 s$ W( T$ n
Public PublicKey . K5 K* P" P, V' d! n" l
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) + r, @' l% X" H" @! G! W& j" P
On Error Resume Next
Dim lLngMod ; l3 o! J/ _6 Q6 u& q2 [% X6 W8 P
Dim lLngResult 7 Z5 D6 n+ t" c- j; F
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ( {  v) X8 |8 V  s6 T' K! I
lLngResult = 1 $ j+ j7 J& \! m$ X; E
For lLngIndex = 1 To pLngKey / 2 * S, v. r4 ^( K0 g! L
lLngMod = (pLngMessage ^ 2) Mod Modulus + m- w: {9 D3 ]) R" Y
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ) g4 P& t& g$ h
If Err Then Exit Function 6 a) D% R' q/ h; R$ |
Next
Else
lLngResult = pLngMessage 5 g2 n/ N: |2 I: L* g  x" b2 K
For lLngIndex = 1 To pLngKey / 2 ; J2 ^' _5 c; T0 v& L" k
lLngMod = (pLngMessage ^ 2) Mod Modulus 6 @8 G; _+ l9 H6 w
On Error Resume Next ) m! m4 U4 K2 P4 T& W; g) a* a
' Mod may error on key generation ! R2 T: d& z4 O8 Y; T' ]5 P
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 s& ?/ Q- t* m) J# W6 m
If Err Then Exit Function 4 c1 V7 H% i* @' s8 B! W5 H
Next
End If % P0 `8 X. v( |; I/ X7 k  ?" s
Crypt = lLngResult
End Function( l5 g$ O! o, u4 |) }: ~& W

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex * z2 @& d; k" U* Y
Dim lLngMaxIndex
Dim lBytAscii 5 @- ^4 m) E/ B/ G
Dim lLngEncrypted 7 K, z  A3 Q9 W9 B. `% x6 Q; N% |. F
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 4 x& M8 T" Y  ]
lLngEncrypted = Crypt(lBytAscii, PublicKey) $ ~) d$ r( m! q' |
Encode = Encode & NumberToHex(lLngEncrypted, 4) & J7 N2 R' `' p! u- W7 O
Next ) f& {* t" L7 d7 [
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii . P1 H' W+ P) b* B: h3 `. b
Dim lLngIndex 9 ^- L& G6 H7 G
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 8 J/ Y% B9 z! L' D
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) * X3 E' r3 v2 J) u- f7 {# m
Next ! A5 q* H" v/ ^% d' n( C  A) ^
End Function   n4 R' m9 F# d, k! l1 x& H
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) , F1 e7 C# {5 k) B8 T5 i' N1 o) |
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 7 v6 _& M% l' C$ ]2 e: e
Private Function HexToNumber(ByRef pStrHex) . @% ~  B& I1 V
HexToNumber = CLng("&h" & pStrHex)
End Function 9 B5 i+ N: S6 M: [
End Class , _+ d: D+ x! ]: ?6 b
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 2 A2 l4 K0 R2 y2 X' M
Dim LngKeyN
Dim StrMessage 2 y  J6 j6 h/ g2 i  {
Dim ObjRSA 7 }& w5 \; Q1 {. n# M# z- h- Z/ F/ o0 j
LngKeyE = "32823"
LngKeyD = "20643" 3 |) O: A* _# H' N- v
LngKeyN = "29893" : b! G- I( n; u, O$ b
StrMessage = Message * c1 ?2 S4 }7 s" j
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 6 X3 w0 j$ z, B' v/ Z# v
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE ' X+ h: X3 M0 H3 `) U
Dim LngKeyD ) b4 m' K# P% x1 M1 e& n( |
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 5 B4 ]; e* b+ e' j8 x' F' Y, t3 o- c
LngKeyE = "32823"
LngKeyD = "20643" 3 h, Y( H4 l9 K4 N2 y5 }
LngKeyN = "29893" ' ^, v) S& m- |; p
StrMessage = Message 4 d! z* ]! W+ ?) k
Set ObjRSA = New clsRSA ; `8 L7 l( ~0 s) \; J1 W
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 5 }) {; v+ q* F5 S$ y' C
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 0 ~: S! e, V3 w
end function
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下! w; F9 x& B- z  Q
 4 t2 B# }6 D1 X; R
<%. G' [- ?' F2 C. d( A
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ) ?! Z! ~$ n# r9 T3 V8 J8 W8 p
Dim ObjRSA , v+ K7 g' P: H+ f! X* D9 H
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" . `& [1 _  d- Y* C% C6 K3 b
StrMessage = Message ; H+ L8 u  Q& i/ H8 R
Set ObjRSA = New clsRSA + w. G8 o: |# v% _! m( n5 p
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN   q- Y% s* O) ?) ^
Encryptstr = ObjRSA.Encode(StrMessage) 5 ?! v5 T9 A6 Z. B+ \' R# a8 \
Set ObjRSA = Nothing : R' M1 n* V1 {( i- _7 P! r4 T/ [2 N
end function : |! f4 y, s3 D
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage / b/ P1 _' h8 e6 ?( `5 Q3 S3 \5 I
Dim ObjRSA , ^0 L# [) S) k  b
LngKeyE = "32823" , Z& k' R7 t. R# k* l7 J+ h9 ~
LngKeyD = "20643"
LngKeyN = "29893" 0 x& {3 o! m' o: b- ?8 l6 A( _
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD / J& ]6 D1 g! n
ObjRSA.Modulus=LngKeyN 7 e/ j! r* |# M2 r7 I3 d# K
decryptstr=ObjRSA.Decode(StrMessage) ) C9 k9 x* i# Z) |: ^2 Z- ^
Set ObjRSA = Nothing
end function # d) @* T7 P% q) ]% s$ Z$ o
dim last,first
first="!@#$%^&*()" ) w, a% t5 p0 |3 i$ }# R
Response.Write "加密前为:"&first " y+ H9 _3 V  x& a
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了/ }0 M3 D" `8 z; I! ]3 U0 F4 x/ M6 ?
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC, P8 n5 p$ C2 o) ~
5_____4F88& g  r. h' J0 l. V  D8 G& O
6_____3F4E$ ]* K' a3 {0 K; G2 p3 I7 L
7_____0A9D- @8 G. R2 D+ c4 g- c' R6 U1 C% y
8_____1A1C
9_____6D20
0_____10895 b/ P( d0 j; c1 Y
a_____0F3E
b_____3159
c_____3517- d/ l+ ]; p* @# R
d_____419C) m& z: I) ~! {
e_____615C
f_____556F( e$ E; H! X/ @2 }6 Y3 e1 ~) s
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50& o& Y8 x3 J& E# y0 s$ B' Z( ~* {0 s
k_____28500 o. v$ Z0 E3 ?; a) v& s
l_____3E7B0 p4 H4 q, O+ z' Q+ ]7 G5 y& W
m_____71C5
n_____1FC8- B# q5 @! g3 v; Z" T/ r
o_____74C1  {( I/ Z9 [! C) y4 D/ l* {
p_____5FB8: q2 @! O& a, o8 e+ K! z$ j9 g
q_____6085
r_____3AC4
s_____2F509 y% e, c, k$ L: u
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE73 ~# |0 U, [9 U. l% g+ e2 v; }
z_____5CF3
!_____6233
@_____3A45
#_____22913 _' A7 J& R5 ~' H1 e
$_____5D5C
%_____09B9. @  M/ z* U5 N' X  ]
^_____43EA% V$ _/ M; S3 a
&_____62B9
*_____6301, w! g  q/ p# a" c' V6 Z. Y4 K
(_____46596 |( s0 `5 B2 j& Y) }
)_____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 分享给朋友]