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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm# e9 [5 i* T( P- b& x9 F
原始出处：http://www.3ast.com.cm
- c* H! |  w# }, c  S' w
看不懂的直接绕过, w8 d" S# B5 S, Z% g
加密前为:hwy123456& }+ X" c" b2 x$ N
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
9 s' ]" {, Z" R* Z' i' k$ l
============================================  z" e5 b9 V/ u
上面是当时自己校内的心情。现在已经解破出来了，分享给大家  {- q" }  D4 Z5 @2 h9 }: W
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件1 T& G' C3 m. z8 O1 o6 }9 E

文件名RSA.ASP
===============================================
<% . m. k+ @9 V: E( p3 K3 S) s
Class clsRSA " W/ c% W  o- u  M* C
Public PrivateKey
Public PublicKey : c& }8 T# R" n, t0 a
Public Modulus : z3 E3 G0 i9 Y+ c1 r7 V6 F
Public Function Crypt(pLngMessage, pLngKey) 6 Z  L4 F4 l& B- B
On Error Resume Next
Dim lLngMod
Dim lLngResult   u( b7 E" u% j6 @9 ]) q, e/ `) G# V
Dim lLngIndex 3 C. v% k8 n2 w. d. s+ x
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 g% Y1 Y8 B' n0 f  J& `
' Mod may error on key generation $ G& u) |) |# d) @2 C7 ^
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage + E1 ]6 C+ R2 j9 J
For lLngIndex = 1 To pLngKey / 2 , j, b) `. J+ G( F) f4 Q% v6 y6 @
lLngMod = (pLngMessage ^ 2) Mod Modulus 0 N* r' f/ z$ ~4 x: j
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 7 [0 p7 |) W, g% B
Next * y! R: ^& u1 r4 s) J) S* ]* h6 ~: \
End If
Crypt = lLngResult
End Function) c/ X  h# J# Z

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 8 w5 K7 i- T% V. v) I0 B9 Q
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) * C' w9 ~" p$ E. s! P7 Q5 y
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function $ i+ A, A3 R$ R. v5 L6 M
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex . F- m+ c+ r0 W# [
Dim lLngEncryptedData 2 ^: y& `2 W) r; r# Y5 T7 u
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 8 b" T# [) W$ C5 U4 A8 b
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) $ F# X) @7 N2 C5 Y
Next
End Function 2 U! Z% D  l; X5 n
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)   l5 \! F  {( U/ T7 ~
End Function
End Class . D  k. d! G; X# y7 A. [
function Encryptstr(Message)   v& U: g% Y- D% h  w; P# U1 U- ^* X
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN " y; u* @, g8 e4 J& X5 n2 q
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 7 j/ V% d# w1 f$ b# Q& ]+ S
LngKeyD = "20643" 6 ^: v: l3 Q, @6 b  y
LngKeyN = "29893" ) s# H0 ]) a8 C+ M3 f
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 3 T3 ~2 ~* J0 u
Encryptstr = ObjRSA.Encode(StrMessage) ; h2 _& z" L  @# v+ q
Set ObjRSA = Nothing
end function+ ^6 t6 y8 a3 E5 |0 o+ m  g
Function Decryptstr(Message) 5 \! @! V- ]; w4 T; Q/ L! i; p
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN # ^# Q& ]8 w" m6 j3 v$ x7 {
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 2 h- r# w! v$ w" J+ H
LngKeyD = "20643" 7 \$ M( p+ G6 h) j% D9 O7 H
LngKeyN = "29893" 4 b% L* n& y+ V! ~- P
StrMessage = Message
Set ObjRSA = New clsRSA % O! m: ]( r4 Y& I2 K- d% a1 \
ObjRSA.PrivateKey =LngKeyD / j% Q/ \4 p# Y9 ?
ObjRSA.Modulus=LngKeyN & {# E; V: ?6 c( y2 o' k- J
decryptstr=ObjRSA.Decode(StrMessage) 6 o' M) Q0 E8 F& ~
Set ObjRSA = Nothing 0 `2 C0 E( }) m- H. ?2 p& n
end function + u5 Y: e  H, R$ o0 H
%>
===============================================
- o/ y+ v- G2 x
还有一个用于测试这段代码的test.asp6 ^6 s  s. M& V$ p
有兴趣的自己搭建个IIS测试下! r) }0 _  i, ?
 % p7 e3 h* o/ D& }5 o: Q" |. w
<%
function Encryptstr(Message)
Dim LngKeyE : w8 o$ }4 b1 \
Dim LngKeyD
Dim LngKeyN   }+ E& T/ u, X$ u: U$ v
Dim StrMessage
Dim ObjRSA ! Z* F! R# c# D: Y  C
LngKeyE = "32823" ( }7 D. h0 ~7 F5 _6 s& S: Q, @, r
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message + t( q, t; R% T/ m0 z
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 5 H6 S. N0 A* S# B6 N# F
Encryptstr = ObjRSA.Encode(StrMessage) ( i4 G" |0 [9 C% R  f3 b- e3 @
Set ObjRSA = Nothing
end function
function decryptstr(Message) " m$ I3 z% P3 L3 ~+ }" {2 y# s
Dim LngKeyE 1 q  G, m- `  H! V! y1 b/ P8 y' }! B
Dim LngKeyD ) R. J/ C" \/ q0 a
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message $ e8 M- V1 {' O' l8 I) J6 `; {) Z- j6 Q
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ( ]/ B+ V4 |; p: j, T
Set ObjRSA = Nothing
end function 7 b, O' F5 A/ }8 d
dim last,first - \; h7 z( q; P* T' i
first="!@#$%^&*()"
Response.Write "加密前为:"&first   n; f2 G" Q; j# s9 _4 G  `0 Y7 b' r
last=Encryptstr(first) 8 c( ?/ h% W, w& U/ `: N. G, p/ I
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75  F  }, z0 i- s' F8 z( ^6 l) I
4_____26CC
5_____4F88
6_____3F4E- o/ H0 {+ F* |( j# T$ `5 j. V6 A
7_____0A9D: r# ^. j- s! H; v5 Y
8_____1A1C* n/ E5 p' ^8 B3 j; v' \; d3 H
9_____6D20( X  o5 n) l6 [3 ^+ b: @0 t
0_____1089
a_____0F3E" }3 \+ S8 _$ K$ g/ [' c% ?
b_____3159% b) i. _) X; F5 a/ V4 o" |
c_____3517( e& m3 s  h( n. L4 }
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C: F3 T" i2 g7 F, y. E" g1 {
i_____00FA
j_____5A50
k_____28509 @/ S6 o$ y( R+ r7 A7 Z2 }: o
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1, H0 N& n/ _9 n+ c
p_____5FB8& }# e, M& h8 l+ Q5 x1 z
q_____6085  P0 i8 B) Q, B$ N& n$ Y
r_____3AC4
s_____2F50, B; ]$ x1 S( z6 P3 b5 A" V
t_____36F8
u_____70104 c" N9 |/ ?0 D+ B- ]: ?
v_____0B42
w_____1C7A
x_____16F8, @; U% l; i$ D2 p* n4 C: P' T
y_____2EE7
z_____5CF3
!_____6233
@_____3A45' @$ T7 n$ g3 N) U
#_____22910 Q; q) Z, ]! s0 @
$_____5D5C/ u' @& {) l/ x' c& s% w+ G
%_____09B9
^_____43EA: f9 {  ]+ U# M9 m" V
&_____62B9
*_____6301
(_____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 分享给朋友]