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

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

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

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm& Y4 c( \: C1 Z1 P/ H: Q' w
原始出处：http://www.3ast.com.cm3 m3 a" p+ Y, m4 E+ j+ f
+ W$ s) X. |5 N+ @* E$ r
看不懂的直接绕过
加密前为:hwy123456# ^. Z( |) ^  E
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E. `: k. Q9 C' R

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

文件名RSA.ASP! Z. G3 v6 m" S
===============================================$ Y  j0 Y# W6 t$ l" F5 x7 H4 i) E
<% ' l) K* D5 M* r8 q) l4 c' P7 Q5 k
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod / \" x& J1 G6 P
Dim lLngResult ) o7 {, ^7 ]% R4 Z5 Y
Dim lLngIndex ! J2 J  P* y7 `* v2 b1 L
If pLngKey Mod 2 = 0 Then - W5 f( }; I, ?; W" g3 J
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 2 [' _" b7 Z1 T& N
Next
Else   z5 a% [, U6 T; e( Q3 l
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation   e; `: Z9 t  d; J/ N
lLngResult = (lLngMod * lLngResult) Mod Modulus / U+ F5 A6 P) C- e9 j% l( a0 J* z
If Err Then Exit Function 9 I: D$ B# w" Q  K! W1 F3 u
Next
End If
Crypt = lLngResult . T5 N7 M. T: o
End Function
* p4 R, E) U+ {0 R* F0 {
Public Function Encode(ByVal pStrMessage) # {7 C9 }% G( }1 |+ S8 M1 _
Dim lLngIndex
Dim lLngMaxIndex 3 H% m) D( p& w. v
Dim lBytAscii
Dim lLngEncrypted 4 O  N  N. q, u1 X3 ~8 [
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) : S: @! O* h+ b, i
lLngEncrypted = Crypt(lBytAscii, PublicKey) . m( l% Y  z& p9 s- g: h
Encode = Encode & NumberToHex(lLngEncrypted, 4)   g1 G4 z$ H7 R2 [% k
Next 5 x* P0 X: R8 d- q3 p" ^1 V5 s- D
End Function 0 J' t& I6 \; F! ]
Public Function Decode(ByVal pStrMessage) ' v; |3 s. I! U' Z, n" V+ Z
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) ) K% {9 x& u5 d* o4 z( l
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) : R7 J: v4 m2 {: Z1 P
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) * g3 }4 C' g: d% S8 }; T
Next $ @% e2 M+ B+ U6 C/ W
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ) Q+ |" ?) N  h! Y; c$ Y. [) Z& `
Private Function HexToNumber(ByRef pStrHex) & y; U0 F. I% N9 o: v* Q- N
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class ) t$ b' a( ]/ |5 C; q! j
function Encryptstr(Message)
Dim LngKeyE # O! r5 [& C! `/ G
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ; {) m; N/ l  ?! a6 [! p
LngKeyE = "32823" 9 `9 y+ h. r. C) b+ o( l
LngKeyD = "20643" 7 i! E- K6 }$ I/ s3 }4 W
LngKeyN = "29893" 9 N7 ^( ]( |7 D- m
StrMessage = Message ) W+ \* G' x7 @# v4 f, ]5 D
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE - Z% {. i; b( n5 x
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 2 B+ y( f) |" c5 B& N2 r; @  o
Set ObjRSA = Nothing
end function3 k# D5 e4 I; l8 B9 w1 w  T; l
Function Decryptstr(Message)
Dim LngKeyE ( x6 U5 F# \+ Q9 k. m) q$ m3 Y
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message % K5 S  ?: _, m5 d6 L* R- ~/ }$ `) d
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD % G+ E6 ~4 S& N* E% f1 \5 J
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) : J- q7 T: P4 f  x' X: g3 _' n
Set ObjRSA = Nothing $ j0 Y: y$ Z; m
end function
%>
===============================================0 h! e; I+ J) C, i

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%2 S" Q0 C4 t! j
function Encryptstr(Message)
Dim LngKeyE ; i  U2 q7 ^% s& M9 n# T: J' ?
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ' }, b, ~: _- m) Y& k1 c
Dim ObjRSA 2 h* X0 f) j5 S# M
LngKeyE = "32823" / I5 y( I  L+ U% V
LngKeyD = "20643"
LngKeyN = "29893" ! k0 u% ]; T' v8 h1 l9 i% h) w. a
StrMessage = Message
Set ObjRSA = New clsRSA . J6 A( F1 h' n+ q1 I
ObjRSA.PublicKey = LngKeyE % P: t5 s- m+ Q) U, t& p
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 2 {9 s+ x" I( y' U
Set ObjRSA = Nothing % m. U0 B* b1 e# ~* t
end function 4 P/ R! x4 D% L3 A+ ?9 \
function decryptstr(Message)
Dim LngKeyE : @0 D* ~$ j, f% a1 m+ N
Dim LngKeyD ( l  h2 p  K% I: m
Dim LngKeyN 0 h  u9 D3 u* F+ H4 y* B$ T5 f
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 1 w9 ]% J0 G* J! J$ ]  V' n% f
LngKeyN = "29893" % N6 y, I( r: Z+ l% _) x$ H/ o6 R
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 8 l4 [& s' w) Y0 K2 r" Y$ R& ^
ObjRSA.Modulus=LngKeyN ; B' F6 g5 Y! J& U2 b. y+ U
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 5 t5 Q: e% `! w4 G, S2 v3 m4 f
dim last,first , e2 p& U# z4 R2 |6 w$ ]
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) * }9 b, w/ `. d  y( Y/ S  n; V
Response.Write "加密后为"&last 8 |9 u( z' q% [" S
Response.Write "解密后为" &decryptstr(last) & o: {0 M  P; p: _, @
%> ==============================================3 x, H) a3 ?- x' K+ s
剩下的就是字符的对照表了
===================字符集================
1_____6EBB; g1 ~! \/ b4 W4 g  d$ \3 {/ C; q
2_____5C1F0 T1 l* s, E- l$ Z
3_____4D75. [& u# E* P0 a. N8 @
4_____26CC& H. o0 i: c* J  Y8 d
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20
0_____10890 l% e& o+ a. K! r' V3 j; }
a_____0F3E( t/ O9 ^* g$ B! \, ]: ~1 v
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C! V: z: ~# H" b/ O8 m& B4 B; b
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC87 `) C4 C; u* ~5 U: u" s
o_____74C1
p_____5FB84 i) w) t" R. k
q_____6085! ^$ S7 l6 h& j% F7 A9 `% z
r_____3AC48 @& M7 ?0 {  o7 u+ p, a# R
s_____2F50. r' R3 ^$ I) T5 e, l
t_____36F84 m4 V& [' D5 V5 g. a0 O
u_____7010( x. U9 x( l" H( L" J7 p
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291' g8 w* Z5 b7 O* b
$_____5D5C0 G1 H) Q. L+ ?2 U$ U
%_____09B98 W9 y  N% T9 k, X8 P  v4 l6 E
^_____43EA
&_____62B9' C( X$ {: q- S5 T% f! F1 j% A9 S/ @! T
*_____63018 A' Z1 R9 ^+ S; e
(_____46593 }4 s" s( y" J# N
)_____5C82

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

收藏了。。。。。。。。

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