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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm5 m# g- U6 q/ M2 ^2 J
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E8 F0 g! ~' r( ~! q" _& y, |" Y

============================================% [3 p2 B' o5 z1 m5 Z
上面是当时自己校内的心情。现在已经解破出来了，分享给大家1 {/ X: v: [2 F9 R1 U
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================
<% . N) b1 B( w/ j2 o
Class clsRSA 8 v  ^0 _* [8 C" Q. O/ c. _
Public PrivateKey 9 I8 f9 ^4 d0 Y0 P. Z. m2 I
Public PublicKey
Public Modulus 2 P6 w0 N+ f! \
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 5 M/ J+ {9 a8 P& H8 q5 t" V
Dim lLngMod
Dim lLngResult 0 G$ O! x6 W. K  ^
Dim lLngIndex 0 ?) v  r3 F7 Y( X9 c
If pLngKey Mod 2 = 0 Then " ]( P' r& u% C- h! e3 ~3 K6 p" L
lLngResult = 1 ; K: h1 Q( \3 z' |  w
For lLngIndex = 1 To pLngKey / 2 , X! q) ^: }4 @: O$ [* L
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 6 T4 J" o- e; f; Y+ @
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus + a% a" p3 V1 y
On Error Resume Next
' Mod may error on key generation * \4 @+ m$ t6 o+ L% _5 |/ X; O4 u
lLngResult = (lLngMod * lLngResult) Mod Modulus - Y0 m$ ]; u! F! z+ O5 z
If Err Then Exit Function
Next 8 j) D1 m* r6 z) F+ V
End If ' i# e: l, j8 D& l
Crypt = lLngResult
End Function3 E1 \# ?7 ]$ a- C
3 C8 X  k1 ^& V7 c& ^
Public Function Encode(ByVal pStrMessage) % E; M: T' R& S# [5 X" R: Y
Dim lLngIndex * ^2 c7 `; `, b" Y
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 9 b* Z' X8 m3 {5 W
lLngMaxIndex = Len(pStrMessage) " ?, Z* Y& h( |: q
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) ( j$ k6 @& s# T9 X
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) " I4 i$ {& \/ i" z7 [( A) x) o2 B
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex 4 R6 }1 h, u8 i% Y* ~8 }, o
Dim lLngEncryptedData
Decode = ""   Z7 I% N4 O7 R6 e
lLngMaxIndex = Len(pStrMessage) $ W/ k/ }1 G: _0 L
For lLngIndex = 1 To lLngMaxIndex Step 4 3 i$ l; P4 ]) f/ u0 j: \
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) : S, o6 C- D  r% W2 m" _
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) / ]! Y+ S. u+ W" T9 B
Dim LngKeyE
Dim LngKeyD ; B. i; s3 F& n- s- U; L
Dim LngKeyN
Dim StrMessage 2 y& _+ Z* E$ u* I) y3 P. L1 n
Dim ObjRSA
LngKeyE = "32823" ! m- O7 w+ h7 B9 e3 \$ X) c1 e
LngKeyD = "20643" ! @$ P0 b/ z( o1 M* y
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 0 n4 x, J' [. _3 V  Z: [
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 1 S4 Z8 N' s, P9 ~+ B
Set ObjRSA = Nothing
end function4 s/ i$ [: M. _" ]( ~! I7 Z
Function Decryptstr(Message)
Dim LngKeyE , r4 j  X9 B* i) x, \2 g4 H
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA + _" b+ c- @# w6 z6 Q$ V" y
LngKeyE = "32823" : j% d9 X6 b8 @. o: G
LngKeyD = "20643"
LngKeyN = "29893" ) v  V4 u7 O! ^- m. i" o
StrMessage = Message 9 `) W# C- r: O' P9 a6 ^  T) O
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) + m7 y/ J6 D/ o! }' D" {/ h9 M
Set ObjRSA = Nothing & N; [) _' v$ d& I& w7 T. m; ^
end function 7 v1 F8 l+ ]8 H
%>
===============================================
! s# j+ ?7 F; n. y/ {& U% ~
还有一个用于测试这段代码的test.asp/ \4 O; O% D, ?
有兴趣的自己搭建个IIS测试下# q- l  }; q/ A8 P3 Q8 A

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN * D% U% g& t4 ]1 S: f* n! l
Dim StrMessage / Y4 v+ K  @; X9 C7 _/ M4 D! G. W  f( h2 {
Dim ObjRSA
LngKeyE = "32823" - t- v+ L9 C) h+ q: A, Q6 k
LngKeyD = "20643" , a' h- K2 H6 [& b4 R, |' z% w
LngKeyN = "29893" ! r7 D7 N! S8 O* K; [
StrMessage = Message 7 P* @9 m7 s( K( `) B. ^
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ( U- j" z+ Y3 B5 B+ L' v. M& m
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) - r+ t  L7 T9 a
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE ! ]1 s8 B- J2 O" H
Dim LngKeyD ' I# w7 D" [: f: a. W
Dim LngKeyN
Dim StrMessage
Dim ObjRSA * {5 f- u. a, o5 F- _$ j% Y. r0 p
LngKeyE = "32823"
LngKeyD = "20643" 8 J5 A) P8 i9 M, `! `
LngKeyN = "29893"
StrMessage = Message 5 L0 V  |' K& c4 b% b
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ' W3 p( r" Z8 J2 c4 `
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ( D3 b; R, U3 T& k2 s, ~5 i
end function # k% x$ M( ]! Q
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last : [$ ^# q1 {. w7 `1 _3 X% G
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F9 k* W& S$ l1 b
3_____4D75
4_____26CC2 D4 q- _- X; ?/ y5 X7 Z
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C# J5 K7 }$ X0 h" a9 b* J0 O
9_____6D20
0_____10899 f/ }/ W1 ~/ s: M  K! @0 ?
a_____0F3E
b_____3159
c_____3517
d_____419C- f4 d$ S& a2 h" _+ ^2 e
e_____615C
f_____556F
g_____2B7F% I' I0 R8 H6 l( T
h_____0F9C6 v  c( {, w% I
i_____00FA# `2 _& @$ ^3 K2 h' U' O8 ]
j_____5A50
k_____2850; |! O  g) h# z
l_____3E7B2 z# t6 I/ d- Z4 c
m_____71C58 @/ N. g! V2 t% m9 {# A
n_____1FC8
o_____74C1* {4 D  O) l6 I+ q" a, F2 d
p_____5FB8
q_____6085; R5 C2 C1 s" ~; {  G+ ^
r_____3AC4
s_____2F50
t_____36F8& o0 K# @" [/ Q- e  ?
u_____7010! ^0 b  M. u, P7 d! \" \& [7 F" z
v_____0B42" g  W4 j9 p* r) K! W& ~- G6 {4 T
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3% T, m; }2 L9 C
!_____62339 b: y$ L4 D. p2 @; @! I4 |  S/ Q
@_____3A45
#_____2291
$_____5D5C
%_____09B9( |+ l2 Z1 q7 `& [/ X
^_____43EA. f  l+ b* o" I
&_____62B9: b" c" ^8 i( B1 t, A, w5 b- h
*_____6301
(_____46597 D: M5 x$ F4 t, }& A# `# G9 K, N
)_____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 分享给朋友]