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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
# N* Q! M" A$ j7 G( q
看不懂的直接绕过, p& j+ q' j: Z5 E
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================$ M1 s! s+ M. I3 {% v2 K1 Y
上面是当时自己校内的心情。现在已经解破出来了，分享给大家' c( w9 @8 |- z+ _4 ~
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件5 E& s" D( p( _4 U  q% }
: f2 `& C4 q9 {. J& X
文件名RSA.ASP! P) e; r, O$ i$ E9 w2 L7 ~
===============================================
<% % A: m, ^6 o) \/ W0 _/ n
Class clsRSA
Public PrivateKey ( [0 Z4 z+ k7 D& _" u; u4 M$ n
Public PublicKey ( q- J! M, Y* R2 k7 }0 t
Public Modulus 0 |0 c: a! l/ a5 N; Y$ B  i- J' f9 i' u
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 9 [  y  I! Z* k, N1 O6 ^
Dim lLngMod 0 {1 r+ e7 {* U5 m* W
Dim lLngResult
Dim lLngIndex ) C6 H) Q: _& ^3 ~7 I) D* v4 v
If pLngKey Mod 2 = 0 Then , u& Q9 g" j, K) l; m. e
lLngResult = 1 - `+ z; S) b4 z& `
For lLngIndex = 1 To pLngKey / 2 8 A* N& w3 i3 i
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 P) u+ O# B$ U" O+ }: S
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 b$ V6 n# a4 D3 ?5 t  A
If Err Then Exit Function
Next ! p0 b, C& b- Q0 r+ O: G1 z) z
Else 1 e+ z8 i* Z: A6 W
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 6 l6 e, H4 c4 l( s5 p& d' g" S
lLngMod = (pLngMessage ^ 2) Mod Modulus % c: T  [) _- C' x) W1 ]9 I
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus % v5 F1 A" v+ P) t+ Q
If Err Then Exit Function + h$ L! L8 Y: ~/ S
Next + X0 {. w" a3 r$ Z
End If
Crypt = lLngResult   J6 L9 @7 p3 ]/ y4 K8 ^
End Function( F* W2 Z5 q  K' w4 d
$ e7 ?7 f; p7 ^8 H
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ! s) }* n! ?/ n3 v
Dim lLngMaxIndex
Dim lBytAscii 2 A. v& C2 A% B9 v+ H+ R/ `2 _; _
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function   E/ M5 v' D2 F* X
For lLngIndex = 1 To lLngMaxIndex " v2 s9 ~/ T' d3 K( L
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 6 `$ A" A! f- t8 q- W5 L' p
Encode = Encode & NumberToHex(lLngEncrypted, 4) 3 [- ]) l/ P2 f, ^
Next
End Function
Public Function Decode(ByVal pStrMessage) 4 N; w; t3 b1 @3 F# j
Dim lBytAscii 9 e" ]4 P0 K( Y! x( @! M0 E
Dim lLngIndex ' W* d. {3 R, [3 |
Dim lLngMaxIndex 5 r# ]7 j. B  p: Q
Dim lLngEncryptedData 8 c/ ~8 D& l; G! S: P" r
Decode = "" , w8 j5 ^$ `/ r1 ~$ O) H
lLngMaxIndex = Len(pStrMessage) ; r6 v2 I: ^/ Y& b
For lLngIndex = 1 To lLngMaxIndex Step 4 5 x$ q& n: M6 i4 n& R
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) . l2 M0 F( u6 s: y5 w
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 4 Q* p: S# h3 J- e
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) & f2 `# L, Z# i
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) " Z# S0 m7 B- Z  Y: ^1 s$ J1 i
End Function
End Class # ?6 e* I% D& U& U0 R
function Encryptstr(Message)
Dim LngKeyE % Y" F6 I+ B0 n
Dim LngKeyD
Dim LngKeyN 1 x' f1 J) d! i8 p9 c1 G
Dim StrMessage
Dim ObjRSA # P; L& H+ \& G1 L% T1 d$ U
LngKeyE = "32823" ! ]0 k' s+ W1 J( L: ]0 b' V% d
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA / [% R5 q! _1 ]0 _
ObjRSA.PublicKey = LngKeyE 3 i" v) N) v* N) s7 [7 L
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing # V. I3 T1 ^5 }9 z! i4 n
end function
Function Decryptstr(Message) % Z7 @, t) M# I- v5 R, @$ K1 s
Dim LngKeyE 5 u# G" y5 u! }1 c! L; Q! ?0 \
Dim LngKeyD
Dim LngKeyN 6 u& s" b4 L; G) f- C: N9 _
Dim StrMessage
Dim ObjRSA * R3 {/ n3 o- q' ~
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 4 f; Y$ C" o/ F) G" ?
StrMessage = Message . T% E  O4 _9 A& X2 z0 t$ @
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD $ e1 [0 n" _4 g9 S
ObjRSA.Modulus=LngKeyN ) v+ P) a# p* J' }' ~/ E
decryptstr=ObjRSA.Decode(StrMessage) % O$ ~" ~3 z4 c/ m; g
Set ObjRSA = Nothing
end function
%>  O9 P' o  z* W# n& G+ \
===============================================+ r( V, _6 \3 v
6 y1 P5 b( h' k4 ^9 c$ a
还有一个用于测试这段代码的test.asp. l# q0 K, i4 s; v9 D) n( Q5 [
有兴趣的自己搭建个IIS测试下/ U' F. K  L; P. _; b8 l" d

<%
function Encryptstr(Message) 2 W4 h  ^  ~# f# C8 O( [/ C4 S
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage / E2 H  i( i8 h9 X- u  ]
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ( D# @2 k  M0 `3 D+ Z
LngKeyN = "29893"
StrMessage = Message 5 ^. F0 E$ v  U* m0 z# X
Set ObjRSA = New clsRSA - a) V# T1 U- J3 D+ Q9 s- m. Q$ r
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) " `" o; Q# R* u/ ?( C" J( }
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE ! ?) E1 k4 _4 o( T) z1 R
Dim LngKeyD 8 @: y4 z0 _4 `: V7 ]3 ^
Dim LngKeyN ; a! E! L' I2 s- E# o% H
Dim StrMessage 3 V$ M, w5 e+ _9 ?# {
Dim ObjRSA - p, V5 w& ]. n7 \5 x
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"   p  A' a/ I9 E1 u
StrMessage = Message 4 s4 z3 F. @: I0 h' J& l* D! U
Set ObjRSA = New clsRSA # T& D, ^9 {% I* `" e) w8 T5 H
ObjRSA.PrivateKey =LngKeyD 2 V3 x3 b" ]( u2 b0 u
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first % A; n# D8 v1 Q  x# Z
first="!@#$%^&*()"
Response.Write "加密前为:"&first 9 w, ^  R8 J& E- g8 l2 P) |4 w$ r
last=Encryptstr(first)
Response.Write "加密后为"&last ! b4 \( C" `6 [% B. ?/ N
Response.Write "解密后为" &decryptstr(last) 2 _' n% O1 ~4 e5 b" Q" ?# i1 C
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB0 y. }$ q3 R9 s9 l* b, a
2_____5C1F
3_____4D75
4_____26CC
5_____4F88$ f& G4 [3 w( W9 v4 B
6_____3F4E
7_____0A9D6 M/ z7 l8 n! m$ ~1 L6 ^
8_____1A1C2 C+ y8 N1 N4 O, y# ^- |( }
9_____6D206 y% M/ H) D5 O7 s
0_____1089% {( V! G- J) i8 ^
a_____0F3E
b_____3159& n/ W4 x0 K: R. ]
c_____3517/ D! ^9 N+ g; V" T: ^( H
d_____419C
e_____615C
f_____556F
g_____2B7F- }1 Z) V& t2 n7 `: z; v
h_____0F9C
i_____00FA5 Y' ^( q' `7 {( s2 {. R
j_____5A50
k_____2850
l_____3E7B7 d% y6 I: T8 ]/ h# X. ]
m_____71C5
n_____1FC8  s7 Z* d/ P" i8 ]* r4 P7 f3 J$ q6 k
o_____74C1# }: D% ]- r. V4 \' _1 l
p_____5FB8
q_____6085* ?* }: D6 h9 M# C
r_____3AC4
s_____2F500 u0 ]3 b9 g( _+ k! g8 R: q" T
t_____36F8/ x$ A2 X4 k2 }0 f2 I- t3 n
u_____7010% i/ f3 L3 d' J' U
v_____0B42
w_____1C7A+ `0 ~6 {6 W( B/ Z" O8 U, d6 \
x_____16F8
y_____2EE76 X0 l0 P, w0 d9 u" e" [
z_____5CF3
!_____6233
@_____3A45
#_____22913 j) V* B# g  T; e( X
$_____5D5C
%_____09B9
^_____43EA1 _- c& u- n! L# I8 T3 ?1 Q
&_____62B98 I9 H3 A; i, p- p- i+ U; e
*_____6301
(_____4659. J% s+ B  v! s) L% F# N( J
)_____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 分享给朋友]