【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- x# B/ t: q) Q9 R% T- ~

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法2 z5 ], n& E! t: S% h% G
以下是RSA算法文件
  m; d( b/ q! c# w- F1 J
文件名RSA.ASP
===============================================
<% + k' e  U( q+ G: l/ |& o
Class clsRSA
Public PrivateKey ) `) V  `* `3 e$ u. D% Q3 f
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next / Q$ q) [; `; b3 \8 U4 D4 j
Dim lLngMod
Dim lLngResult
Dim lLngIndex ; g! x6 c/ B6 `; |6 d' h: Y, x) v; n
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 # e9 ^" Z* D( u* X0 r
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation " T5 u7 u# u0 {+ l
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else # D  l( \9 q+ G. C
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 4 q( e2 M0 C8 P+ a4 L
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 4 f! n' S5 k. I9 C# c, D' V
' Mod may error on key generation / I4 o. l4 `1 L3 {7 [" ]
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ' n" [! @8 @: @
End If / m. y3 x( T" r1 l. V) u, {  s/ g
Crypt = lLngResult ' n3 W8 w. o9 S4 w" e5 g2 {9 l
End Function
1 G7 W% e6 }, Q! [* ]0 @
Public Function Encode(ByVal pStrMessage) 9 V3 _8 x- W% B* V
Dim lLngIndex ! d6 h+ F9 I( Z1 `& G$ g& T
Dim lLngMaxIndex 2 A1 I" S7 ~  U# q3 Z4 |
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function : w% o, X4 O8 w  C  r6 d, z
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) % t' P5 M3 V7 x3 l( F! R' Y
Next 2 w0 ~" a* B- ?
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex * D( w2 f; T5 X% n* h" h
Dim lLngEncryptedData + |" M+ q( o4 {
Decode = ""
lLngMaxIndex = Len(pStrMessage) 6 T+ `6 I0 Q. x$ ]0 n4 W( ?
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 4 I" ?1 n5 B/ f0 I; d
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 1 F) Q& ]) s) z) l
Next ' i2 U$ {  M( D- K6 Y+ V. l
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ; a$ G: Z9 [6 k5 W
End Function
Private Function HexToNumber(ByRef pStrHex) ( P. X: S9 o8 U. q( Q, H& }
HexToNumber = CLng("&h" & pStrHex)
End Function # C* j  G( W% J- e8 P5 E
End Class . P- V1 t/ E" z
function Encryptstr(Message) % \; X' w3 L6 L" g; F
Dim LngKeyE - u+ ~; `/ ~! Z, B+ P
Dim LngKeyD
Dim LngKeyN - [3 w) v6 @2 g; e5 t* L# B
Dim StrMessage & ?9 p0 \. H* F* `4 i/ J/ o
Dim ObjRSA 4 _! j" }0 S/ p4 B; s$ e
LngKeyE = "32823" , R+ w3 Q6 C: Y' i
LngKeyD = "20643" % w8 d9 z1 P, Z( G0 D! P3 }% F
LngKeyN = "29893" & b: r1 a6 J8 f8 ~/ N3 t8 g
StrMessage = Message ! N3 O, b8 p  q( l/ B" U, g
Set ObjRSA = New clsRSA 5 d  `- X3 Q, d9 O5 s8 T$ h2 @
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN - E& \4 M$ j; c4 b
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ; v0 G+ M) A5 F! \
end function9 U. S$ r9 V. @# r0 R! h: v
Function Decryptstr(Message) ! Z2 w  v! P/ A% S; ?
Dim LngKeyE
Dim LngKeyD 1 ]% J4 S+ v$ u) Q5 A2 c
Dim LngKeyN $ _: U' Q* g# W+ _. h# [8 V
Dim StrMessage
Dim ObjRSA 8 S. N; [) s1 e2 c# P
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 5 a% i& Y+ P& X" d
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ' c& O# H; e$ o& e7 Q! |
ObjRSA.Modulus=LngKeyN 9 {" x6 K; l) K0 Q" F
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>, }( Y  }, R# s2 P+ ^' N$ l
===============================================

还有一个用于测试这段代码的test.asp& X6 ]8 F, O, ?  T0 y
有兴趣的自己搭建个IIS测试下, }; m( [  o+ G$ j
 ) j' K8 }! b( `- g! R* n9 Y$ q0 @
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage * C- Q  Y; Y8 y! B
Dim ObjRSA
LngKeyE = "32823" 6 U# I" J9 _( R6 C% c
LngKeyD = "20643" 2 x5 w' C' p- n% K) m$ s: }
LngKeyN = "29893" 9 m; t! G0 U2 S
StrMessage = Message
Set ObjRSA = New clsRSA - u2 S7 V# q3 ?! q* V! m
ObjRSA.PublicKey = LngKeyE 7 ?! J% K9 ?" P4 u$ C: Y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 8 O9 m  l/ k9 _' s* J* v
Set ObjRSA = Nothing
end function 7 n3 h% c7 n- l8 ?7 x( O: ~1 }
function decryptstr(Message)
Dim LngKeyE ) _5 X. R% ^" V' q. V* I1 g
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ) V8 }5 B" E# ?' m  o
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 4 G2 R9 C) {7 i9 B8 \
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 1 C% Q$ ^; ~5 P( l6 G4 O
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)   [7 a2 a1 m. U5 i- R9 {: T* M
Set ObjRSA = Nothing
end function ; k3 p: I: j6 p& U  a. ~4 o4 b
dim last,first
first="!@#$%^&*()" ! d% k) z7 r. ~! \1 F: A
Response.Write "加密前为:"&first 5 X% i" m/ o1 {& ~1 J+ P
last=Encryptstr(first) + F  |( y/ f, G" u/ p$ @
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ; s$ l/ n0 H5 `+ ?8 g
%> ==============================================: v2 |+ G, X! m$ l2 `$ x, o
剩下的就是字符的对照表了
===================字符集================
1_____6EBB  l1 L( p/ P/ Z, `, [
2_____5C1F4 P# i0 t6 s* ]8 \: n9 E  i1 J
3_____4D75
4_____26CC
5_____4F88$ {) c5 u+ m' ^9 |" p
6_____3F4E
7_____0A9D, g/ |8 e8 R2 U6 k1 b3 ^/ z
8_____1A1C
9_____6D20
0_____1089
a_____0F3E* D+ P( @" n$ h+ w/ T3 ?3 O
b_____31596 o( z, p+ j6 B6 D* M5 p) N! V6 s: j: N
c_____3517
d_____419C" H$ D! n" j/ P- I1 S4 f
e_____615C" V: o+ \2 d6 F4 U, X. }
f_____556F$ u/ i) \7 ]8 k# ^9 k4 b
g_____2B7F
h_____0F9C
i_____00FA4 `6 r* d$ d" h. _0 t4 M
j_____5A50
k_____28501 P/ p' e! S/ I
l_____3E7B
m_____71C59 d$ Z# o4 }) _$ E% i. K) Y
n_____1FC8
o_____74C14 U2 I# F& n& v2 U- O( _
p_____5FB8
q_____6085
r_____3AC4
s_____2F50; ?& m8 f8 k! I: s4 q
t_____36F8
u_____7010
v_____0B42
w_____1C7A, ^4 \* ~$ h! ~& O) {2 ?4 r
x_____16F84 v# a1 Q' u3 B( D
y_____2EE7
z_____5CF3
!_____62339 y4 x" o/ R9 K/ d/ |9 U0 c+ K* y* x' c
@_____3A45
#_____2291. |0 o- v  @6 N2 |8 H
$_____5D5C+ r$ ~% }% w, y* ^+ w; Y
%_____09B9
^_____43EA
&_____62B9
*_____63018 \3 U9 x8 W" T% x
(_____4659
)_____5C82

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

收藏了。。。。。。。。

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