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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm% g& b6 n, Y6 q
原始出处：http://www.3ast.com.cm* U4 x- r* f* z% `
  X# k2 s! t' d: _. S6 m: a
看不懂的直接绕过5 A0 x/ x* z; `
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E* ]" b) B; w+ F! z$ ?
$ n/ x) Y: }* s1 a3 b. ]) p1 V( l' d
============================================6 K* m( H$ z% I$ k
上面是当时自己校内的心情。现在已经解破出来了，分享给大家9 x4 K0 b: W3 q+ H9 }% P
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法8 H) G2 j+ `% O2 z
以下是RSA算法文件8 x. |2 U( f- `8 X# U8 W: U
6 X, a. q" w  ^& P8 l" X& X# G
文件名RSA.ASP3 M+ H2 ]+ ^& u8 f5 H6 I
===============================================
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus   C8 ^) Q: ?( R. f! ?' {
Public Function Crypt(pLngMessage, pLngKey) & S$ |8 `; ?; V' y' V
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex ) g( f% N+ p% _+ ^
If pLngKey Mod 2 = 0 Then . I' ~3 C3 R- f+ W
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ! ?6 @# }4 ?! r; y/ g1 y
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 0 ^) b* `8 H( S8 ?$ m8 X/ U
If Err Then Exit Function
Next " k1 K/ s. H% Y
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 V6 s" ^% ?2 |0 P2 ?1 `
If Err Then Exit Function
Next ! W+ J+ T' D( [& L6 e
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex - Y9 `( U  W& O# Q  e% h
Dim lLngMaxIndex 7 z7 L8 u& V; C7 r* Q7 |8 U
Dim lBytAscii : M' \  f: Y& w' u# C
Dim lLngEncrypted 6 I( Y, Y/ [) r" P7 I( ]* P  k
lLngMaxIndex = Len(pStrMessage) ' X& {- D1 w9 L, ^4 N
If lLngMaxIndex = 0 Then Exit Function % U& q# g0 K) s/ v1 }# T
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 4 `4 h% L$ {  b" @, r
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next / k- x/ r# H1 B+ A; u7 F
End Function 3 c* ?* {; ~1 J
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 1 D5 ?8 u- w4 p9 ^0 L
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next - V, O+ ?# r9 S) L4 W
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ; G) g/ v6 X* c* h+ d6 y* c
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 9 X$ I$ v, G. S, C% |& z
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 0 P3 G6 z3 R' n/ J- s
End Function 0 A9 U6 C2 c0 T6 v% |
End Class   }# d/ b6 e/ d; i
function Encryptstr(Message) 0 T1 j) h7 c2 ~% d- H% s. ], u' @
Dim LngKeyE
Dim LngKeyD 4 F% Y& P% [) v
Dim LngKeyN , }* D, h7 j4 P9 @; z0 J
Dim StrMessage
Dim ObjRSA 4 J+ w6 p2 w+ g9 B. I; r
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ) L, T0 G& n4 G5 |+ B* e/ M
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) " q2 ~8 H+ ?7 J) @& r' C
Set ObjRSA = Nothing 9 I6 \0 N6 W; q) y: o: P
end function
Function Decryptstr(Message)
Dim LngKeyE   F6 t% p2 T1 i( z7 D# g$ @4 |) v, S( Y
Dim LngKeyD . _% A9 `9 ~' j2 ~; ~  _
Dim LngKeyN 6 a, R+ V& P: p' x
Dim StrMessage
Dim ObjRSA ! L1 h( w! ]/ ~# [; C6 B
LngKeyE = "32823"
LngKeyD = "20643" ( F0 ~% `% ^8 t9 F: s2 q
LngKeyN = "29893" . \: h+ k) c0 v% i8 W/ j
StrMessage = Message + v( ~6 r/ J, ^4 C& i/ N9 }; w
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD # m& M+ {; f" \2 u" W3 R0 ~
ObjRSA.Modulus=LngKeyN & H' r8 ^5 i' _$ W  c2 Z
decryptstr=ObjRSA.Decode(StrMessage) # S2 ]6 Y5 b- V1 h; ]8 d% @
Set ObjRSA = Nothing ( l2 C8 {/ m; h+ Y0 ^
end function . r3 \; M% {- l2 v" y" C
%>
===============================================

还有一个用于测试这段代码的test.asp4 p5 j9 R1 z, |
有兴趣的自己搭建个IIS测试下2 R/ L/ w6 b% C9 ~* x. ?

<%
function Encryptstr(Message)
Dim LngKeyE 2 ?8 {0 e! P; |3 K/ D
Dim LngKeyD
Dim LngKeyN . f0 M- G0 h$ D9 G: D6 @7 y
Dim StrMessage 0 I: ~2 [) T+ `0 Y; s
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 2 y5 W5 n% q, a8 O' }: l$ q
StrMessage = Message / E- U' a: \) K
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ' r; B3 A' r  r- }+ i7 M8 f# T
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) $ r7 w/ g$ P8 k3 a/ j8 M2 s
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE 1 X# j  Y2 O6 B* D& B* V$ w
Dim LngKeyD . V8 P% e0 A2 M
Dim LngKeyN
Dim StrMessage
Dim ObjRSA / z! S% |, y, x! b% v* F
LngKeyE = "32823"   s: O; F/ B, @8 r9 w
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 6 c1 i% X) `) t# |/ f
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 7 w8 F2 g% p  u7 p; R' n
end function
dim last,first 4 X- x( `8 c1 `* t, ?
first="!@#$%^&*()" . [# [# x) G- |; k: k0 j; p
Response.Write "加密前为:"&first / f$ d" u5 g. F- d7 R
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================5 T6 \7 ^6 N  U1 r, i: W% [
剩下的就是字符的对照表了6 ]& i7 {, i4 t0 Q7 a7 _0 f
===================字符集================
1_____6EBB( m$ Y2 J8 A, {2 K
2_____5C1F1 P9 o3 x9 h3 b
3_____4D75
4_____26CC- R* \8 l$ O2 }) ^5 X, V( M
5_____4F88
6_____3F4E
7_____0A9D0 z! d+ N3 v0 Z+ b6 a1 S+ ?7 e) T
8_____1A1C
9_____6D20
0_____1089  R8 [% a; e' q* O# ~  K
a_____0F3E+ G7 _) ?0 p, m) ?5 G6 ~2 n: ^2 k
b_____3159* z- s+ F% R: t" G' ~
c_____3517
d_____419C+ V* P8 V% ?' o& k6 d- C
e_____615C
f_____556F
g_____2B7F8 L- e3 \1 H+ J1 B
h_____0F9C
i_____00FA: P( U& _( d0 z# ^
j_____5A501 J1 Y# C, B/ y. [  p
k_____2850
l_____3E7B
m_____71C5
n_____1FC8- ~1 p/ N2 }$ e# c$ E9 R7 {
o_____74C1
p_____5FB8% P+ B0 t0 D5 ], ?7 l
q_____6085
r_____3AC4
s_____2F50
t_____36F87 d# z& N% Q& O5 l
u_____7010
v_____0B42
w_____1C7A
x_____16F80 v, P+ K$ |/ D7 n4 A
y_____2EE7# B0 o0 X  ^4 a8 j  \% n
z_____5CF3
!_____62338 s$ \. Y8 Z" Y) r! F$ w
@_____3A45$ [& l$ E$ ]: \) Q4 [3 G# ~$ E
#_____2291
$_____5D5C7 n$ [* `) l3 t) c' ]
%_____09B9- F% _9 [: s7 q5 {- j+ i
^_____43EA5 R, L, [5 ^9 Q2 V- }
&_____62B9
*_____6301- M& p% B# B/ g, K
(_____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 分享给朋友]