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

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

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

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm; f! B4 G( {1 k2 j+ H; w9 P- `) s
原始出处：http://www.3ast.com.cm
; h) ]& e3 _# ]( ?
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法9 L) ]" Z& G% E
以下是RSA算法文件+ L* H% C- X* v( X/ X

文件名RSA.ASP
===============================================
<% ! ^6 u$ J1 k* N0 G! P- S
Class clsRSA 4 G0 j+ j2 m% |1 W/ o4 U2 H
Public PrivateKey
Public PublicKey + w9 M" m9 [0 I" o$ U! z
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod - b' p8 l! r0 Q* g. L2 _* G5 a
Dim lLngResult
Dim lLngIndex ( X4 {& x7 n9 `6 |* j
If pLngKey Mod 2 = 0 Then
lLngResult = 1 & H( d. |% x; E$ I8 H
For lLngIndex = 1 To pLngKey / 2 1 D: l# C9 @! {/ r% x/ {& M
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 2 D# r# x3 h  ]0 R& v& I
If Err Then Exit Function & m& }6 a+ v% t: R/ S! D8 L
Next
Else
lLngResult = pLngMessage 2 R& |+ x% ~- I$ c
For lLngIndex = 1 To pLngKey / 2 * A  L  S4 }; `2 H" n+ o+ Y6 c* H( g! K
lLngMod = (pLngMessage ^ 2) Mod Modulus ' d/ Z, W" w: W1 b
On Error Resume Next
' Mod may error on key generation 4 W' c, ^4 I2 u1 d9 {4 @4 x$ l8 ~
lLngResult = (lLngMod * lLngResult) Mod Modulus , H' I) @% C  ]% a! H
If Err Then Exit Function - ?) M6 z8 {7 g$ l
Next 3 ]" k" c7 |. M4 E5 r1 ~3 [
End If
Crypt = lLngResult
End Function$ ?% Y/ A& k# ?2 @, g  O

Public Function Encode(ByVal pStrMessage)   F6 u- {: }- Y
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii ) z+ ^0 r* A7 D/ s! L, Z
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 4 ~/ `/ ^# \5 |# s" q$ i
If lLngMaxIndex = 0 Then Exit Function * J# J' d1 d0 k  X: M5 R- S
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ) K2 ~4 |2 Y, G) G
End Function 8 r7 Z# D7 ~* b7 N
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex ! n3 ~/ r& v; F- i
Dim lLngEncryptedData
Decode = ""   V+ V5 D& w8 P/ U: ?' a9 i
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 ( w' _5 |6 d9 K$ z
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) % A8 a& ?7 c) m8 u! e. C+ w* n
Decode = Decode & Chr(lBytAscii)
Next ; a0 n8 @" L  W( @/ ?
End Function
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)
End Function
End Class # o  M. d9 `1 M7 I
function Encryptstr(Message) # f, z6 D. d9 n4 ]5 D' [2 c1 p
Dim LngKeyE 8 L" |" U: }7 t. M8 R, A- R$ g
Dim LngKeyD % e( p$ P, B( ?8 g  S* e+ d
Dim LngKeyN $ x) v7 ]9 X5 Z5 R6 j- q4 n% r
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" , K7 B! n% o) X
LngKeyD = "20643" 9 e, r3 R9 J1 j; @" j2 B8 I
LngKeyN = "29893"   e0 h7 x' n, Z5 ]/ I
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) + v' t# _' a8 {! R) f# i
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) # s% m8 ]2 [( B5 F
Dim LngKeyE
Dim LngKeyD 6 ?! I, D* x! ?* W& G
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ' _  K! t4 g) W7 O' N
LngKeyN = "29893"
StrMessage = Message 1 J- l. f. K; ~! W: h
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) : N1 P* I6 ]/ u- T
Set ObjRSA = Nothing
end function : h) j* i% Q* T% q/ I
%>$ e4 Y' |) e3 g* A" M$ _( B5 r% O
===============================================

还有一个用于测试这段代码的test.asp% o3 @; Z1 I, G) j* z  r, n
有兴趣的自己搭建个IIS测试下
 . A2 P1 X! B! x# l& b9 N
<%- ?. f! w  n& i' G& c. |' [
function Encryptstr(Message)
Dim LngKeyE ; G7 D- I; N, @6 a2 s4 C
Dim LngKeyD . K+ M( l+ p( s6 p/ W3 c7 L
Dim LngKeyN
Dim StrMessage # X3 h) j( |$ z# F, y
Dim ObjRSA + i3 g4 V2 Z. R/ A
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 5 R* Z0 w- v  ?/ ?
StrMessage = Message
Set ObjRSA = New clsRSA : N% `. W% J9 a9 K- S4 T9 N
ObjRSA.PublicKey = LngKeyE , d! j) z' X4 ^* D8 M6 j+ j6 r
ObjRSA.Modulus = LngKeyN / g) y0 P/ \7 Q* H# D' B. ~; K
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function ! T7 S  n, A; e+ E) ?; L
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 6 W4 _9 V; k' V
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 3 H* W  [9 T8 ?
StrMessage = Message 7 z+ l# X% f' ^! l( D$ W$ T0 G" h5 [
Set ObjRSA = New clsRSA 4 d! H0 F: y" a$ w$ V
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 2 `5 F, S: f! H3 n$ f% X5 O. N
end function 4 I2 N: W* l' r6 z* x( I+ x
dim last,first
first="!@#$%^&*()" ( b" u+ s% }: u( b
Response.Write "加密前为:"&first   W& D% B% ~$ B- R1 g3 n
last=Encryptstr(first) + Y3 z% y3 j* h8 Y/ X( I
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ; S8 c# z6 E( y; v; K5 u
%> ==============================================5 Z3 b9 ~- B4 T# \9 b7 J
剩下的就是字符的对照表了: V8 K) d! e. X9 P/ z5 P
===================字符集================7 h7 ^  D/ o( T, A
1_____6EBB
2_____5C1F- ?1 z) C' {, H/ ~( A& H7 J
3_____4D75
4_____26CC# q, I4 U8 }0 {$ O- q' k
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C) c; c: t* V3 c' h
9_____6D20
0_____10895 _/ o- F; M1 f  t( m6 a
a_____0F3E
b_____31594 s3 {. v. d: B( @* ?! k+ t2 |6 Q  m
c_____3517
d_____419C
e_____615C
f_____556F+ W$ N4 v3 ]' B, I  T2 e
g_____2B7F
h_____0F9C
i_____00FA) x, J( H6 N& r4 h
j_____5A50
k_____2850
l_____3E7B4 }5 w3 e# m! U& X: x
m_____71C5
n_____1FC81 Q" z. ^+ O5 N
o_____74C10 p/ Z( G+ r9 F% t* q% K" D/ A
p_____5FB8- F; W4 I; _6 H* x
q_____6085
r_____3AC4" v$ l  q5 F0 P
s_____2F50+ W; T6 q: w5 U5 Z% j4 P6 p
t_____36F8
u_____7010
v_____0B423 `8 x  J" d  L! I' P3 V7 e8 M
w_____1C7A
x_____16F8
y_____2EE7) Z- Q0 i: ~5 A, i0 X) n
z_____5CF3
!_____6233  G# n( d$ w1 }3 @
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____4659( P+ d& N% ~2 d$ K* K0 S, k! E
)_____5C82

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

收藏了。。。。。。。。

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