【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

看不懂的直接绕过. |- H* w. Z+ V0 T; h
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================. Q+ `3 M* s4 q
上面是当时自己校内的心情。现在已经解破出来了，分享给大家! g4 \! z8 m) z
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法% t5 {; q& z+ T1 ?
以下是RSA算法文件
2 v5 a& @, N" N
文件名RSA.ASP
===============================================" s* m& k$ x+ s0 P
<% 3 d0 Y! L, Z  Q+ A
Class clsRSA 3 i$ j( ?- |8 P. Q# s
Public PrivateKey / l5 W7 @" U0 w) y# m; {" j
Public PublicKey ' C* ^; j: _: j- m6 H8 y
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 0 P( L" F1 F9 |
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then & r6 G) G% ?3 \4 H# ^! W. D4 [
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 + `4 ?0 j  r. x% \
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation # g2 D0 p2 \1 T3 d1 d7 C. s' ~
lLngResult = (lLngMod * lLngResult) Mod Modulus $ Z& _3 T- r  }' z( z6 b; m3 \
If Err Then Exit Function * L: x3 I' [( C; U* q- R
Next
Else
lLngResult = pLngMessage 0 \" g7 a* Z. e5 s8 q4 U. [2 e
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus # J' m5 m9 _8 I
On Error Resume Next & T; |) c& [9 {* B
' Mod may error on key generation , d! E- Q6 w* E( M4 y
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function $ h5 }7 F8 Z- D0 H% y
Next
End If $ F/ h. v2 D2 ?* I+ v- ]
Crypt = lLngResult 1 o6 t, K1 r# V+ u; T
End Function2 e# d% m+ _% d* x
* R% C2 B; h' ?' Q+ \
Public Function Encode(ByVal pStrMessage) : p# j  E6 y& T5 }
Dim lLngIndex ) G+ e  Y# }! Y4 p4 R5 w# S6 O% m
Dim lLngMaxIndex
Dim lBytAscii & ^) ?( u) m+ v6 E3 t
Dim lLngEncrypted 6 ?  @% e9 F' f% C5 q. r. c
lLngMaxIndex = Len(pStrMessage) + H; H7 v1 l9 W( |- t& z7 a5 |$ E
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 7 I0 F1 I; {& u  G, i& `9 S
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii / b- P' Q! O6 E! g" P' U
Dim lLngIndex 2 `! j! K8 P& c
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 7 I) |/ X" O9 f+ u8 M: q: m" Y
lLngMaxIndex = Len(pStrMessage) ; g6 T- b% G7 }) }
For lLngIndex = 1 To lLngMaxIndex Step 4 ) }7 e+ G0 Z2 L5 ^4 _8 a
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ) C, W% w+ O. g# x& E& ], O' ]. w# i
Decode = Decode & Chr(lBytAscii) 8 x6 u! [1 i  v8 f7 T/ h. ]3 X
Next
End Function 3 [$ M. k- h, L: _2 \
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) - S" Y  s+ c6 y+ [$ B0 U
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ( @4 ^0 a$ ]: C0 y
Private Function HexToNumber(ByRef pStrHex) 0 ^1 @' a9 I8 Q- q7 N. ^
HexToNumber = CLng("&h" & pStrHex) - w- v6 {1 y* b
End Function " p8 D1 z1 C8 m
End Class : n4 U2 f- S. ]. u. m" A
function Encryptstr(Message)
Dim LngKeyE / j: t, j7 u% Q# d4 }9 r/ c; T+ c' v: k
Dim LngKeyD $ A: o6 T; |9 N5 w# ]- ]
Dim LngKeyN
Dim StrMessage ( |. l% |, G6 u0 z0 ^
Dim ObjRSA
LngKeyE = "32823" ; U; L3 u9 d" Y7 i& N1 E- x
LngKeyD = "20643" ! u1 a5 O7 i' ]4 x2 X+ I9 T
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE   L' j2 r3 X6 N* k
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 8 B- \* v  r* B; N+ v
Set ObjRSA = Nothing + w8 j5 R& Q; q7 x
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 7 {6 {4 D  e$ S: T; R# q* V9 R
Dim ObjRSA
LngKeyE = "32823" + ~; v3 r' F; C
LngKeyD = "20643"
LngKeyN = "29893" 0 B: [( B! D8 f
StrMessage = Message - B9 S( F  m; w9 A
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD * X" }1 I5 \0 x: s& R% p8 O' V7 u
ObjRSA.Modulus=LngKeyN 5 ~% n$ n$ c% F4 o+ C) P) S
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================

还有一个用于测试这段代码的test.asp3 D5 y" n; L1 l3 {$ D3 J
有兴趣的自己搭建个IIS测试下4 [3 n) E5 I1 n3 w
 ; D  Y) @9 E; l$ S" T7 P5 S7 z
<%
function Encryptstr(Message)   W+ v( C% Z: j! q4 {
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN " v/ J& a" R5 s6 P8 {" s% c1 h) G( i, ^
Dim StrMessage
Dim ObjRSA " o. t9 u5 O) p" Q7 ]
LngKeyE = "32823"
LngKeyD = "20643" 8 L/ H, |, g! A2 C& F# ~" T
LngKeyN = "29893" : o  k" C+ {% R4 r, I7 l
StrMessage = Message * A8 @) s3 Z, w2 g. H
Set ObjRSA = New clsRSA % a. V$ c+ p9 r; \* T7 L* l
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ) ^# w5 w! J0 `5 ]3 r- w
end function 3 t0 r" c& B. G5 e
function decryptstr(Message) / R7 _( s. B- O$ P4 }* b
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 5 b5 h6 A* d3 m9 o, O" |
Dim StrMessage 6 t' i: v% v7 T, V
Dim ObjRSA : N8 Y( s2 n8 g- w
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 3 f" g! m9 Y8 v
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 4 A7 w. \6 ]1 `, w6 y5 _" e+ M
ObjRSA.Modulus=LngKeyN 2 J# M; H) T+ Z. Q
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing % {; B* _, X- s7 P4 F2 m$ S
end function " u5 A6 _) `) u$ Y, a) _
dim last,first ) y/ O' E! b, `# d1 |9 R
first="!@#$%^&*()"
Response.Write "加密前为:"&first # u6 J/ l/ b0 I' Z, ^
last=Encryptstr(first)
Response.Write "加密后为"&last 4 K2 ^; G6 t# n; {6 e7 l
Response.Write "解密后为" &decryptstr(last)
%> ==============================================% a6 `# d, L; }0 r* \) v9 Z! W
剩下的就是字符的对照表了/ h$ |. }3 q8 n
===================字符集================
1_____6EBB
2_____5C1F
3_____4D759 i9 B' g) J# U, H5 {
4_____26CC* d3 r% C  x# y4 H
5_____4F88' f: w. H0 A3 Y% r0 B
6_____3F4E
7_____0A9D
8_____1A1C" _7 A+ w5 {: d) }0 T
9_____6D203 L- O4 h3 s# @7 V8 O& {" ^9 ^
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C8 r. M7 s+ Q) |
f_____556F
g_____2B7F
h_____0F9C  G9 L7 q9 _, l. ]
i_____00FA
j_____5A50
k_____2850+ f- W2 a$ I# [3 V. N
l_____3E7B
m_____71C58 P, q# d' ^  Z/ t7 L' M
n_____1FC8
o_____74C1( [) Q7 _  }7 t; f: L& {9 x
p_____5FB8
q_____6085
r_____3AC4
s_____2F50* j7 t4 w$ N- z1 u/ y- W
t_____36F8
u_____7010
v_____0B422 z% ?+ @) y  L8 p  P  a% M9 y- @
w_____1C7A# g( n; Z; P% E8 d; [3 y9 h2 e  ~
x_____16F84 m1 k! A. ]8 L# x
y_____2EE70 v/ l' X5 }% C* Z4 u+ G- I4 g0 P
z_____5CF3" ^' F  d# d/ d( `
!_____6233# g  Z& U: `8 q% `5 z* l1 n0 N9 r
@_____3A45
#_____2291
$_____5D5C) x; v8 O- y+ z8 l& G, l; ^
%_____09B9
^_____43EA& |- Y) s  M1 U2 S0 S! d" {* |- m8 c
&_____62B9
*_____63013 n4 x2 M3 {9 L. |3 O) W  o/ c6 Q
(_____4659/ S0 Y( C8 g7 |; z0 A
)_____5C82

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

收藏了。。。。。。。。

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