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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm% J* U( S6 J9 Y  T7 T/ R
原始出处：http://www.3ast.com.cm* n6 A* V# {) f
7 a$ E2 ]- K( x- Z- {7 l
看不懂的直接绕过
加密前为:hwy123456+ I' P+ x7 p+ n8 T! [/ E
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E  M1 Z8 S! d7 C; I/ ^+ w" u- a9 t

============================================* i7 a; ^1 m& ~3 q- i3 e
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件+ D* ^" |( v4 a3 U9 t

文件名RSA.ASP" c& j; M8 W5 z- ]  w' Q7 y. z
===============================================1 ^- K+ @: I( I+ H# B2 M7 K
<%
Class clsRSA ) W- c, W( R( b
Public PrivateKey ; X3 @3 c) n9 B9 I7 h2 q
Public PublicKey 1 w. v* f% W+ A- h
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next % ^- z$ K; y  h" R, d' l5 Z: K5 w
Dim lLngMod ! C& y, f) Q: s
Dim lLngResult
Dim lLngIndex " e& D& f/ s( s' t1 }% ?" Z
If pLngKey Mod 2 = 0 Then
lLngResult = 1 - \4 I6 K6 h* r4 y& k' K
For lLngIndex = 1 To pLngKey / 2 5 @+ u  F8 K( z) `8 {  `8 F7 u2 T
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation % u5 q' ?6 \, i' e# W) {4 m
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ) Z- T6 S) v8 T% p
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 ' z' M2 i9 @9 p" |$ n7 r
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next , r( K/ l/ ~, J  Z' U% ], j& q
' Mod may error on key generation ! s: d0 [2 m" M5 U
lLngResult = (lLngMod * lLngResult) Mod Modulus " D4 J1 i$ d, N" c. y
If Err Then Exit Function
Next 9 F5 G& n1 L; P, @6 {$ F
End If " _( m7 h1 P, Q' z# Y
Crypt = lLngResult
End Function
5 z8 c- O3 i) C/ C
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex 6 N1 i' R5 a4 F7 p# J/ d) o
Dim lBytAscii
Dim lLngEncrypted , }3 {  p& n( v) E  \& J. S
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex   R$ _# `+ G* H, m
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) . w; `0 g, T) S
Dim lBytAscii 9 h* j, z) X9 Q" c! {; C# T8 j$ j
Dim lLngIndex
Dim lLngMaxIndex # d# m! Q% m8 Y3 C7 Z0 n. d
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) + P- u, W, t2 d) l
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) & p3 ]# `0 ]9 x* p1 w9 W" X; m
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) ( r- Q' _, |+ t  y7 N$ y' e+ f
Next , b3 Q+ ?( ]. n+ m& R/ V" P9 X
End Function 4 _$ N. H. l# a2 ]6 A# X% l
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 0 g" Q0 g$ h& \. S" n
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ) e2 Y- L, {! t, E, |
End Function $ m7 P% _4 e5 i8 f, c
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function ; D0 p2 T1 M4 c, F& v+ l
End Class
function Encryptstr(Message) , [) ]  Y0 ]$ A# Y! B
Dim LngKeyE " h* w6 i0 s- p  R' y& \* p
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 4 V7 L6 ~9 h3 {8 _
Dim ObjRSA 8 }# r1 C, V; e# O
LngKeyE = "32823" 5 e# g$ p3 P& S: E6 v! ?! k% W
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE # [8 D0 |0 I- f1 _( l# F! t
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) & O9 s  T7 D1 f% ^9 J2 G5 `* ?
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 3 e$ }+ m! `3 [4 g
Dim StrMessage ! ^! G' v1 h* V  s
Dim ObjRSA $ S* ^8 D- T9 x3 M
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" / o. ~' r! W. @) T: b
StrMessage = Message
Set ObjRSA = New clsRSA - M3 m, j: t/ a* K- r! u; J% g& [& w
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 0 r5 E% u0 Q; i5 k  M2 b
decryptstr=ObjRSA.Decode(StrMessage) ( r! V, d8 f4 j2 B5 c0 O
Set ObjRSA = Nothing 5 D: A$ a2 h: y# @5 O
end function 3 W7 H/ h6 Y2 \" \/ D% E0 s
%>
===============================================
1 G/ j0 d0 d( y% _) {0 I
还有一个用于测试这段代码的test.asp8 x7 {# H( |+ V( p; V
有兴趣的自己搭建个IIS测试下3 l* s/ }3 s" h7 ]  E! P
 + V4 j$ W" K* M9 P, F0 m
<%
function Encryptstr(Message) : T6 q4 l: E# ^7 `/ }; A7 o& _5 U$ c, A
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ; `2 n0 w' S. a" s6 Q! r3 l
Dim StrMessage
Dim ObjRSA ; m$ h) q2 J6 ~+ V- D9 |  e4 u% z
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"   L9 s8 q2 ]$ \/ K
StrMessage = Message 5 z( G1 r1 L- X0 h1 e6 w3 j" k; Q
Set ObjRSA = New clsRSA ) @9 B7 a# T' R" i# H/ @: C
ObjRSA.PublicKey = LngKeyE # q: G/ ]8 g. _+ Y4 X
ObjRSA.Modulus = LngKeyN : k3 [( Q2 d2 f! K
Encryptstr = ObjRSA.Encode(StrMessage) & M) m. d; `8 k5 f9 t
Set ObjRSA = Nothing
end function . S4 I5 ~5 u) e0 k/ g2 }; j2 g
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 8 h  A! n0 ^3 I, B
Dim LngKeyN " ^! r" u1 H: ?& M6 `. ]/ }# |
Dim StrMessage 6 ]) ^" Z4 Z3 P2 I
Dim ObjRSA ) Z! T8 v8 O& H1 N& e
LngKeyE = "32823" , d6 g! Z# g1 l8 z
LngKeyD = "20643" ! p& E! B4 W6 y" z
LngKeyN = "29893"
StrMessage = Message $ i2 ^9 X  I' M1 M) v: x
Set ObjRSA = New clsRSA + v1 c( Y. C" `( M) g8 K
ObjRSA.PrivateKey =LngKeyD 4 x( A$ ]* P( e" u4 ]5 y7 R
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ; q2 F" I$ E( ?+ \; |. t% S! ]
Set ObjRSA = Nothing
end function
dim last,first ; V; N1 F0 i# K+ d$ K1 b
first="!@#$%^&*()" 4 t( E) ]  ^; g- x: p
Response.Write "加密前为:"&first 6 l9 K$ q8 e! k* n4 o7 ~
last=Encryptstr(first)
Response.Write "加密后为"&last 4 S' t- w: a. J. D( t; q
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================% [6 d# {- y; G3 ^" c: @2 T. I
1_____6EBB7 s! k  }! U- O$ Q  _/ `7 U* r' v
2_____5C1F: c0 G5 _" n5 ^  v+ S# F8 t3 E
3_____4D75) A' e, x# I$ `2 X3 ~. ?3 H8 t
4_____26CC& o  S2 |6 R9 x) ~% C& k5 H- I
5_____4F881 S9 |) y, m5 t9 F" `2 y
6_____3F4E
7_____0A9D* n0 M' d/ S( J3 G
8_____1A1C3 w( m/ b/ _" X0 b& c6 o
9_____6D201 O: G! p: I8 q1 T/ z6 y
0_____1089
a_____0F3E& w. e" H7 ], p, v2 w5 x! W" S
b_____31592 j* k$ a& ^5 n/ c& h
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C3 A3 S$ L4 b& O9 L3 W
i_____00FA, T: N* x$ ~8 s6 s+ C9 x: b
j_____5A50
k_____2850
l_____3E7B
m_____71C5& u8 r: x( P3 {: c7 m' m* o  o
n_____1FC84 P3 S' A  M1 d# Y4 p) d3 h
o_____74C1
p_____5FB88 u9 Y) W" [4 @+ m
q_____6085; t# E; p# d0 L
r_____3AC4. r" \. E: T# F
s_____2F50
t_____36F87 d1 w- q4 K( l+ E
u_____7010
v_____0B42
w_____1C7A# e% m) q5 y  I3 V( j- `" A
x_____16F87 ~, S' H4 C1 J7 d/ z9 H# e
y_____2EE7* d. F9 P$ B2 C
z_____5CF3" A/ R4 X& Z3 I4 ^+ i" C- e2 n
!_____6233
@_____3A45
#_____2291
$_____5D5C1 ~9 G" Z0 ?! @5 ^( j
%_____09B9
^_____43EA8 n) P4 i: i( m  T; L
&_____62B91 R+ R+ G% s7 Q5 v, R
*_____63012 h* a1 ~- f# C
(_____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 分享给朋友]