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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
$ M9 J4 ~4 f! \& Q
看不懂的直接绕过% u! L1 I( {. t, r3 w
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
9 H* K) Z! S% @3 S  W1 k) U4 Z! R
============================================; u$ @2 N% j( r
上面是当时自己校内的心情。现在已经解破出来了，分享给大家& u" `) Y9 h. J( M1 Z
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法! l6 s" ]- Q& Q7 Z  f% S
以下是RSA算法文件
  _) V6 q" |5 E( n+ F5 d3 c7 k
文件名RSA.ASP7 W; M  o; K% k& q6 q) p
===============================================: a4 w7 d" L' I9 b: K' C& _
<%
Class clsRSA ' X3 W9 f; }5 Z, \+ B: S" @
Public PrivateKey 2 r  ^+ V  n& l" _
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 5 }, \" V9 b  N' q. \
Dim lLngMod
Dim lLngResult
Dim lLngIndex " |; }: T& Q) B1 R
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus - E& n6 w5 I" R) A' U
' Mod may error on key generation % I2 }  G3 i0 ]7 x# M5 h! P; F) m/ ?
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ( L2 I1 {( G& x2 h- [) B
Next
Else 4 \7 U, s; }- @- h, ?6 T/ p" f
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 5 H/ v8 Z( `- E" E2 j
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation & V* ]" E: |% e! v: L$ ?/ G3 ]  _
lLngResult = (lLngMod * lLngResult) Mod Modulus 4 c2 S  s1 N) T  F8 V8 \' F
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function  W1 A/ t6 O- X1 Y* {/ |( t" F
) z: L6 r6 S  ]( Y: l6 ~
Public Function Encode(ByVal pStrMessage) , ]& E! M# L( _* Y* W6 _
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex * {2 l, A3 _( ^9 }6 n6 t, K
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) / i7 g9 E, _1 c% h) Z
lLngEncrypted = Crypt(lBytAscii, PublicKey) , _$ L3 }# U5 i7 C+ [
Encode = Encode & NumberToHex(lLngEncrypted, 4) ; Z$ ?  {/ j( e+ P+ Y3 v. r( V
Next 6 b0 K0 C" m# {% n
End Function
Public Function Decode(ByVal pStrMessage) 2 H8 P  U% Y2 b& t6 j  ^1 @, k
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData # L" h, X) C3 |# Q# K
Decode = "" % A3 y9 j& [$ m/ ~% y
lLngMaxIndex = Len(pStrMessage) 3 a0 G  X3 `( Z% ?1 R0 W" j# g
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) & {% o3 Z8 q8 N2 [& Z
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 1 N  v- N: [8 f7 Q- J* _
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 5 \9 X* Y& T6 |( @3 `# o1 X
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function % Z! s4 b; L! ?
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function $ g" @2 \: N8 [- Z2 f. z/ ~
End Class 7 G8 p" c3 U+ J$ u4 O5 ?, ~
function Encryptstr(Message) , P5 Z. r" Y8 e& j1 P  [
Dim LngKeyE
Dim LngKeyD / Z4 J* y5 t+ g6 L
Dim LngKeyN
Dim StrMessage
Dim ObjRSA - V% V  Q0 P' l- V
LngKeyE = "32823" $ D/ c/ u! q- G  l$ F+ u* {8 Z6 r
LngKeyD = "20643"
LngKeyN = "29893" 6 P* y4 H) P) X8 l) w6 [: g, \  ^% L
StrMessage = Message # m1 ~8 r% ~* `
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 6 |$ E  l( \9 v0 w. I
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 8 a! r3 W0 i' y, ^7 h$ q! J* W
Set ObjRSA = Nothing
end function- B" Q+ p# y+ w( l# D; q) E
Function Decryptstr(Message) & w; o4 ~2 ?( ]* g
Dim LngKeyE : ]# j+ i$ x. K1 X$ m7 X% m! A
Dim LngKeyD ! U, a9 z) @9 p9 [
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 1 d' t0 Z  p; J# O/ B* a, s: {
LngKeyE = "32823"   }, B4 `. ]: q$ F/ L( u7 ?
LngKeyD = "20643" . w5 G& T. U. \" P9 h
LngKeyN = "29893" / e/ @4 e' E+ g
StrMessage = Message 8 U" B& B$ S  H8 _
Set ObjRSA = New clsRSA 2 ~2 B$ c" B3 U- F& t: J7 o- q: M
ObjRSA.PrivateKey =LngKeyD 1 h/ _5 C+ d, n  T* P
ObjRSA.Modulus=LngKeyN , d" s- M9 I+ T3 x7 R
decryptstr=ObjRSA.Decode(StrMessage) * A: {2 m- U; k5 q- D# |
Set ObjRSA = Nothing
end function
%>
===============================================: q  b# U# J* b+ s; z
) k2 j4 Z) t& Q% ~; @9 U) t- J% m
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%4 r$ t8 }% e  b, p  v% i
function Encryptstr(Message) 7 W+ C4 D1 V; Y
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 2 ]7 E, I2 [' T
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" / s9 @) S# _& f
LngKeyN = "29893"
StrMessage = Message 1 B* A+ a5 e  F% e
Set ObjRSA = New clsRSA , z2 d! H5 E2 r& T
ObjRSA.PublicKey = LngKeyE ' A/ I( P' h+ c) z
ObjRSA.Modulus = LngKeyN + Z% o) M3 N( u! P8 C) |1 @
Encryptstr = ObjRSA.Encode(StrMessage) / }! ~% L9 o1 U1 q3 O
Set ObjRSA = Nothing
end function 8 c* R9 {: F! x1 t9 S
function decryptstr(Message) + d3 d/ Q: L2 x9 ^
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ' N. Q6 w2 P; y
Dim StrMessage : ?" n. }' l# L- \7 g
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ; I6 S, c' e6 G* O& _
LngKeyN = "29893"
StrMessage = Message . k. p! M0 x/ U; P% R# h3 L
Set ObjRSA = New clsRSA * J2 y3 v7 E1 x# B
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ! n( D* W- i: I5 @- s+ w
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function ! A! v3 e! H* N/ U2 Z  A/ i
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first   z/ {5 y' O( Z* b
last=Encryptstr(first) 1 M! ], M. @) v% j" N" a% x
Response.Write "加密后为"&last ; A" f; c+ e7 w# z( z' u' Y
Response.Write "解密后为" &decryptstr(last)
%> ==============================================# A" ?- k3 }1 s! N, |0 ]
剩下的就是字符的对照表了6 A' j6 j- \- Q3 V
===================字符集================' i0 l1 S' _+ }" O) _: g
1_____6EBB
2_____5C1F
3_____4D75) y+ n( t: e- e/ R! q
4_____26CC2 g6 c6 q1 s- u
5_____4F888 f6 G- C6 O' A  o( o
6_____3F4E8 w! B1 a; D4 n8 u& O% X: B
7_____0A9D
8_____1A1C
9_____6D20+ Q6 D5 l: h, E; p6 {! r/ D
0_____1089
a_____0F3E+ ?0 _& F6 h7 Q! k" m
b_____3159
c_____3517
d_____419C
e_____615C3 R3 G+ F3 z- l" A
f_____556F
g_____2B7F) n2 q$ X3 f0 e" I$ N% U
h_____0F9C; e5 a" F8 S; b  s* U0 C4 s
i_____00FA) g2 w3 M: k4 z$ v$ u# L* H. C
j_____5A50' X" n. v% F1 b8 {
k_____2850
l_____3E7B  N! O6 Q( D3 v* M5 j
m_____71C56 z  s$ X  T! K" h4 c3 I
n_____1FC8
o_____74C1  Z* z2 _: F4 e% j
p_____5FB8
q_____6085/ j( Z% o( n# |6 A% Q3 y' r
r_____3AC49 y. e3 {; R% l0 p- v0 S9 g
s_____2F50
t_____36F8
u_____7010. k, L4 `; m; m* u6 Y( i! B4 \
v_____0B422 H: q6 `" d  S. s
w_____1C7A9 s4 o+ w9 {6 t( I8 \0 V2 `3 R
x_____16F88 _0 f" d! I3 D2 z! W0 U# u
y_____2EE7, @9 @, o. M: m& |
z_____5CF3* }" i- e+ o$ M/ v
!_____6233
@_____3A45! ^% s- ^8 \' B( F0 G; c, H
#_____2291
$_____5D5C! g) I1 y& L6 x0 e
%_____09B9- H' q2 l; ~' ~' T. s1 n& J( a( C
^_____43EA
&_____62B9' P6 b4 U2 O8 ]. k
*_____6301
(_____4659  X7 I' ^. x! Z8 ]* R; Q0 c
)_____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 分享给朋友]