关于国内某知名大学网站加密算法的研究(页 1) - 原创专区 - 【3.A.S.T】网络安全爱好者 -- 网络安全，势在必行

柔肠寸断 发表于 2009-4-19 21:52

关于国内某知名大学网站加密算法的研究

原创作者：柔肠寸断 [3.A.S.T] [url]http://www.3ast.com.cm[/url] slc P E*yJ-R3W
原始出处：[url]http://www.3ast.com.cm[/url]tB:N#lv@ce
$b#c,OruOwWf.M
看不懂的直接绕过&k&Y*k6]iN9WVQ2fL"z'R
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4EEh*Z%HZ1y/R_

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家p"Rn(Ad o5dsv8f#C3|
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法#^9][RHva;X
以下是RSA算法文件L(g#z|2bgu@n5A&H

文件名RSA.ASPcb5Sr6a~'X
===============================================[[5R(]M'U
<% GP)aj#ML
Class clsRSA
Public PrivateKey `8mR5v2R*i
Public PublicKey
Public Modulus O&nv_/@R6JS4p
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 2x&uI;ITQ
Dim lLngMod
Dim lLngResult $OZ._0u&j*s|O.K
Dim lLngIndex
If pLngKey Mod 2 = 0 Then w(l,c5^xoX
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 8x kp \r&Ej3H
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus Aw-I"]9`7`:a2V?
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 M,?;qGq4nr+F e
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation !kh+V]s,a
lLngResult = (lLngMod * lLngResult) Mod Modulus |Q%F5?9]W!O
If Err Then Exit Function a t&W-S-?i*X Tf
Next 'fl#TpOT
End If tk"~NM7b
Crypt = lLngResult
End Function&?N1W-yF6w
%|RFS*Gy d1bA
Public Function Encode(ByVal pStrMessage) G,q#QJ,v(L%x
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex B%IiWE t\i
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) v_v5j!TJ&A?m
Next
End Function B`@9L4D$`!t4Jbc2|
Public Function Decode(ByVal pStrMessage) b!` g#K q
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex \&J2i IV"gyV-MV
Dim lLngEncryptedData '^O'`Sj5FNym.F.p:OE
Decode = "" N6D r r-v6`p8z(j
lLngMaxIndex = Len(pStrMessage) S@rI0l
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) X0}:_U)K0h
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) wN(w_ _U[3eL;R
Next aB![Uk:KVWw{
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 8V6PnqOt'X'k,\
Private Function HexToNumber(ByRef pStrHex) 0fp!Mgp7^2GO3bb
HexToNumber = CLng("&h" & pStrHex) 3v$^7}~[Fq
End Function pj9t`1?:}"DleN
End Class 5Jfl#j4\K tb Y
function Encryptstr(Message)
Dim LngKeyE +x+t@K(Zhi
Dim LngKeyD $K M,y/Rs2ou
Dim LngKeyN
Dim StrMessage )Mp(k)z-t {v
Dim ObjRSA
LngKeyE = "32823" !w_(EJ,D_5i'_
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 6V$Zz"z^&M3kwKS"@ m
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE v5G#{"h&cC!Q1?,P
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) |b N0@*U
Set ObjRSA = Nothing
end functionT i.w s+XWD4TcST
Function Decryptstr(Message) +NI2e4| |0GPQX
Dim LngKeyE q#U4a0{o.Y-}
Dim LngKeyD eb,|sM\9Z
Dim LngKeyN l D0\%T i3ecc
Dim StrMessage
Dim ObjRSA !y~J g H7[
LngKeyE = "32823"
LngKeyD = "20643" G`tj#P3U
LngKeyN = "29893" /l1x W.OqQ f
StrMessage = Message ,w"LVFkT"|3hr
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN +qWA{RD1a4K
decryptstr=ObjRSA.Decode(StrMessage) (rKzDt)nbt
Set ObjRSA = Nothing V dVP[7S
end function 5j]2CI(^Md|t
%>
===============================================
8mHt"pxh
还有一个用于测试这段代码的test.aspQB)|S `9Q W;O I
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) )[M_]P Q
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" `/K2ME*f u.SJ
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA |$x4gi_qq+h!S*w
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing RU$LS7F0U|w
end function
function decryptstr(Message) x2_9d'JEr
Dim LngKeyE
Dim LngKeyD ry7J*b^kR
Dim LngKeyN
Dim StrMessage ;ebG/sEE/DE
Dim ObjRSA J/b1LR-tW
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 8s8pLu rWR
StrMessage = Message ,w!zzx.nn%{
Set ObjRSA = New clsRSA L M@lW
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 6Ju6lkxj(u
Set ObjRSA = Nothing
end function KVD!U[,I;g.C*E
dim last,first
first="!@#$%^&*()" !aU PgY_;O7j
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last PyjZ y?/UB1N
Response.Write "解密后为" &decryptstr(last)
%> ==============================================zmKj5{3M$f [T
剩下的就是字符的对照表了
===================字符集================{!r9D,B%?YA(a'@
1_____6EBB%a7K$s[8x/o
2_____5C1F
3_____4D75'Fr"A'i$I[L,Jo:Wj
4_____26CCXh,c*sh4v2V;^^
5_____4F88;}A]S_/]z
6_____3F4E?y%U azf;wG2F&w
7_____0A9De6SC-J;v&D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517 j"g&c9jx$`0y
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9CO4Y7v-M@A
i_____00FA
j_____5A50
k_____2850D6Y/W NR
l_____3E7B*D.b^+v#d,f.M A Y
m_____71C5q&p3C2fB~+g
n_____1FC80Q#E{0GE@|s
o_____74C1Xn)x.DT]*v,gr'O
p_____5FB8w;b(~V cM2^
q_____6085E3|eqU
r_____3AC4#j3q4}5{HHw'M!g ^[
s_____2F50
t_____36F8jX K;pK!?7n
u_____7010(~7~t0`6^ s4M@
v_____0B42
w_____1C7A_b\@0cT}d
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45)w3u#Y(T0k
#_____2291 m~^M/Pkf
$_____5D5C
%_____09B9
^_____43EARj!Y2G"t6L0T$[gE t0N9U
&_____62B9*g!szR8Dqov
*_____6301k/Q%kk A m
(_____4659
)_____5C82

鱼儿无心 发表于 2011-12-4 17:17

收藏了。。。。。。。。

页: [1]

【3.A.S.T】网络安全爱好者's Archiver

关于国内某知名大学网站加密算法的研究