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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm0 m  |3 A+ ?1 v) h/ n$ v

看不懂的直接绕过& y: [  o7 M3 l/ K, v+ T9 V' p
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================/ p1 x$ I/ K, M/ l7 ]9 @
上面是当时自己校内的心情。现在已经解破出来了，分享给大家3 l8 j- n. S- a
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件1 N! K( w1 Z6 H; C

文件名RSA.ASP
===============================================
<% / h, L2 c' M, z" m. A. I
Class clsRSA
Public PrivateKey
Public PublicKey $ @5 W* N5 z1 H6 P( U0 R$ r
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ( `) H* }+ ^% q9 H  z
On Error Resume Next
Dim lLngMod
Dim lLngResult ( n! c/ M9 J! k6 R$ n8 p# x3 Q: s
Dim lLngIndex : s/ f2 j! z- O& s2 v
If pLngKey Mod 2 = 0 Then " w* s$ I6 W) M4 b: ^# I3 L
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function * i  o2 s# V+ S: k
Next & d6 j  z7 h+ {$ f
Else ( I; T9 r6 z! f) z! B/ ]
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus * x& W- r( _- U& P. j7 j# E2 |1 x2 P5 V) ?
On Error Resume Next 3 W/ }: z- z6 H! t
' Mod may error on key generation * A/ ?; M5 N( E" d& Y+ }% L8 N
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted # O/ {- p4 c4 A1 y' W, F0 Y1 C
lLngMaxIndex = Len(pStrMessage) 8 l: G* Y/ m4 k& k
If lLngMaxIndex = 0 Then Exit Function % M( J9 U5 G. }; q9 J6 J, J6 h; H
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) : M/ {: ~" T8 g, d2 Z8 @1 Z
Encode = Encode & NumberToHex(lLngEncrypted, 4) . N9 r( A9 o3 y' c  a% T5 q
Next 0 _2 h' Q# ~9 A0 o* k" f8 z+ g& ?
End Function
Public Function Decode(ByVal pStrMessage) & p) x* E/ m6 k; y1 m
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData $ ^' B+ `/ r0 c
Decode = "" * E; q# u# E) `8 w& q3 f! y, k. \
lLngMaxIndex = Len(pStrMessage) - o/ G! w$ F% y$ e7 P4 u, r
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) " l; g& a' ?2 m+ S; y5 u, H) q' V! Q
Decode = Decode & Chr(lBytAscii) + W; f) T: @& {$ Q: T
Next
End Function / V4 J% D9 }; y* g/ K# p+ q3 E- u
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 4 Q8 i3 Y) Q( e. P! Q9 P4 o) @- U
HexToNumber = CLng("&h" & pStrHex) 6 d1 p- }  o0 Y; k8 M
End Function
End Class " t. i  \+ L0 S2 ~
function Encryptstr(Message)
Dim LngKeyE " w7 T- z( P" O
Dim LngKeyD
Dim LngKeyN ) O: T1 q7 I1 p$ E5 W- j
Dim StrMessage
Dim ObjRSA . v* C) U, q( a6 W- P' X& u. Q) J
LngKeyE = "32823" * r; c4 i: ~# ^! `' Q
LngKeyD = "20643"
LngKeyN = "29893" 7 n9 l) w! r+ U" n3 F/ f
StrMessage = Message : z- f. R* B1 f  t  c
Set ObjRSA = New clsRSA 5 e% G+ m  F0 B& n' W) \- v) y7 ~
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 0 j) n& e1 u) \# B& j  m! A* e8 w
Encryptstr = ObjRSA.Encode(StrMessage) ; A* z0 `  Q  w0 X) i
Set ObjRSA = Nothing
end function: U6 M% o) A+ Y+ u
Function Decryptstr(Message) / K) ?* r, j: \: u. {
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA & S. q0 G1 }. O2 x' @+ _& c. k
LngKeyE = "32823" ' v% R8 y" p4 x' N, Z7 N. S
LngKeyD = "20643"
LngKeyN = "29893" 7 o. n3 u& L' C$ b0 \
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 3 u) c$ R1 }7 m# y/ P* Q9 o
Set ObjRSA = Nothing & |( w. g2 a' P9 G7 Q. J3 A
end function 6 c2 Z5 r. }' z9 A7 \9 c
%>
===============================================

还有一个用于测试这段代码的test.asp( G0 X# ~' w$ Q) D1 d. ~9 B; O
有兴趣的自己搭建个IIS测试下

<%7 V8 ~8 p: T+ E* x9 N. Q
function Encryptstr(Message) 1 q, T. `7 T2 n- k
Dim LngKeyE
Dim LngKeyD 0 G- ?; e8 N1 \) X$ g) ~. p
Dim LngKeyN
Dim StrMessage 9 o& n2 e7 D4 i" f) k
Dim ObjRSA * a) h2 j5 }4 c& A7 b4 [' n
LngKeyE = "32823" 2 c2 X; e2 r: i, r2 }; Q
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 9 [" V) C6 G  k$ G
Set ObjRSA = New clsRSA . _6 s8 K2 e% j% v' Z/ N
ObjRSA.PublicKey = LngKeyE ' b  \0 i8 t7 h4 G1 n: l6 \2 f
ObjRSA.Modulus = LngKeyN $ D2 X2 Q: s( E! O) L+ O
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing + O; A3 L& X$ e% r. w) @3 }
end function % ]4 d! u4 v( s4 R7 Y% j6 \
function decryptstr(Message) & l% l2 n; l/ B; ]
Dim LngKeyE # g, z7 i; P5 v. q3 e
Dim LngKeyD + H# [! ^/ b' `; Q& [) i
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 7 o- V0 Z/ G: W; S
LngKeyN = "29893"
StrMessage = Message 3 o5 h: |) |& k7 U
Set ObjRSA = New clsRSA 6 o9 x5 x$ a" v: j$ f
ObjRSA.PrivateKey =LngKeyD ( @$ P- k& H; @' g
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) - f3 {+ _# \9 e2 M! C; I
Set ObjRSA = Nothing
end function % y4 G% J) q) N6 O" J, u, q
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================) Q3 v: q/ v2 O! N
1_____6EBB8 _2 C; N% \7 U) |1 q
2_____5C1F" [1 x: ?3 Z* [* R4 v' Z! F) L& I
3_____4D75$ T! w4 z/ U& S" z; p+ u$ O2 ]
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C9 G( A# L; a2 b& g5 G
9_____6D20
0_____1089
a_____0F3E0 g! u. h8 c- z# h! s0 ?# S
b_____3159
c_____3517
d_____419C$ D1 M4 u6 ^: v: |7 ~$ X3 x
e_____615C
f_____556F6 D* r8 Q! f# S* d" v) X( h1 w7 s
g_____2B7F
h_____0F9C
i_____00FA; |7 r: M5 F: E. w
j_____5A50
k_____2850
l_____3E7B3 Z, F: O: d( l9 n- X
m_____71C5
n_____1FC8  i' T- a+ v, l+ q* t( w$ O. c
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010* f4 U! g+ a" a
v_____0B422 l! f6 g1 T# y
w_____1C7A
x_____16F8; {1 m+ X/ m7 l" K, q1 @8 f
y_____2EE7
z_____5CF3
!_____62334 b) s6 W2 h6 j8 H% c
@_____3A45
#_____2291
$_____5D5C* w3 |1 S! P( Z$ `- E6 C
%_____09B9
^_____43EA! H1 B7 h; k- L7 O, t
&_____62B90 o5 m1 E: O# W2 F6 m& H
*_____6301* B4 u  I( h4 s( W. `6 J5 a
(_____4659- I6 j; v! T/ M+ D
)_____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 分享给朋友]