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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm/ _/ u# d. U, X; @' o, c  I+ A
6 N1 v' i5 q, r) W2 [
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================8 I5 V0 _( v$ H2 Z9 M
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, C! M' e- C) E  @, ~5 p" ]
以下是RSA算法文件

文件名RSA.ASP( K* m! {: b& ^# S5 Y
===============================================6 w1 i" W; _  ]+ S' X
<% 8 |- X4 S8 y) g+ n  z
Class clsRSA 9 `3 A( T2 D: r/ C
Public PrivateKey
Public PublicKey * T$ d( `2 n2 o2 R8 g5 r- n6 C
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 2 ~5 N7 Q' ~9 v
On Error Resume Next * _; n2 I. Q* s
Dim lLngMod
Dim lLngResult ! M. m: }2 d; g" V0 f5 n9 y
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 * N& J# |" {7 N( v
lLngMod = (pLngMessage ^ 2) Mod Modulus # K& S) N# S. g
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else 3 f! x9 e& ^1 Y, _8 C+ i
lLngResult = pLngMessage   R& p3 @5 j" x
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 3 w5 C- Q2 l! f. H% h
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ) b' z, k' S" a& g4 ~- w. R! X
End If
Crypt = lLngResult
End Function
1 |9 ?( B* U" t
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ! c8 P( g' u: ?
Dim lLngMaxIndex
Dim lBytAscii . @0 v. Q8 n9 v+ T; I  {$ k* `
Dim lLngEncrypted ; R8 q( s( z. Y! U8 C; [& \
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function , \3 U9 ?6 u, z5 {  k
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 5 M- o+ G+ `& N$ A/ y  N
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 2 i1 G, h' o' D; g2 }, i
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex ( w5 V0 b; j' R( V! H5 P
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 . w+ x( c2 }9 q# G0 V2 ?- ^
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 4 m) }, H; F  {4 \
Decode = Decode & Chr(lBytAscii)
Next
End Function   z8 O* W( g. c* E6 }
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) # {% q2 X* g2 U2 l  n9 _
End Function * t) c2 j1 a" I' }4 c
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 5 N8 N; q5 @0 P
function Encryptstr(Message)
Dim LngKeyE 5 B! V& b' i: H* q$ ^4 [5 N$ x  V5 l( B
Dim LngKeyD # j9 j% E+ U9 }) X9 ~& v
Dim LngKeyN 9 Z; C+ }- Z0 z- {* I2 k8 B+ J: g
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ) ?% {) t( K6 v, x* l
LngKeyD = "20643"
LngKeyN = "29893" , n! Q/ ]8 s& \3 ]+ q
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 0 `: q! u4 A5 t7 y0 {
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function1 T5 _8 D8 @7 h1 T6 Y: `5 |
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD & h; I0 S3 B% v# ~- Z( C9 w9 |* l
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ( {0 A8 m' v$ [
LngKeyE = "32823"
LngKeyD = "20643" ) k' }9 d& t+ J. c, u
LngKeyN = "29893" & @! K, r$ _& `% ^3 a
StrMessage = Message ; x3 }. g7 j! [  i) \' a: p
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD   F! f. x7 y, X  ]' M! S: I
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) , P+ o6 j* W+ O5 u3 L
Set ObjRSA = Nothing / z9 C& s7 Q8 I% r
end function   Y5 c  d4 D/ [$ l6 D
%>
===============================================& _! g/ @) H2 r( C7 F4 E. D+ [

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 - a# Y# ?* X7 i! Q6 y
<%  @4 p: |! q% ^. ]
function Encryptstr(Message) " }1 {# ~8 \; z# b' h
Dim LngKeyE 8 _9 x- e4 h/ R+ B
Dim LngKeyD
Dim LngKeyN : N& @0 p3 V8 Z4 s. X& Q
Dim StrMessage # t8 B* \: L$ q+ l5 h/ _
Dim ObjRSA $ i) u- _* ]6 O$ E% T
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 5 z: {2 L( p; u: K) I3 `: z
StrMessage = Message
Set ObjRSA = New clsRSA 9 M  U, [6 U- e8 _, ^
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 9 z8 [1 `; f4 T" w# k5 E) H5 K8 o
Encryptstr = ObjRSA.Encode(StrMessage) & I3 ~9 w# d$ c1 s) g8 ]
Set ObjRSA = Nothing # B0 p# T- @/ l( i: ^( Q  E; Z
end function " C( |% a/ f- R1 E) M* l
function decryptstr(Message)
Dim LngKeyE ( p8 u" q/ b6 j5 ^6 C2 k5 {
Dim LngKeyD $ _& F9 I# h! F4 H8 u; \3 F9 q- @
Dim LngKeyN
Dim StrMessage * P* @3 |) W& B8 x6 N* ^9 k
Dim ObjRSA $ u' \$ B* L; u( `' `
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 4 S3 L6 b% s2 V" G! [" O
StrMessage = Message
Set ObjRSA = New clsRSA 8 y$ \9 f7 T; U& Z& O
ObjRSA.PrivateKey =LngKeyD ' j, h2 x% ~7 l: Z8 o
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing , f5 S3 \) {& v) O
end function ) O/ V9 A" ]& N; M; L2 Z/ w8 u/ l2 X
dim last,first ( Z" m4 d) E! ]* H, R8 v! j2 p
first="!@#$%^&*()"
Response.Write "加密前为:"&first 4 Q+ B0 T3 s' Q& P: G, y) C
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 8 S7 h+ D) W+ u/ U. W
%> ==============================================* m. X( k6 C% ]6 _# j
剩下的就是字符的对照表了
===================字符集================+ A/ U" m; ~  L' U
1_____6EBB, T/ p$ Y# Z/ }* s; P, r. G
2_____5C1F3 i) c1 n# M* f6 b0 Q: R, P
3_____4D75
4_____26CC2 T# Q% J2 Q* S9 f5 e
5_____4F88
6_____3F4E  k) ~+ y; N% |- E
7_____0A9D
8_____1A1C
9_____6D207 K& m' L' `& n' r, ]
0_____1089
a_____0F3E7 j5 W3 p" {# A- A6 s
b_____3159" O% r/ x9 C7 H1 c- F
c_____35179 L( h7 Y) Y- g( X  \
d_____419C2 C5 r8 o+ I: P: @& l/ p4 J
e_____615C
f_____556F
g_____2B7F+ d6 e2 C- N3 N# j6 R# C
h_____0F9C: D+ U/ I8 P' R! b" ?
i_____00FA/ k6 V" s" }. n; p2 A1 Q% X( ~
j_____5A50
k_____2850
l_____3E7B& H+ Y5 e' r# `, c! Y
m_____71C5
n_____1FC8
o_____74C1  J5 j% T/ ]" Q. ~0 `+ C8 ?
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3$ W* q9 s5 K% F1 W
!_____6233: S9 A5 P  n6 P9 M$ Q, s1 @
@_____3A45
#_____2291' S# {6 A2 _$ u( Q! i9 ]) [
$_____5D5C- W0 \# O! V+ U9 T4 W1 F# k
%_____09B9
^_____43EA
&_____62B9
*_____63015 f2 Y) ]2 K- W% b
(_____46597 L! G) f' ~3 z. H1 j# Y
)_____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 分享给朋友]