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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm2 V, h1 i' x+ F

看不懂的直接绕过
加密前为:hwy1234566 W! o5 ^7 S$ M1 g8 t5 g
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E4 l, E( V" ~, i
9 r7 f! P* r6 ^' p0 D( F( @. [7 R. T
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法1 a- S) k5 m# }+ `: L0 {- _
以下是RSA算法文件
, Z% \( B/ l: J/ u: U
文件名RSA.ASP* i; d+ T* {  j1 S* F
===============================================
<% 9 z* u6 m( d3 G( P7 y4 f
Class clsRSA
Public PrivateKey 7 y7 A7 \1 ?, l; \
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 7 k4 K3 ~5 m( K( d# X9 Z; \
lLngMod = (pLngMessage ^ 2) Mod Modulus + c( v: ^# c: }; K! x% r
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 j( v" O) O5 ]* C5 {. n
If Err Then Exit Function
Next 0 Y8 \" Z. R+ U) U9 \
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 ( [6 L* A7 c' C$ R. `# O, P6 k
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 g( O2 O! _5 M6 X0 G9 m8 Z
On Error Resume Next % T1 u3 x6 T, n% U6 w
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If ) t3 ]* L; z4 F" \# S' d( G8 m# \
Crypt = lLngResult & w$ Q; L& o; N
End Function
$ V' r' L4 \" I7 p) Y: g
Public Function Encode(ByVal pStrMessage) ; U: F! Q8 G+ E/ p
Dim lLngIndex * e1 ?) H8 S( b0 ?( p4 I
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) # X) L- D, p* j* G) a
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 6 d7 O7 _( b' Q9 R9 n+ ?
End Function 0 w9 m/ E4 Q( w1 l
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii + W" M2 g) k% r( O7 d
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 5 q+ d3 s, R  W7 l2 Z! l7 T0 l6 c
Decode = "" # _& G9 L1 a; |" `) V9 R9 I
lLngMaxIndex = Len(pStrMessage) 3 A& ~7 V) w" J+ Z0 h
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) " d. ~2 g# E% ?4 ?" k/ V; T9 w
Decode = Decode & Chr(lBytAscii)
Next - ?3 X" x: W, x1 ]% _) s3 N7 q
End Function . c6 A4 j4 S1 a
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) . U1 h9 _  z- M: v9 @
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) . m# L5 v2 D' H* W( g) @
End Function + |" z. a0 {. w/ l( [
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) ) I4 i4 l) k7 ^: ?
End Function
End Class 1 C0 [, y- O* Z( ?( U( r3 I! b
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 6 [; j$ [0 x' k+ P
LngKeyE = "32823" 4 J  T; t+ E3 [- w7 C5 f
LngKeyD = "20643" + P7 P/ o5 e. k, V- F2 p! M
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA / G, b7 h( P/ y
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN . I! d" ~* o* K* T  i; r* F
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) & `: b8 K9 \; B$ f
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ! O; W: ]& w- u. L
LngKeyE = "32823" 2 @# f1 Z4 T4 g" A
LngKeyD = "20643"
LngKeyN = "29893" 2 l. W4 W* U- g8 ?2 Y  ^, D
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD , k! t$ n  D  g# K
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp) o: m" _, H# p9 w0 z) f
有兴趣的自己搭建个IIS测试下
 + E( C+ L4 [7 x4 M! d
<%) a6 M/ z" b! v: f) o2 H5 d/ ?* H
function Encryptstr(Message) $ Q; p2 y, Z6 {1 @  d4 I
Dim LngKeyE ) L8 Y( _) R8 m5 X0 j/ w
Dim LngKeyD 6 ?* m) }6 @; C8 |6 ^/ x6 ?9 |- s
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 3 p8 y( i3 [2 q! I
LngKeyN = "29893" ! ]; w. O2 _& s
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 9 {$ r1 W& }/ ?% o( q: P
ObjRSA.Modulus = LngKeyN # }0 Z. ~: l6 q- U& Y. f' N% n* e
Encryptstr = ObjRSA.Encode(StrMessage) 2 n3 F8 S- V2 C5 ]: s& |. Q
Set ObjRSA = Nothing & v% Z- Q6 R& E+ P
end function
function decryptstr(Message) ( L5 x6 y/ o0 w# E0 z9 i
Dim LngKeyE & U/ }% U! \" h8 ~3 g
Dim LngKeyD
Dim LngKeyN # o7 {7 _% ^6 G  G# t2 s
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" # t. g' C" u/ F4 R) f
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing % M- g5 ^0 a5 K% ~) E& G8 h9 Q
end function ) J( W+ u' I) V$ Z; r4 E
dim last,first 5 m% F$ R4 l" Y; O# k1 ^
first="!@#$%^&*()" & N# ~/ Z8 N6 i/ z
Response.Write "加密前为:"&first 2 Y2 Q( r( t( p( ^5 H
last=Encryptstr(first) # e9 a7 L& c$ [; m" r% X3 a
Response.Write "加密后为"&last * M  y  m: U5 k2 X& e
Response.Write "解密后为" &decryptstr(last) / K2 y' E; ]9 O+ g2 |, `
%> ==============================================
剩下的就是字符的对照表了
===================字符集================1 u+ K* I- z- E- a2 u
1_____6EBB
2_____5C1F
3_____4D75& }9 N/ c" a! _! B" w1 @
4_____26CC
5_____4F88
6_____3F4E+ j' l5 [1 ]" r2 G* M3 t# M9 }
7_____0A9D8 Z4 q" s  Z2 ]$ M! F+ ~$ O
8_____1A1C
9_____6D205 _. h3 z9 J, r7 B) O4 |7 s
0_____10891 P% k* O0 U, N+ W
a_____0F3E
b_____3159
c_____35177 W+ z) c: Y7 m4 p, T. m* G2 Y
d_____419C* G* x% a- i; B; n& o
e_____615C3 p1 D( Y7 k9 c: }3 w
f_____556F. i% c+ `& z- f7 Q
g_____2B7F
h_____0F9C5 n$ p# }- {9 ?  t7 h6 j- W
i_____00FA
j_____5A50
k_____2850
l_____3E7B7 }/ x* U0 Z$ `! b% M
m_____71C57 n, Q3 D% \0 d' p; d/ K
n_____1FC8- P! o; i  z7 m/ `
o_____74C1
p_____5FB82 s' A3 l4 k) k- Z7 m, C) ~
q_____6085
r_____3AC4  Q$ Z2 G' B5 B# F/ P
s_____2F50, T9 \9 h& s8 R: f8 @1 Q4 h
t_____36F82 y7 E# G- g# e! F
u_____7010
v_____0B42' Z4 i$ ^6 e: Z1 s& |. P/ e
w_____1C7A
x_____16F85 o* z$ `" n$ ~  @" k2 P
y_____2EE7
z_____5CF31 X. X: s" B. T+ h7 k. F5 r
!_____6233  A: N7 O/ E9 {- ]0 I5 _( Y# T
@_____3A455 c  @8 l# M& O6 \
#_____2291
$_____5D5C4 {9 I9 f2 V; l3 h" X3 L8 D
%_____09B9# X2 R. {2 @. T3 K
^_____43EA
&_____62B9) U+ o9 C) w# x- K9 _/ X% B0 @+ }0 y
*_____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 分享给朋友]