【3.A.S.T】网络安全爱好者 - Powered by Discuz! Board

标题: [原创文章] 关于国内某知名大学网站加密算法的研究 [打印本页]

作者: 柔肠寸断 时间: 2009-4-19 21:52 标题: 关于国内某知名大学网站加密算法的研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm# d: h7 b  Q1 K! m

看不懂的直接绕过8 t( Z5 ^3 v( s+ `' k
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
6 I4 ^9 o+ H3 p5 V
============================================$ B) P; W2 H& \( r: v+ x
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法" b, c6 Y, o" s  U# {' \
以下是RSA算法文件5 W' U, W0 [) I( [) @; C  r

文件名RSA.ASP
===============================================
<%
Class clsRSA : U% x" j3 q4 v9 F/ Y3 D0 ]- ]9 \
Public PrivateKey
Public PublicKey   D6 j" R/ n& V- [
Public Modulus ( W: N4 m! I9 w" |  J5 j# {# B
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod / I* w, T2 f7 R* i' ]
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ( }# i# g/ O* z6 o; D
' Mod may error on key generation , w. Z3 Q+ Y6 |- j3 Y9 ]
lLngResult = (lLngMod * lLngResult) Mod Modulus / W5 `/ R$ w& E. w" V; s
If Err Then Exit Function - D0 Q7 |" Z* m
Next 1 H5 D5 Y2 O. X- n# r; x  T
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 7 ]* @- j! `- e1 G
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 3 ?" }/ q: }- g- y9 v+ M# O
If Err Then Exit Function & r% S( q" N! K$ A
Next
End If
Crypt = lLngResult ) P) @+ P* j7 @; Q) ]2 k9 u
End Function% i4 k' W& @/ x
0 c' A6 ?3 o/ d
Public Function Encode(ByVal pStrMessage) # G/ h$ F# Z: i4 `, ^- r4 w
Dim lLngIndex 3 L- a0 f4 W, h0 b% w7 B3 w
Dim lLngMaxIndex ! E' H4 V0 V8 M$ t7 V. {: W
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ; s- Q7 T& C, C% Q/ h1 {7 [/ i9 W
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 0 k. A, U( x/ l9 ?: ~" R
Dim lLngIndex ( Y. g. T; P* w% U
Dim lLngMaxIndex $ j1 O1 M& T: T1 V7 k: N( U
Dim lLngEncryptedData
Decode = "" 3 C' @: N/ d8 ^" J: Y- e: j
lLngMaxIndex = Len(pStrMessage) " A) v- W- X3 R& W% i- V7 z
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 3 `' G8 T! L1 f2 c4 J- ^# w5 i' c
Next 8 X4 v0 B: J* I( S
End Function # s0 c, m2 l7 {5 p; `5 B
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ; |$ R4 @1 E' f$ ^5 h! B
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ( G' c- }2 P7 v7 ?7 E* {
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) , W! M7 N0 Y( L
End Function $ x* ]4 C; b% N' @7 S) p
End Class ) b; W6 A; s( `% ?9 f
function Encryptstr(Message) ) ^8 z' b# n) K+ V6 u4 a
Dim LngKeyE
Dim LngKeyD + y4 o1 V! t% r3 u8 G0 K0 p/ u
Dim LngKeyN
Dim StrMessage 0 G+ t& e1 C* ]3 F5 u1 r
Dim ObjRSA ( z0 i( }! C& \6 j) r1 G, P  n2 @
LngKeyE = "32823"
LngKeyD = "20643" 0 g9 M0 T7 K" n/ B; q' Q/ s$ a
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 0 E  Q# v! w. }
Set ObjRSA = Nothing
end function, D  U- ?$ z$ x9 |6 p: q
Function Decryptstr(Message)
Dim LngKeyE 5 w# F3 r; k1 @; P
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 9 Y$ C, d" j0 I$ x2 u3 @
Dim ObjRSA / v3 W; F' k. U. Q1 W% n
LngKeyE = "32823" / L7 q" n. _: [' x9 c4 K) h; T
LngKeyD = "20643" . k6 A, j8 _7 J+ i5 w
LngKeyN = "29893"
StrMessage = Message : D0 M; m& Z. N3 x0 F) a8 k
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ' [6 _1 D# f1 b, I. r
decryptstr=ObjRSA.Decode(StrMessage) $ |7 c' j6 \) h
Set ObjRSA = Nothing # T: Z( G+ U5 n" A
end function
%>
===============================================% ?+ d8 w2 y$ Z3 U9 k
! v; r; u" X- u$ P! m6 ]- v+ B- X
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下1 N6 ]1 m( n/ f
 / Y( t1 O* ?" f9 c
<%7 J5 u- X# q- g0 Y
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD ; ~: }, o  y5 e! |9 `9 q* @
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" - D% ?. y3 b2 a' k9 u
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN , P+ E1 t9 l$ n9 w1 l
Encryptstr = ObjRSA.Encode(StrMessage) 9 F& R' H" M9 H- V
Set ObjRSA = Nothing
end function 0 b8 A1 O* _: C( W8 I! G) C. \$ ]! A
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage : v; x2 W& H5 p1 a; ]
Dim ObjRSA
LngKeyE = "32823" & w0 a4 n. j3 p
LngKeyD = "20643" / G- B3 y8 P6 z2 R: N
LngKeyN = "29893" # L- A2 W- x0 E2 {; r. ~& h
StrMessage = Message 7 r# h* h8 S/ W
Set ObjRSA = New clsRSA . r: V. k- X- [! G8 H
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 5 e0 w2 a$ q& Y9 Z: y  g
Set ObjRSA = Nothing $ @2 O( ]: b$ ^. S1 y4 i# G" k
end function
dim last,first + [! P) L7 n' x. N
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 2 c/ d1 y$ _: c! P$ E9 P# Z  A
Response.Write "解密后为" &decryptstr(last)
%> ==============================================1 S- X8 C# K) d
剩下的就是字符的对照表了- f: N$ V# C3 I) @& o
===================字符集================, P4 [3 I" o- R1 H, O
1_____6EBB
2_____5C1F& G+ w+ g6 {1 |
3_____4D75" n# x/ [  W- o9 T# J
4_____26CC
5_____4F88. h3 Y7 a$ A1 g: o$ o" |
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D207 y/ {! m# `2 V, W
0_____1089
a_____0F3E* D' g: \/ A  I3 N$ D# P  Q, ?
b_____3159
c_____3517( U4 U2 R3 T3 U
d_____419C
e_____615C
f_____556F* m6 r& ]! y8 O* q" @
g_____2B7F/ Z0 i5 X: W% L1 [& g8 ?8 o
h_____0F9C4 O$ Y; A' R' Q1 s* `& t# c3 B
i_____00FA* H% g0 N1 w3 q7 d3 c
j_____5A50- o0 d& f. Q0 g# \4 A7 I4 D
k_____2850: v! w- K: j3 R
l_____3E7B. K2 S! `; s! E7 i  G
m_____71C5+ x& o' L( \3 C! h9 F
n_____1FC8
o_____74C1
p_____5FB8
q_____6085& [5 j7 V+ @( s2 v1 t
r_____3AC47 ?( u( I7 |- W: K$ H( M
s_____2F508 g; {5 K1 n! z
t_____36F8
u_____7010
v_____0B42) X/ d3 N( C7 k8 r5 W( x; W
w_____1C7A# v7 r8 T$ ~# Q
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B98 D5 U, t/ q+ ]6 n
*_____63019 c- S7 I- u. {8 s( y* o' f, l
(_____4659
)_____5C82

作者: 鱼儿无心 时间: 2011-12-4 17:17

收藏了。。。。。。。。

欢迎光临【3.A.S.T】网络安全爱好者 (http://3ast.com/)