【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
' v' U- }7 p2 O
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 ~  x. x) y1 G- C+ B: m5 B

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================; I2 a* o: N" q  X# R$ J2 t
<% % p1 R; u- @( M  U, I1 P
Class clsRSA
Public PrivateKey
Public PublicKey , m) w$ r8 e* H3 b8 o% T$ P* ?
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next & g  @  b" A3 [: ]2 Y' Z# b
Dim lLngMod
Dim lLngResult
Dim lLngIndex 9 s3 K' f* ?) t4 m5 p( W
If pLngKey Mod 2 = 0 Then 8 ]8 H! H) e7 _5 D# ~
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 3 ~6 s- w& D! H! o1 J0 ^: W
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 3 K/ I# Z) b) L1 Z5 E; o; g
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage 1 H/ G% p' S2 I% h; j3 C( |) |
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus $ h- U! r# _" E0 p
On Error Resume Next 2 V2 F! x. \. n8 P, a* W
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 0 i) z, \5 E  E8 D; ~% }
Next 5 y; d7 s4 r! _4 P* g. o
End If " g' I4 `! F+ ^! ~- n6 l' R! V
Crypt = lLngResult 9 Z1 \9 b9 k0 `1 r7 X+ Q
End Function4 M1 T3 W; F- o
4 @# a3 K/ m3 u! h; p% a8 ]3 L
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex . K, L  \% |) o
Dim lLngMaxIndex 7 b2 F: L0 D6 g% C( S: `
Dim lBytAscii 0 F* @" y9 ^& S+ I% Y7 o9 h$ X
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function , H& R7 K# ]5 Q' F6 c
For lLngIndex = 1 To lLngMaxIndex 3 N4 M! e1 V5 W/ f, g
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) / _* l* e: U2 j, H
lLngEncrypted = Crypt(lBytAscii, PublicKey) ; z7 w% r( {2 n2 [1 \0 _
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 6 B& P* S$ W9 P, q7 o' ~
End Function
Public Function Decode(ByVal pStrMessage) 0 j1 N3 L- v& `! \8 ^( j: f5 H0 b* A
Dim lBytAscii
Dim lLngIndex 5 g3 P7 Y7 i! |
Dim lLngMaxIndex ; o; q- j: z4 C3 g2 K) {# X/ t* G! N
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 5 V) j* w( ~/ C- j9 ]
Decode = Decode & Chr(lBytAscii)
Next 7 J1 ?( N/ R/ M  N+ B2 q) ]; l
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ( f- J5 y# f9 l
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function   [/ d9 ~4 q* o. k7 A
End Class
function Encryptstr(Message) 7 d& j4 N; `0 t. d1 o
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN % p1 D+ _, o2 l/ _' b
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 2 p; x5 }5 `: P. d" p
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 0 s6 k6 |$ X# {- ^/ @
ObjRSA.Modulus = LngKeyN , v9 R  Q1 S' J3 O, \+ X
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function2 g( z! o1 N, D+ x6 ]& A" ^- Q
Function Decryptstr(Message)
Dim LngKeyE 0 p9 N; N6 M. P
Dim LngKeyD
Dim LngKeyN
Dim StrMessage , k2 y7 E8 F, q+ g
Dim ObjRSA 2 O. d( {+ v0 }
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ( J6 N/ G- n6 w+ q  ~
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 0 H/ j9 Z. K# s7 b, T9 N
Set ObjRSA = Nothing
end function
%>3 T6 Y& r/ `5 [% {# K
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 ' u5 o( ^3 F. a
<%
function Encryptstr(Message)
Dim LngKeyE ( [* D  P$ X9 Q% a9 [9 K- V
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 2 a, W7 i( X, O4 y  }# [0 N+ q
Dim ObjRSA
LngKeyE = "32823" ( M4 p$ B3 L/ s9 G/ b! Z2 ^
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 2 c+ M4 m- m. T/ }! y) r
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN % R. f7 T8 G: r4 \+ G
Encryptstr = ObjRSA.Encode(StrMessage) # ?% [0 F  y+ M$ {
Set ObjRSA = Nothing
end function 4 h1 _1 G& A& C' ^
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ' t) x" H. v: M7 W
Dim ObjRSA $ m; |( }: H2 [- W
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" " p6 P8 `$ {- Y8 w
StrMessage = Message . g* c' Y7 P& h. @' O) o; g* x2 v
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 6 V* n  E# K$ q- [
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 1 {7 H# v: x3 E0 e
Set ObjRSA = Nothing 3 \% s) v/ g/ R1 k" ]
end function 2 S) H+ U2 d- M, t# Q3 z; f# r
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first 2 y7 c; |, ]3 \! k$ _* f- g! w- g
last=Encryptstr(first) / Y2 j0 Y4 X' b1 U( U& |
Response.Write "加密后为"&last % T1 i) Q; C0 y5 r- U% s* q
Response.Write "解密后为" &decryptstr(last)
%> ==============================================0 ?6 y' l" V7 H. P- ~$ p
剩下的就是字符的对照表了( x- L+ p  }; w# ?7 i) ~
===================字符集================/ {% p; a* U! W* e
1_____6EBB6 M& K  d9 y9 v' i
2_____5C1F
3_____4D755 R) W! R$ ?6 W3 j( A# U
4_____26CC5 ?1 q' a% I4 J* t4 r6 F
5_____4F88; g! g' h# J# B. r+ ?3 `$ z
6_____3F4E
7_____0A9D; ~, w# f# E% q, n
8_____1A1C
9_____6D20
0_____10892 q. b- R2 n" N, c: e! x4 s, J/ c
a_____0F3E& U5 t7 }7 i# u) ^, V
b_____3159
c_____3517* X, K. m6 N7 I# x6 s* l- u
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C2 {& O4 Y* w- y0 i
i_____00FA# s" A8 g* J# D! G" d5 [5 b# Q* I  `
j_____5A50* l" `9 O- f- f9 t
k_____2850
l_____3E7B1 C, f3 w! ~, o* H' i  Q+ S
m_____71C5
n_____1FC8
o_____74C1
p_____5FB85 {& i3 ]8 e8 e
q_____6085
r_____3AC4; e: l  v8 Y( q  L, C4 \) D4 v% r
s_____2F50- B; b9 j* E* ]$ h
t_____36F8
u_____7010
v_____0B42* F# j9 I, u  V, L& ]( S" r; f
w_____1C7A& _: C& N# d6 J# X1 F
x_____16F8* |: ~, q5 T5 E( c5 [) f- V
y_____2EE7. y% |# F/ `& u
z_____5CF3
!_____6233
@_____3A45/ O$ J" S3 k' w/ E4 u
#_____2291" P4 o! w+ z) ~0 A& ~
$_____5D5C
%_____09B9( Z8 u! O) l6 g) K$ l
^_____43EA/ j# i, b1 ], S9 |
&_____62B9+ H9 I1 k( f8 w0 {, }5 T
*_____6301
(_____4659
)_____5C82

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

收藏了。。。。。。。。

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