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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm% p/ I( Z# h3 u
. R) n! j; [% i# i8 J
看不懂的直接绕过
加密前为:hwy1234564 p( {" V5 t+ T8 J5 F3 L
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
  w% K7 I7 A6 {8 Y) @- ]9 {% i
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家. N+ i+ A8 m' g+ Q7 |+ S: v
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
& e( w1 L8 E# r3 X4 B
文件名RSA.ASP
===============================================
<% 3 N4 E4 c; {- F) ]+ p
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 3 R  ]; \7 H' U- P5 @' P5 E
On Error Resume Next 9 _" \+ x7 ~: K
Dim lLngMod * d" f" Q7 x0 q
Dim lLngResult
Dim lLngIndex 8 k5 n; u/ _8 e5 k% a
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ) Z* _( m7 ?6 k; p
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else 9 ]  S9 Z& a' }2 `1 Q7 }
lLngResult = pLngMessage 2 A" W6 K' l  \% `- G' D4 a8 f
For lLngIndex = 1 To pLngKey / 2 3 v+ G7 g; d: j
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next : b. d  _! `- P& A
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 7 W! u6 M& V+ f
Next
End If 0 V( }$ h+ Q; s  N6 u/ M
Crypt = lLngResult 7 m, T' ~2 j! U  }+ u/ i1 D) W
End Function( l: w. m- v. O

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 6 B# v. R0 j8 s1 B% T. L
Dim lLngMaxIndex , T# ^0 r8 r4 S7 A3 T+ c2 Y
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) - g) N0 C5 D# J  n, }
If lLngMaxIndex = 0 Then Exit Function : J8 a5 i0 C- f* M' A4 {
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) & r6 Z! S4 j4 F  T2 ~$ K
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) ' @$ S! D. P- ~  V
Dim lBytAscii 1 }2 W; C6 J- j. c
Dim lLngIndex 4 }+ b% ~& i( ^% P
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 9 J4 c$ B4 ^) n6 x) S0 I; ^9 z
Decode = Decode & Chr(lBytAscii)
Next
End Function , J4 W) Q% r3 p: O: g
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function + ]0 G4 X& ?, G" K2 t  D( c  H
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) $ [7 ?/ C" O0 s
End Function
End Class 7 R% A, ?4 B8 i# q
function Encryptstr(Message)
Dim LngKeyE 1 x, W! O0 A3 C  G9 E, b1 g* n
Dim LngKeyD 8 B& E+ X+ H0 R/ M0 H
Dim LngKeyN 1 |" e# n' A% ~3 O. r6 A% l/ J
Dim StrMessage 6 ]: c9 N) n! q( Y8 r
Dim ObjRSA
LngKeyE = "32823" , {/ t7 B) z8 _5 t) }
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 8 L+ O: [, b7 o* Y0 G4 v7 c
Set ObjRSA = New clsRSA ! A" |! S, U, o
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 2 r: a3 K) @, ?
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD * I! G: R0 N. x/ M5 e, Y* d, D
Dim LngKeyN ! L6 J) ]. H' S# j
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ' G: F9 U/ s5 U  l4 k9 p8 V, m, Z2 I
LngKeyD = "20643"
LngKeyN = "29893" 5 G- K1 ?$ S" F  ]3 ?, S- d# o3 M: T
StrMessage = Message
Set ObjRSA = New clsRSA : V# e$ m, [0 V
ObjRSA.PrivateKey =LngKeyD + R7 l4 B+ F) W
ObjRSA.Modulus=LngKeyN 9 O# ]7 F% {- X1 \
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 9 j1 x0 {! i$ @/ y. T6 l3 n5 d
end function
%>
===============================================/ i- {% D$ ?4 I6 k& H

还有一个用于测试这段代码的test.asp3 w% s9 d' {) J/ Y; F: b
有兴趣的自己搭建个IIS测试下, t  J5 k% |7 Y/ _
 - W- _7 j2 r7 Y' R( v
<%; g" g) [/ E0 V/ Q* f3 t0 L
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 2 l! P3 B: q  w8 c" f
LngKeyD = "20643"
LngKeyN = "29893" : _2 `$ h3 d$ F6 o
StrMessage = Message 1 A# F4 I2 a# k, n, ^! R
Set ObjRSA = New clsRSA ) J; t4 A; }" G$ M1 p
ObjRSA.PublicKey = LngKeyE - j& F8 Q7 s4 S! A4 V3 L% D4 b
ObjRSA.Modulus = LngKeyN 3 N! y  @& j/ V0 X  ]1 x
Encryptstr = ObjRSA.Encode(StrMessage) 6 d  _! G2 Y4 A4 B% u- A
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE / y# }1 Z# T/ C# I9 d0 o
Dim LngKeyD . D$ N' V/ J# f. u: o
Dim LngKeyN " V6 L3 h. |8 m+ n2 p9 j& g
Dim StrMessage 8 y7 r, p. Y, n6 ?1 z
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ' n1 v2 d' D0 V# b) u" w
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" ' A0 J7 s* K8 S' o4 M1 x
Response.Write "加密前为:"&first * n- W# o! P3 ?2 E% u: t
last=Encryptstr(first)
Response.Write "加密后为"&last 1 l' \' [  n$ d9 E- V# X* L
Response.Write "解密后为" &decryptstr(last)
%> ==============================================4 H) X# T! s( j! d+ o. b" n+ J1 t4 T
剩下的就是字符的对照表了) H1 l! N  j! b" |! A; ~5 }
===================字符集================
1_____6EBB2 H  P" A7 d3 |8 g6 F
2_____5C1F
3_____4D75- N- H  e) b% c2 }- U
4_____26CC
5_____4F88
6_____3F4E8 I2 j2 }% R6 E5 v# ]  y' ~
7_____0A9D$ B1 _* _4 W" D' @. o; w' p
8_____1A1C
9_____6D20
0_____10898 v  h4 Q4 u0 z7 O
a_____0F3E: b! Z9 d- }8 i+ h7 W* E
b_____3159
c_____3517. d# a4 e6 @/ X& G% s
d_____419C3 J) C' Y1 {* W2 M* T3 s- Y. S
e_____615C
f_____556F
g_____2B7F9 N) j6 D; y! |3 ?
h_____0F9C2 J; S: F% F( w
i_____00FA5 }% o. A7 Y5 l8 h; H- k
j_____5A50% m: P$ E4 d/ R9 }4 i% x  i* U) K
k_____2850
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1/ W/ f( {. g% ^5 Q8 ~4 l
p_____5FB84 T4 P$ A- P4 U$ E
q_____6085, j8 ~9 C7 S( B3 w
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42( t2 C# R) {) S1 d
w_____1C7A7 E% ~- n3 d+ O7 ^: l
x_____16F8
y_____2EE7. h0 {6 z3 W  {+ E
z_____5CF3& E& w) H) Z0 Z- o# ~7 ]
!_____6233
@_____3A45
#_____2291/ h" @) B; A6 ?) k8 w0 v7 b2 t
$_____5D5C- A5 I5 p* L/ F. Z& E
%_____09B9% F' `4 T% P( e) V: `, i3 B) `
^_____43EA1 H. H' p8 M3 y( Q1 k% E& m
&_____62B9
*_____63018 {8 ~& w& z( n% {
(_____4659, l- h2 C; k% o# J. \% |: I. ?
)_____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 分享给朋友]