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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
. m$ Z+ B  [! E4 U: I! E; _
看不懂的直接绕过
加密前为:hwy123456' L* X7 \; d# H9 a! E% s9 d# d
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E! s6 A6 y. L5 ?2 w) t9 ]6 E

============================================  b6 T; Z$ u5 m, k* @
上面是当时自己校内的心情。现在已经解破出来了，分享给大家& }: d6 N8 D4 u( U) e
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件# ?1 ]' w: X2 _% Q, l2 [# [
4 F; M) r' O& A& V" h. L$ Z9 J% F
文件名RSA.ASP7 K7 ~0 U  F$ `5 h+ z
===============================================. z3 E( |& D  H8 T1 M
<% / a' e! H9 r/ A! w
Class clsRSA & b  T9 X9 Q: I% t- W* S2 D
Public PrivateKey ( L- W% T: v4 A" ]8 ^
Public PublicKey ; a) N( Y* ]# t$ ^
Public Modulus " I( h# X8 j4 m
Public Function Crypt(pLngMessage, pLngKey) & O; P) R, [1 Z5 U
On Error Resume Next 7 D2 e0 y9 A2 n3 H
Dim lLngMod
Dim lLngResult ( t* i( {7 z2 ^
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ( v; i: O3 O, \$ A; _
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function " I. S. _. }) N4 f: j7 `4 r1 V2 A
Next ) }6 v7 v. F( ^+ ~4 u, q
Else
lLngResult = pLngMessage / E& a, z) b7 r& }2 Y' L. a
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 m. x& S; @8 m
If Err Then Exit Function $ n% H5 }# y5 G2 [$ a7 W! h
Next 8 L$ R4 l; C0 Q/ E5 M; E* l* D8 ?
End If
Crypt = lLngResult / k: i: z; j2 l. U7 e' r+ `
End Function5 _) W7 }0 f" K

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 1 E4 b2 s' j7 h0 f/ X; u: M; W5 r
Dim lLngMaxIndex . t2 L; `! s' r( A
Dim lBytAscii % @5 k! ~6 L, ]% [# ^
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ' U  }  @5 \, L' x" ]: h& n  w
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) , X. |3 J" n* g# Q; \# v6 K/ x+ P
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) , R7 l8 @, J9 I- O
For lLngIndex = 1 To lLngMaxIndex Step 4 # a2 i+ I3 I; q/ H' ]/ u3 _
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function , _/ `' F' k. R7 d2 l
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) 5 F/ f' h9 R* L
End Function - |" U; {+ o: z
End Class 0 h' x; f% A4 }6 e+ u! i
function Encryptstr(Message) 1 T# n' j) s7 @7 y+ X3 w, Y
Dim LngKeyE
Dim LngKeyD * N+ Q6 P0 @# E9 O
Dim LngKeyN   @4 ^% _  t: I/ Q: P
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" . b% I/ G9 h& E  ^+ Y9 n3 _
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * p' ]3 y7 y+ m$ \/ m7 I
ObjRSA.Modulus = LngKeyN : v, a6 \: P, H) U- w# T
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function% {3 g9 _8 M* I" ~9 g
Function Decryptstr(Message) , b/ A' Q5 n& @# L
Dim LngKeyE - ?5 a. |1 p/ [3 j4 J
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ; h! Q! o  {8 U
LngKeyN = "29893"
StrMessage = Message , M% n% W( k) h/ E- C8 Q/ A+ Z; C* t
Set ObjRSA = New clsRSA 2 j) M6 |5 J: l% p6 r
ObjRSA.PrivateKey =LngKeyD 7 \, X3 @6 p9 S( t- m, l( q8 j) ?! V
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ' N; K: B" T" ]/ |' f, E
Set ObjRSA = Nothing
end function
%>
===============================================
1 k6 ~- ~5 z; b7 \4 g! H
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%" }; W" k  S& l$ P
function Encryptstr(Message) ! k: i5 Q7 w5 m4 @. D' x8 `5 R/ \
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN . A# a6 `9 f/ ?$ P- ?
Dim StrMessage   l- e( _, b* X: y6 i3 y  i, N
Dim ObjRSA
LngKeyE = "32823" 8 g8 m, r  c% [  m# h7 }+ I
LngKeyD = "20643" ' j' |, o. ~: f: ]9 P  R& c( m
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) $ }. o3 t) H. ^/ V
Set ObjRSA = Nothing + [3 c! O1 B. ~9 v1 _1 L+ A( u) v
end function 5 B2 v8 y# g, ^2 L
function decryptstr(Message)
Dim LngKeyE 8 H, [# T' k2 H  g" m# p
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" % P# [: Q% a9 O# j) z9 a: e
LngKeyD = "20643" 6 u. Q& X* m" y1 ]9 R
LngKeyN = "29893" ) c; H2 m6 A, m' L/ Y! j
StrMessage = Message 4 q4 {+ R% K4 n  S
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 8 Y+ i% F+ `# t3 y' R
dim last,first   g9 ~$ |2 X9 S  H
first="!@#$%^&*()" % L: @8 G+ \& g4 i
Response.Write "加密前为:"&first
last=Encryptstr(first) 3 {4 \8 |$ [- \2 V& `+ x
Response.Write "加密后为"&last 7 c2 i& T6 C6 `; A: i$ J! P3 ~5 I1 Q
Response.Write "解密后为" &decryptstr(last) . c" f/ Q) K4 S
%> ==============================================( j% Y4 B* C8 ^1 Y: M
剩下的就是字符的对照表了3 p. m* W3 y- q6 B/ l. y
===================字符集================0 A( A1 B+ c5 a2 \% ]
1_____6EBB4 [9 B5 o7 Y) N' [0 p
2_____5C1F; l' c# Y* S: p; D
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D4 p7 e7 G# f* y
8_____1A1C
9_____6D20
0_____1089! B1 i. L( W2 Z' M$ }; R
a_____0F3E
b_____3159
c_____3517
d_____419C% ]+ |: }" @9 n& \$ l4 e- `
e_____615C0 Q6 }* J! a, [
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50- I( n6 g  c& T% U! x
k_____28508 w! l4 A! L0 e- }
l_____3E7B* H9 A: W/ ?4 |( C
m_____71C52 \# ^4 ^$ m1 B
n_____1FC80 e4 F% W5 |* Q4 }
o_____74C1
p_____5FB85 ?: [9 F) [' ~
q_____6085
r_____3AC45 {1 t# V: U* A5 R# |5 s
s_____2F506 P$ t2 r  y) B* _* Z% ^" E
t_____36F8
u_____7010
v_____0B422 O3 p- H7 t3 [2 w8 v7 U% y* p9 y
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233) c4 O1 T" f$ A
@_____3A45
#_____2291( D. Z8 B' V- }: i
$_____5D5C
%_____09B9
^_____43EA
&_____62B91 g7 D3 [) ~+ c
*_____6301
(_____46590 E  ~) x/ e1 q
)_____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 分享给朋友]