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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E  h6 D+ u  ^% ]

============================================& n: Z( k0 y% `5 Y( o+ q
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
/ v4 q1 T& O3 ^: B
文件名RSA.ASP
===============================================; ?3 W( O+ M: @1 t- U7 E& R3 }$ `
<% 8 f% N7 a- h) x5 u. W* E
Class clsRSA
Public PrivateKey
Public PublicKey # _% r4 ?+ e5 Y( u. K7 v$ L
Public Modulus 0 a) k3 S6 h% @9 B. v) h
Public Function Crypt(pLngMessage, pLngKey) 6 ?4 A, n1 N& o- I7 A
On Error Resume Next # a4 V# v% u4 f, z" M
Dim lLngMod
Dim lLngResult , J: B, P( |. \
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 6 S+ n0 ~# [/ g
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus : Z4 i( ]; n' d0 ]/ c! [6 X
If Err Then Exit Function
Next 4 X1 k+ W; v: T* q& 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 : a* v$ k2 c  j1 b5 W
If Err Then Exit Function # h2 u4 T# {, p. E1 P4 A4 T, ~4 B( A
Next
End If
Crypt = lLngResult
End Function" X: W2 e7 j: C! W9 R& u3 |3 z+ t

Public Function Encode(ByVal pStrMessage) - h+ P2 C/ T4 d% m
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 1 Z& A/ F* _2 d5 z
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) % M) q: I' D* M
lLngEncrypted = Crypt(lBytAscii, PublicKey) + {3 N% v- w. j$ W; H% N
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next & [# _7 n: {$ U, _
End Function ( k" c- [" _3 {1 P3 E
Public Function Decode(ByVal pStrMessage) 1 d$ B2 R$ m* |$ H
Dim lBytAscii 8 H$ M% l- B* O' S
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) : E  Z4 R% F: a5 }. f: g/ P
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 1 ~% O* ~4 D$ x( C% \3 E" r7 t
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ( G/ Z9 E0 s7 O3 [
End Function
Private Function HexToNumber(ByRef pStrHex) 7 z. V( L# E0 E0 S+ {
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) 3 N, W" U/ t: h( Y2 w& X6 u
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 9 ~' L, i- x- g4 w
LngKeyN = "29893" 9 l) }1 k1 z1 C4 T+ p- X
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * R6 Z: ]: N$ P& a: Q+ T
ObjRSA.Modulus = LngKeyN 1 ?4 g8 q8 j3 ^
Encryptstr = ObjRSA.Encode(StrMessage) 9 R4 ?' |3 a3 v3 {( O$ z
Set ObjRSA = Nothing " p  z/ r7 l* b+ V( F
end function" f& B, @% C' e
Function Decryptstr(Message) 6 [8 Q  b6 y5 K
Dim LngKeyE # n0 Z6 f3 w5 m
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ! S1 @, ]1 l  Y& H4 m
ObjRSA.PrivateKey =LngKeyD ( @2 d" }0 O2 L3 I; X
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 4 u% `8 G$ x0 H
end function
%>
===============================================3 D) d, x: R% \) E7 x% t7 l3 J4 K
6 [) Q; q  @6 y$ h
还有一个用于测试这段代码的test.asp8 \' ~) B: N2 ?* |. N8 |
有兴趣的自己搭建个IIS测试下( f9 s$ M7 i+ k* z; ^: ?3 Y5 _

<%3 [4 s% B7 a* [, p! ^' M) [
function Encryptstr(Message) 9 o, W1 t2 w& J' Q6 z
Dim LngKeyE , o) c7 @$ @2 Y; ~
Dim LngKeyD
Dim LngKeyN ! s% o8 y+ [5 e$ T& G
Dim StrMessage
Dim ObjRSA 9 c+ L5 I( X5 ], A5 {
LngKeyE = "32823"
LngKeyD = "20643" 2 P$ q! K8 C1 g
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE # |. e' K7 T% H: @( p# R
ObjRSA.Modulus = LngKeyN ' Q  c! r' W* r& P3 W
Encryptstr = ObjRSA.Encode(StrMessage) + X: @7 w& m: x* K, h# O
Set ObjRSA = Nothing
end function : M! B- F& S& W- [; Z9 x& _
function decryptstr(Message) - Q6 v+ t1 _: r* h+ n( {( O. N
Dim LngKeyE / N* p2 o: e4 k$ Z3 h8 z
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ) w1 h" k' Q6 k( f7 L9 q" c; f
Dim ObjRSA 1 l% Q9 Y* l: C% r
LngKeyE = "32823"
LngKeyD = "20643" / Y# a8 n# o# ^7 H% c$ @# z6 n7 A
LngKeyN = "29893"
StrMessage = Message $ Z7 V* K9 Y8 F
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 1 i% X/ g. d" L$ G8 X
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . s6 J" b: h, C' V- x& h
Set ObjRSA = Nothing $ d/ E3 F6 Z& M+ X" i  a: h
end function ) Q; F: @/ `/ c, g
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) & [8 I6 [3 K* E; ~$ }
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================6 A! {! U$ d5 q' J
剩下的就是字符的对照表了
===================字符集================
1_____6EBB, W. L  V- s1 B1 K
2_____5C1F
3_____4D75, u$ b9 [- z2 o3 U) p2 G0 G
4_____26CC
5_____4F885 S3 x  S3 N; x& Z" v$ t* ^5 I6 ]
6_____3F4E% ]5 O0 d* A& Z/ [2 i. h- @
7_____0A9D
8_____1A1C) M6 Q4 C6 b6 I; ~" Y+ v6 ^
9_____6D20
0_____1089: W5 m# Q0 L8 a  S  w2 T
a_____0F3E
b_____3159" _% i; e! P9 N$ Z; G
c_____3517
d_____419C- _; p6 E4 @" R9 J/ @9 d
e_____615C
f_____556F
g_____2B7F" M9 W, W+ H7 h6 {
h_____0F9C$ O' O2 b4 u: E+ T0 g) z% e8 h
i_____00FA6 ?& D) S7 P2 [" P& k4 B
j_____5A50: A. p' ^& M) O
k_____28505 S2 R) M* h6 g, t/ h& b
l_____3E7B: T  `# |# }- j7 Z
m_____71C5
n_____1FC8! O3 q8 i. n7 o- i, D3 `! i6 x
o_____74C1; t; ~' w: _1 Q
p_____5FB8
q_____6085
r_____3AC40 F% p5 e2 o. Q0 {3 ~
s_____2F50( w: T3 |/ c3 g; x( p0 F
t_____36F84 j% z, |% j' J' w3 X& N
u_____7010; {& O' _' v3 f% s- \
v_____0B42! n# x( l/ ], D' g8 y( @
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF32 r- ~# x- e/ M5 w$ k& t
!_____6233" H2 l# H4 m0 _: c$ K
@_____3A45
#_____2291& x" {" f5 y5 Y! x/ {8 \6 v
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____46597 j6 ~6 G  A5 }, G! f
)_____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 分享给朋友]