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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm0 M' a* v5 ?3 E3 S  x/ Y$ ~0 d
原始出处：http://www.3ast.com.cm  T$ S- p$ n7 i4 n% ?8 j' _
9 k: ?0 x& M! n! v; b/ a! I3 I
看不懂的直接绕过6 L7 A% j/ w0 S% w+ C
加密前为:hwy1234569 \7 [8 i" ?4 B" E) U: C
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================& q. H' k" M, v, C4 a
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件# @8 L! u8 ^6 r

文件名RSA.ASP
===============================================3 q0 \! B! ?4 z. c
<% 1 n' }( p/ s# E
Class clsRSA ' {. r) q4 c) r8 M0 K& a1 o; B
Public PrivateKey
Public PublicKey
Public Modulus : L1 l+ m/ k' k& r0 E
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 9 ^$ a4 D' P) e$ E6 b9 D
Dim lLngMod ; M4 p! K# `/ d$ p7 n
Dim lLngResult ; U: I3 n6 `* L: q! }; e
Dim lLngIndex 8 _* {6 H' p  P
If pLngKey Mod 2 = 0 Then ; W$ o, a& F3 _, V) e/ m/ X/ h
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ) x1 ~- w& T. B+ d: s' i8 G
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ( ?2 d$ E' d" s0 ^4 y; s9 ]# ~
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage   ?- S/ z& m" _! ^% J5 \' P. E* `6 h
For lLngIndex = 1 To pLngKey / 2 ; A2 \! n2 @! \8 D
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 p+ ~' v4 _1 H8 m. |. O; Z
If Err Then Exit Function ' m2 V, R, y1 L
Next 7 ?" ]4 M1 g/ p
End If
Crypt = lLngResult
End Function
8 O$ Y3 ~) W; C
Public Function Encode(ByVal pStrMessage) + y4 M1 i4 ~0 |
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 4 p3 t! S  j. O$ W, \" l8 H
lLngMaxIndex = Len(pStrMessage) * f, z$ p3 J9 Y" }. @( A0 H* a5 t
If lLngMaxIndex = 0 Then Exit Function 4 ]' F  c5 o; n' w# m7 I5 ~
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 @  H# T+ H: _! x
lLngEncrypted = Crypt(lBytAscii, PublicKey) 4 Q8 Y6 g. T1 L0 _( B$ P
Encode = Encode & NumberToHex(lLngEncrypted, 4) 3 z& e  ^8 G0 L& q/ ^# R9 [
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 8 v7 O* j4 H$ X
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) : m* ?) C- z: }* t4 ]7 n  ]
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 2 W7 b0 M2 N. X. h5 R
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) % p6 C0 H: C- l0 Q' N3 b
Decode = Decode & Chr(lBytAscii) " j% `) W! c  e. k
Next ; C+ x8 K6 B+ L3 S6 d1 Q. R
End Function ; j! B; w/ \2 }0 l. M
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 3 V" u, l0 w$ c& x' z+ d/ S% l
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) % n  B8 B/ M+ k, G3 p
End Function
End Class ! f8 b# k, G8 z; I3 e4 I4 O
function Encryptstr(Message) , \  e- l' a% }0 \+ \( @) v
Dim LngKeyE - y! c1 m' T0 a- g3 `
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 9 r4 a1 q% a7 g* T
Dim ObjRSA * a0 }/ \3 n! X4 F# I( F. o; N
LngKeyE = "32823"
LngKeyD = "20643"   u0 n- p4 c& G7 r
LngKeyN = "29893"
StrMessage = Message 1 O- _5 ^2 ~8 q9 \
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 9 ]# e; Z5 f* L- K/ A
Encryptstr = ObjRSA.Encode(StrMessage) 3 P* C" ~$ _- h8 S' M5 i8 r
Set ObjRSA = Nothing
end function$ L. ~4 n0 w& s6 u" ]" q
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN , G+ v) v1 T1 M& Y9 C6 H
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 6 w& H; h0 }# J: V- J, {$ s
LngKeyD = "20643" 8 A& x- j: m8 {8 j+ y
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   b6 M- `8 C' I. G- }1 A! X8 o
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN - A8 w% C1 J/ D# [- j' S
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ! W3 S1 Y0 P) i5 c
end function * g) s# a5 i- U# g" T  |( w! }
%>
===============================================
" P* J" U# T/ [& }; [  X* }8 |  r
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下: W; e) z. j# X) ^8 s; `
 1 y0 B+ ?) ]1 h) L( ?$ k
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD & u8 v5 G/ \! g/ ]* z5 b! L
Dim LngKeyN
Dim StrMessage 7 K1 P. M3 U( t0 Z4 n, k
Dim ObjRSA 1 ^, S: i9 W9 M) W- ]
LngKeyE = "32823"
LngKeyD = "20643" 5 L9 X5 }& d& s0 {# V3 H
LngKeyN = "29893" 7 ~3 Y; U8 W2 j" o) e
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 6 R9 B4 C" P/ W" q8 A9 r3 C
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 1 x6 k# I- ^6 d! E
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ) J" _/ `. _* t5 b
Dim ObjRSA . ^/ B3 u2 {" `) b  [8 l+ s
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message - f1 v4 J$ T8 s. H& a$ k5 z
Set ObjRSA = New clsRSA $ h; t( h+ l0 {4 f( F
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 3 O) }2 p( a5 [  `" K/ h
Set ObjRSA = Nothing + _, i9 t* T, t4 ~' L- l! @# t
end function
dim last,first , ]9 K  V% b. b7 O6 J
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) : Y- T+ e) W3 n
Response.Write "加密后为"&last ' y* S/ T$ M1 S3 V
Response.Write "解密后为" &decryptstr(last)
%> ==============================================) I& ]/ z5 s' S$ U$ R
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F  [7 U( }8 V, t- j1 |/ P- z
3_____4D75
4_____26CC
5_____4F884 G/ k1 Y. b+ n# l+ s; j
6_____3F4E: b3 P- n8 o) I/ z& T  F& p8 f
7_____0A9D
8_____1A1C% K/ L( j" h" {' i) v2 ]! \
9_____6D20+ \3 i, B) J% M+ e
0_____1089& s- `* I( d' F
a_____0F3E
b_____3159$ F9 p0 |5 r$ g! L
c_____3517
d_____419C9 q6 b# g3 T/ }/ H* Y" e
e_____615C. `" x3 f1 E. l
f_____556F7 Q! b- R- ^, Y  s/ c& [. ~
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B2 M) U$ j" {$ b/ y# Z
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8) \8 F% k( o3 v  s, ^& g3 y
q_____60859 `0 J* J$ |/ e
r_____3AC4
s_____2F50
t_____36F88 @# h( b4 N2 M3 `* R# G, J, J: `
u_____7010
v_____0B42- S' b7 Z4 ?/ H# B% l
w_____1C7A9 y# G5 d  B# k1 a2 r' s
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45! p! h8 L" ^1 ^+ ^3 G) J
#_____2291
$_____5D5C3 k! H* q( X0 }5 I4 t
%_____09B9
^_____43EA) f  \' `+ H0 U; O, b
&_____62B9, J$ o- C' E8 B) j. H- N
*_____6301& x. n3 W) [# w4 ~6 U0 u
(_____46592 F0 ^' S' e# \
)_____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 分享给朋友]