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

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

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

原创作者：柔肠寸断 [3.A.S.T] [url]http://www.3ast.com.cm[/url]3F ^D8YLr`
原始出处：[url]http://www.3ast.com.cm[/url]
0?*tm1RYp p
看不懂的直接绕过 r3X$B*`&]M&f"uG
加密前为:hwy1234561Y1I&rN'a t)V/Kh
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E+n6vlbq bU(j
LA'h-Ar}{ {
============================================V(A'jd$[:g+P*J
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法/I_Od| E!a;d
以下是RSA算法文件b;kIj@u

文件名RSA.ASP-|0m9v)s3aM8Y;b Q
===============================================
<%
Class clsRSA
Public PrivateKey @1F0RySY%Mi2aD
Public PublicKey #Z Y2J c{7vx
Public Modulus (u)Yy.W W6I JI)J6z
Public Function Crypt(pLngMessage, pLngKey) ,K0Cv3l,g;y
On Error Resume Next
Dim lLngMod "u \I1\N7D#lL
Dim lLngResult 4? O9?fq(L
Dim lLngIndex /`JL:l)Ns]ONsF
If pLngKey Mod 2 = 0 Then 4q a0k \D%VzPL J|
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 9U*o.{C!S-`be
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function /f-M#`*GN*G
Next ;Q QYb0G#f#KE
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 8`D6Bj*xe C;|
On Error Resume Next
' Mod may error on key generation 7E-i$Y)XPw|
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function Gb\"]#n
Next &LiyZ3R(kO1_
End If z0lj2[,O`
Crypt = lLngResult
End Function
nRi-S(u
Public Function Encode(ByVal pStrMessage) k~o't3j,?Z
Dim lLngIndex X!MrfD4L.v
Dim lLngMaxIndex
Dim lBytAscii A&{/??-Kh?:J
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex q'J(e9~3fc
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 4b ED4|(AN(Q
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) @1p)nYr0v
Dim lBytAscii "y'S~Ah,G:t|3b \;yN
Dim lLngIndex
Dim lLngMaxIndex 7S] Ln@C
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) [jd'Bc^
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) .J.}C [5X"V'd
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 7SJbig)MG
Decode = Decode & Chr(lBytAscii) :G6FJS#KA].N
Next |%rKB!c9|
End Function Gael _:_at
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) Np7RAM9x1{
End Function F[wP3u"b
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) -{H L~`-|3dp
Dim LngKeyE
Dim LngKeyD *x,F0n)a!|SN
Dim LngKeyN ;|ZV\/`(ri:Y7[
Dim StrMessage },u _RSZ7E9j
Dim ObjRSA
LngKeyE = "32823" 0p!Go.d7vh
LngKeyD = "20643" Fe5OdG}F
LngKeyN = "29893"
StrMessage = Message k:P9S d.jA
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) aD,T0Mo `-mP
Set ObjRSA = Nothing
end function.L$p{6ghcep
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage *t&G_MA/fR9k
Dim ObjRSA :l}:gE*J OtQ%Z
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 5HP$Ad$kQj$K
decryptstr=ObjRSA.Decode(StrMessage) RCtmq
Set ObjRSA = Nothing /iO.LXs e
end function td? ?#{:]\
%>
===============================================

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

<%d.@8Lj}.W,g
function Encryptstr(Message) |H*]IWC t x
Dim LngKeyE
Dim LngKeyD s/jg9sU
Dim LngKeyN cCe G HVPp0gfP,oC
Dim StrMessage K(Q)s6iXsn@"O$c
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ~x3C*~L+Ks
LngKeyN = "29893"
StrMessage = Message `wLSG
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ;S#D;tG3Fc'i.`
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 'Uq;B1vx6F
end function
function decryptstr(Message) 0^$Q9m#G@4|9u
Dim LngKeyE 6tl9v1TU`
Dim LngKeyD
Dim LngKeyN
Dim StrMessage +BS(u mI5K
Dim ObjRSA S,xaGTfk'u
LngKeyE = "32823" pbU%s6e"GRk
LngKeyD = "20643"
LngKeyN = "29893" .rk-gcE/A`m
StrMessage = Message
Set ObjRSA = New clsRSA D OoPI2h!r
ObjRSA.PrivateKey =LngKeyD ;[dR,gS8sQ5Y
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function )xgsH RN)qIZNf
dim last,first ^ N(\%l9uN
first="!@#$%^&*()" c1D*@u7T2}8p2h
Response.Write "加密前为:"&first "k,|V[u X4~-E
last=Encryptstr(first) S&u+b"Q4W
Response.Write "加密后为"&last ~p9['}3pX_4P*[\
Response.Write "解密后为" &decryptstr(last)
%> ==============================================Z*c P]1c
剩下的就是字符的对照表了
===================字符集================9^)D u A*^.U-u
1_____6EBB{4aqe;D|UBx
2_____5C1F
3_____4D75ca&[q.n^
4_____26CC
5_____4F88
6_____3F4E0u*yWh9b$J c
7_____0A9D
8_____1A1Ccp H;Wyj$BT4?7k
9_____6D20g.C1H,Q+d)HsJ
0_____1089*Je6thkz^
a_____0F3EIN8^`5c5SZb.qH0S
b_____3159 z'PC/b a
c_____3517
d_____419C
e_____615C
f_____556FE(Ow6Hg]@L
g_____2B7FK$bM&[{G2F:dW
h_____0F9C,oEi(^vK3q-{T
i_____00FAmie;WJ
j_____5A50V9U7Qd$X H
k_____2850
l_____3E7B
m_____71C5|![U8fv9ir
n_____1FC8{VtF@
o_____74C1 \,bG9N"KJv'O.Uk
p_____5FB8
q_____60857do5H~#i/`+l\]
r_____3AC4 ^G+hak"K0F4q
s_____2F50(`A+k#KggHo x
t_____36F8
u_____7010
v_____0B42
w_____1C7A&?V7llnx0_
x_____16F8
y_____2EE7
z_____5CF3)OB,k j#`_
!_____62335OALw$}3^R
@_____3A45^Q'@g8L:D7M_:AX4m
#_____2291
$_____5D5Cht!tr7wU2wG
%_____09B9
^_____43EAi%on3AF'd`J
&_____62B9pN.]V}pB8t*C
*_____6301
(_____4659^K"\8?Bys
)_____5C82

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

收藏了。。。。。。。。

页: [1]

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

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