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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm- h  Z1 e2 q- C% i" P% @

看不懂的直接绕过' q$ b, O9 x: U$ q1 O
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
* z% A$ \7 Q. x
============================================) Y% n( ^0 R& _
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法% `$ R7 N, Y6 {% q0 k& R/ M
以下是RSA算法文件

文件名RSA.ASP8 G) I; m! ^' {7 N
===============================================1 Q. ]& Y+ k& m2 q2 Z, [  K7 W
<%
Class clsRSA + k2 f$ y. v7 f* _( w1 f
Public PrivateKey # S4 t1 F1 i3 h; g- K
Public PublicKey # ]# p" n- q! c  g0 D* v
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 2 }7 v. z3 O  T8 r  y* \
Dim lLngMod " ]- O  l& _) d7 z& X+ \9 d- r
Dim lLngResult % b7 e* f( {- g* C
Dim lLngIndex 5 S. z; R2 T' G7 b4 q3 Z
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 , S. Q/ O) s0 Q$ S  w+ G
lLngMod = (pLngMessage ^ 2) Mod Modulus , m( {7 G( _/ z0 c
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 7 h9 P* Y; _- g) Q3 |8 i! ~: }
Else : C! A9 F0 x$ o' p, a" f; H
lLngResult = pLngMessage 0 I" M9 r8 n8 Z
For lLngIndex = 1 To pLngKey / 2 + C; B6 L8 l, U, X* G' |
lLngMod = (pLngMessage ^ 2) Mod Modulus ! s% K8 ^/ Q9 y& ]- p2 j4 Q, p- S3 L/ W
On Error Resume Next 9 y1 `$ Y: R* c: k0 w
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 Z1 Z+ b) D; |$ s; n
If Err Then Exit Function
Next
End If 4 O* @9 d/ E: D0 Q' d7 c- I$ A
Crypt = lLngResult 5 \2 F- F4 r9 D3 C
End Function; Q$ F* B, A6 H
- y+ G% q! f# `. \
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 7 u; r+ `; C) V! J1 n3 d9 w
Dim lLngMaxIndex - N& T( d  \4 V- ?( P
Dim lBytAscii 6 W# p2 \, o$ O2 v7 N$ ]# j9 m5 \
Dim lLngEncrypted ( A5 E1 h& L. h$ [) L4 z
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function * Q- D' R/ b  k0 `- \
For lLngIndex = 1 To lLngMaxIndex 3 k- i9 c0 q$ @/ A
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 8 O2 S2 E1 S0 t4 _! J9 |& D
lLngEncrypted = Crypt(lBytAscii, PublicKey) # p' M! k, C/ e8 Q
Encode = Encode & NumberToHex(lLngEncrypted, 4) ( g6 G. ?8 d7 j
Next % \3 S& b$ ^. w
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex . ~$ ?2 l! U5 d& J! Q1 }* p% R( A3 `
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 6 ]0 v5 R2 l' v- o: `+ J2 q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) , q: H$ Y. V. o+ s& w! F. Z
Decode = Decode & Chr(lBytAscii) * G8 u) k8 {! @3 W+ r
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) . y4 v. B- _& [0 `- h. }9 a4 p
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ) j( u7 l/ \. M+ h
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) " n, M- F0 u% j  e
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD ; r% m. W. l. v! V4 d& q; F+ g% R
Dim LngKeyN 5 F& S9 C$ Q, }  e, }
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ' G+ ]+ _; I* ^) X  F/ H
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 2 f4 `( a+ X  N! \
Set ObjRSA = New clsRSA ( T2 d! h* ]' }: G' [" a& H# n  ?
ObjRSA.PublicKey = LngKeyE : Y, L3 w7 p' N9 M
ObjRSA.Modulus = LngKeyN 9 t8 E+ b  r( X3 ~/ N  Z( Y$ n
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ; e1 S3 c$ X( g0 l" S1 M, f6 A. H0 U
Dim StrMessage ) B8 S& X$ B# g1 Y) s$ `
Dim ObjRSA , x+ {, K, j  W, l  r
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" - i* ]) l: [  E, Z* S
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) $ i% G1 e+ c' E; ^1 P
Set ObjRSA = Nothing 9 O* X1 c. T" ?* O; U; ^
end function 1 C0 h6 i" A4 P7 E
%>
===============================================) w/ t8 K" K$ t
/ q% g% V) f  k4 ?
还有一个用于测试这段代码的test.asp# d' z/ `. Z7 F' Q: T5 H$ I
有兴趣的自己搭建个IIS测试下1 Z* @; y2 G+ _1 Z# J  v

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD - g7 P- x% z  X1 j! j; Z9 H
Dim LngKeyN , W1 ~. _$ v) x; g! R% [2 K
Dim StrMessage
Dim ObjRSA 5 R4 s0 Q$ v, ^& Q6 i
LngKeyE = "32823" ! W, D% R" i' R4 Q$ m4 z+ Q
LngKeyD = "20643" 7 b6 g% m: K! B0 x7 k( u3 O
LngKeyN = "29893" 4 P3 c" ~' ^1 B3 l  |$ ], d
StrMessage = Message
Set ObjRSA = New clsRSA , z; ]$ T  E4 w* |" ?, y9 X9 |) \; O( @
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing + l) D) P& l' f# \! c9 U7 V( I
end function $ u6 p0 y6 {7 |
function decryptstr(Message)
Dim LngKeyE 7 t# A5 u- R& i! o3 a
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ; t5 Z2 Z5 C% A/ v5 f* p* h
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ' u; b/ e" Q; @' s) H
StrMessage = Message
Set ObjRSA = New clsRSA : |$ N$ o3 t9 _
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ( {( O: f! d2 p: B$ K7 `
decryptstr=ObjRSA.Decode(StrMessage) : h& ^6 ~9 J2 p/ g  b% j
Set ObjRSA = Nothing
end function
dim last,first + b: Q- r# b  W' M# g$ k
first="!@#$%^&*()" ' I+ R9 R- u9 a( T
Response.Write "加密前为:"&first
last=Encryptstr(first) 2 @/ }  h3 X. A- j
Response.Write "加密后为"&last , i4 c! k! c) ~5 G' @
Response.Write "解密后为" &decryptstr(last) . B$ ]/ A8 C  N3 m  h: l
%> ==============================================
剩下的就是字符的对照表了  N1 m7 {# X& u2 c; w1 l- W. T
===================字符集================
1_____6EBB, [. w5 d- S5 q1 z
2_____5C1F
3_____4D75
4_____26CC
5_____4F88  T* r( h5 O! c$ s1 N- B
6_____3F4E. g6 z6 `( J* y: K5 z! H) G
7_____0A9D
8_____1A1C
9_____6D204 d" X8 e" j" j( z
0_____1089
a_____0F3E3 r! K7 t8 `; l' a5 G/ m" Y
b_____3159, Z9 g/ K. d: J; ~" C
c_____3517
d_____419C
e_____615C& e; {& J$ N  J4 B1 j8 y+ I
f_____556F
g_____2B7F& |9 a/ y  s. G) n
h_____0F9C) K* [; T  \% t' C
i_____00FA
j_____5A50  Z$ R1 O4 y' g& {$ _
k_____2850$ A( x! W6 J7 [/ H
l_____3E7B
m_____71C5# s* V/ L1 U! g1 r9 z, X
n_____1FC8
o_____74C1
p_____5FB82 @, M7 S8 Z+ z
q_____60853 T, F# n6 z. \
r_____3AC4$ M5 Q  q+ U; H7 e! ~2 [
s_____2F503 V& t; ]2 w1 ~/ g3 s
t_____36F8( k/ L. |. U. i
u_____7010
v_____0B42
w_____1C7A4 m! H+ v; u/ c* f
x_____16F8
y_____2EE7( k4 ^8 x5 [2 z: H2 W
z_____5CF3* r- Y8 h* n$ d9 F
!_____6233! n( |$ B& X. G" F
@_____3A45
#_____2291
$_____5D5C/ n! J' ?* _* f* n2 |( N
%_____09B9/ A7 R) R& ]. l
^_____43EA5 j  @1 m+ _& A7 ?
&_____62B9
*_____63019 U5 G# p5 k, ]
(_____4659/ z/ U9 z* ~  D' }
)_____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 分享给朋友]