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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm' |+ n( X0 p6 \$ o* l
原始出处：http://www.3ast.com.cm
; v8 N" s5 T- Z' ]/ O9 U
看不懂的直接绕过3 e% M! n3 |) U' u6 I
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
6 C# W- w; N1 ^: j7 F2 \% {% r
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家: w7 _9 J9 K$ N3 Q# @
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件. c  _/ G( N. L$ U: P

文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey . W$ w% R. L* K0 `
Public PublicKey " ], V6 |  p6 \7 ^
Public Modulus % s( {5 `  Z# l: p( ]$ i: J5 }& g
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 8 W& }2 M. s  _2 J% E' c. g
Dim lLngMod ) R- f) x6 [/ \# r/ ]! w
Dim lLngResult 1 o( |9 O' z* ]& N/ d4 v2 T+ p
Dim lLngIndex 3 m9 @! f# |+ U$ ?8 w) z, I" A
If pLngKey Mod 2 = 0 Then 3 i3 t5 `) o9 |. T' M' P
lLngResult = 1 2 \& T  K1 E, h0 b# q
For lLngIndex = 1 To pLngKey / 2 " W/ y4 Y0 m% r( H" \
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus " E9 W4 v: S3 t9 v( `4 P1 K2 l
If Err Then Exit Function
Next
Else 8 A' S) h# k. Y% k  V& ]! y7 m
lLngResult = pLngMessage : F, q# c7 n1 i! z! G4 R1 _
For lLngIndex = 1 To pLngKey / 2 " q2 w5 r% \- s6 S2 S  |6 N
lLngMod = (pLngMessage ^ 2) Mod Modulus   S4 f3 X! i  B
On Error Resume Next ! e: |+ n6 T$ t' ]6 V
' Mod may error on key generation / y7 M  F8 G/ Z( X/ {; t
lLngResult = (lLngMod * lLngResult) Mod Modulus   B1 B' h: L$ K& |) Q, G1 p/ h
If Err Then Exit Function : B$ S7 ^/ Q2 ~/ K- n
Next
End If
Crypt = lLngResult % o; f: ]1 J7 B2 \2 s
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii 3 \! |5 |5 k/ o# M, l2 v5 X
Dim lLngEncrypted / l, |) F2 U. A" R
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 0 e% a$ ]4 W; V: v9 k
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) % A7 J" g9 v& c7 d; K
lLngEncrypted = Crypt(lBytAscii, PublicKey) 6 x. V) i/ z$ [8 r, S9 \
Encode = Encode & NumberToHex(lLngEncrypted, 4) $ q$ }, O  v6 ?$ k. C0 [0 b
Next ; R( q9 R6 N2 m+ w7 R
End Function ( E, l& H3 a$ u# c  u% B
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 3 g2 k' k' z! g$ a9 R
Dim lLngMaxIndex
Dim lLngEncryptedData 5 n5 O4 F  {+ C- R3 B9 v
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 8 z& b1 |5 U2 S$ S& o2 q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 5 u8 C% _8 Z( z* `2 `9 v
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function ; s5 `$ D9 \" i5 c
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 3 e4 Z( K  w* A( g5 G$ B
End Function 2 [+ B( d' d5 F4 Y% ~- U! o
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function : D4 e0 L  m2 m+ O2 h- A# ]
End Class . D; t( g+ }& `
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" , q; m4 R$ k$ V+ d
LngKeyD = "20643" # r4 L9 g- J' `  Q( D+ |* O5 l
LngKeyN = "29893"
StrMessage = Message 8 X9 F6 Y. X0 z/ {  ^: T5 I
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) , S) F. h4 Q' |, z- J' Q9 d7 z6 z3 r
Set ObjRSA = Nothing : ^6 D; q" t' X& p4 l9 x
end function( [: G. D' i4 ]8 |5 ^! _8 e
Function Decryptstr(Message)
Dim LngKeyE : v6 R6 d; d/ l; }, k4 v3 I& E
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" " w" ]* g+ v- S& L& n* X% A
LngKeyD = "20643"
LngKeyN = "29893" 9 q+ P9 x3 S5 C7 {" `$ I4 i
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 7 g) }' b9 l, M6 D$ ]
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function   P7 G) C# T+ {$ c* k' e: w
%>* E5 ]# _+ B: ~, N
===============================================
) s/ W+ D% ~6 t6 _1 |
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%  `8 V! x  \, l; Z! F
function Encryptstr(Message) 3 _( y7 E3 N7 i8 V+ E1 v+ O( h
Dim LngKeyE ; `6 S! B0 r6 l$ v! m
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 I1 L* ?! `/ r! }; X( a
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" - L0 {& q& p9 i3 T% j
LngKeyN = "29893" " M0 Z3 z. a) V3 ]
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE & C( {: c$ b/ |* s- y5 w. S
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 0 }* I2 a5 A- P* }5 d
Set ObjRSA = Nothing
end function ( s7 H6 f$ U" O8 Q
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 3 I- h" K3 f3 T4 r6 D9 V
Dim LngKeyN 2 z: q( \+ [" A% i
Dim StrMessage ! A/ T+ o9 Q/ \1 d6 t' J
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message $ K5 u5 T- g  q. C8 O9 X: f1 f
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD : K( i" Y* R; U" o/ w3 g
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) , B1 ?; Y  i  j& z4 G
Set ObjRSA = Nothing " u9 v+ }. U# J9 a7 G* F) h
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first # b, _9 L, E5 a# `  U$ s, X
last=Encryptstr(first) ) L1 y! k5 ]" e  m
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ' b5 e5 ]' l0 s/ k/ I" f) M- w: J9 L
%> ==============================================: {3 M) h6 |3 J) D( U
剩下的就是字符的对照表了, i# S1 ]! G, t* c. o
===================字符集================
1_____6EBB% d# u  J8 J+ q9 f
2_____5C1F
3_____4D75! a6 H# G! W, {. X% s5 ?) c* ], W
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D4 J1 k' [: M( B  F$ @# P: N
8_____1A1C
9_____6D20
0_____1089
a_____0F3E& y4 Z7 D- t) a1 t8 e6 a3 J3 L
b_____3159( ?$ [" @" D  F/ `' C2 e6 t
c_____3517$ b" F5 }2 A6 U% V- ~
d_____419C7 h3 N& [  ^9 Y- L
e_____615C8 }' N( i9 p; @, a% P! u' K
f_____556F
g_____2B7F
h_____0F9C
i_____00FA" |, u+ D/ q' w0 _; n& o
j_____5A50
k_____2850
l_____3E7B
m_____71C5+ u* K, E2 [: M# g' F# d: D6 V& A- N
n_____1FC8: x. V% n, T" u6 F- B& _
o_____74C1
p_____5FB8
q_____6085( \+ P2 ]0 h; Z( Y* O( S2 S
r_____3AC41 n3 b% b# f7 [! B' V2 v( U5 q/ }3 a
s_____2F500 Z3 `1 V  K7 o9 @' f9 O1 h
t_____36F8
u_____7010( n) u8 u$ Q2 [& Z( {4 J
v_____0B42
w_____1C7A- J3 h# j9 A# [: V; D
x_____16F81 L: Z, N8 B  A
y_____2EE73 T4 v% P* H3 |
z_____5CF3
!_____6233
@_____3A45
#_____2291/ N8 z' e# H; q! h& M
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____46593 l$ D9 V+ U# t1 a- F
)_____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 分享给朋友]