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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm7 C, ?; ~. H& d: u

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================6 v- n. a' T$ M1 D
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法3 p" h% u7 t; R- t1 I
以下是RSA算法文件
# c7 o  n! @- h* Q/ B0 B4 [$ I/ a5 ]
文件名RSA.ASP9 R4 V2 x5 V9 B  @
===============================================
<% 4 ^+ ~: {5 C' c6 D
Class clsRSA
Public PrivateKey ) I9 S9 `  Q2 }+ Q# r* }
Public PublicKey
Public Modulus 1 [4 N* _# a1 ^9 k
Public Function Crypt(pLngMessage, pLngKey) ! r1 p  Q7 |9 N! T( g: i; k
On Error Resume Next - `, ]! ]- k" e" h& ~
Dim lLngMod / B# V+ v# L3 X9 O: {! y7 D
Dim lLngResult & j+ H* R. n  L2 ?
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 2 E3 a0 d3 L* G% a2 G# ~6 ^# T
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 2 S) j. H: E, a* g
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else : }' F( x" R% @& D) p* E/ V2 p
lLngResult = pLngMessage 0 _8 P$ a- e) U: Z
For lLngIndex = 1 To pLngKey / 2 ; H5 C/ E0 g: w0 c$ H. N2 |
lLngMod = (pLngMessage ^ 2) Mod Modulus + r3 q* C- o8 i% e5 D# o- D
On Error Resume Next
' Mod may error on key generation $ l/ J* R" D0 B) ]
lLngResult = (lLngMod * lLngResult) Mod Modulus $ G' y, f- e5 }! e9 n1 o
If Err Then Exit Function
Next
End If ( @/ o. g. m2 F1 Y5 Q5 g* O
Crypt = lLngResult
End Function
8 J, T; L  B: L
Public Function Encode(ByVal pStrMessage) ; B! j9 g8 y" P- J* m1 D
Dim lLngIndex ; O) i& x5 k1 F4 q* W! p
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted * f" F& W# O5 e" k
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ) u7 [7 z6 }, o2 l: }# K
For lLngIndex = 1 To lLngMaxIndex / \2 d0 [+ E' E# W+ c$ j
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) * j' E& Y/ O# \- {" _- w
lLngEncrypted = Crypt(lBytAscii, PublicKey) 9 f) C  X1 L; @% K+ N2 z6 o
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function + M0 c7 [: c/ I6 o
Public Function Decode(ByVal pStrMessage) - Z7 A  W# p5 O4 |
Dim lBytAscii
Dim lLngIndex . S2 H2 R2 I; \  e
Dim lLngMaxIndex
Dim lLngEncryptedData 8 w+ D3 P/ f, @( J
Decode = "" 7 x2 R6 l: q: m) l
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 % @& D, j( n1 I7 }
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 2 H8 ~" c. l# P0 {
Decode = Decode & Chr(lBytAscii) ( ~3 Q% A4 m% n2 p
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 3 |* A7 f& s8 ]9 i/ R# Q
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 8 C# F- {& @4 r8 `/ W
End Function % K  l# \1 z, d3 k
Private Function HexToNumber(ByRef pStrHex) " u  O$ N' O3 i, M
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class : n6 q; N; j1 f, Y
function Encryptstr(Message) 3 o& a  Z6 S  J5 L+ ~; Z! b7 z
Dim LngKeyE
Dim LngKeyD $ C+ X7 [$ H- a/ U  s& z0 [+ e
Dim LngKeyN $ E: d5 E2 d% ]* o* y
Dim StrMessage 1 R2 U( |* X- R% [! V
Dim ObjRSA   O4 V! S* q  m2 S  O. S7 b- J
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" * @: V. m; |9 G8 o* B, @# ~
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function: c  t- {$ @' y( W9 Q' Z
Function Decryptstr(Message)
Dim LngKeyE * M: i6 U  Z$ _/ N
Dim LngKeyD 0 B/ [8 ]% O1 v9 S
Dim LngKeyN
Dim StrMessage 1 G; u/ A  ^; ^' z5 \
Dim ObjRSA
LngKeyE = "32823" , L5 ?: c' N  e
LngKeyD = "20643" ( z0 T9 Z  |8 K0 l6 P6 s4 q6 D
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 8 u! g5 \, p, g( U
ObjRSA.PrivateKey =LngKeyD ' a+ [# b$ C" e# g9 I" p
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 4 I  e, g6 S# {" R3 O8 i9 {, |
%>
===============================================
' ]0 S7 ^* b4 t" p
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下% g) j/ ~8 }5 E8 A+ u

<%% a# O# a. I/ e( @
function Encryptstr(Message) : b' i! J$ n% e
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN   C7 B0 `: e9 g0 K9 G9 M- m
Dim StrMessage
Dim ObjRSA ( I  b3 q1 W. [* Y- k; a
LngKeyE = "32823" - L( |7 I8 e+ \8 T) ~
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message , T7 Z5 X( R" v- \8 B8 I8 `
Set ObjRSA = New clsRSA 0 h6 @) x, Y' H5 N) p
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) : H1 ~; {5 p0 g7 I% U6 Q8 `
Set ObjRSA = Nothing
end function
function decryptstr(Message) ' K* B) B  [% G
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN , r9 W3 h: t- g, H
Dim StrMessage
Dim ObjRSA 2 V5 p8 }- M. J/ p+ a% Q
LngKeyE = "32823" ) _3 l3 k# @" C7 I) ~
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 1 j& |" x( e# ~# O$ {+ k
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 5 @% M5 g+ e( |
ObjRSA.Modulus=LngKeyN $ z/ O$ o. ]! w! t" M3 |
decryptstr=ObjRSA.Decode(StrMessage) . o* W: j4 e2 ~- F# M5 @- W
Set ObjRSA = Nothing & U/ {* O" D# J  |
end function
dim last,first * O% \2 f0 Z+ q
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) ! y- U& T8 t% I  K4 n
Response.Write "加密后为"&last + u* J& z4 y9 r
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC- x% H4 a! }9 m0 O) n
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E0 t, G6 y4 A$ ], t" _4 ^
b_____3159
c_____3517
d_____419C9 Z7 f- k% C: V% S5 i( \% g) [
e_____615C
f_____556F
g_____2B7F( m  s4 w/ E2 _8 z+ V4 N
h_____0F9C& L! z6 a+ Q9 D3 x
i_____00FA8 `* D& s% H1 F' {7 M
j_____5A50
k_____2850
l_____3E7B
m_____71C5! |+ q- O  }! G/ G% v
n_____1FC8: f; w/ A0 D3 V. E( O* e! L
o_____74C16 Y  `0 ^1 G4 z# N+ u
p_____5FB8/ s# y! Q" b5 y3 Y
q_____6085
r_____3AC4
s_____2F50: c  V( n+ s! Y+ V! y* z- S
t_____36F8) {7 ]4 G) Q' g% J# e5 ?2 |8 D
u_____7010
v_____0B425 B+ ]$ I5 M+ h# i1 M
w_____1C7A- B" K; _( n$ O% K& D" S
x_____16F8& `- {7 n" B' I
y_____2EE70 C+ O) [- r+ r8 I2 y- F
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C: o: J/ l; x- v& d( m
%_____09B93 ~$ T0 T& h5 d" J
^_____43EA
&_____62B9
*_____6301" [  N+ I5 D+ s$ l& h8 `! o/ m2 g
(_____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 分享给朋友]