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

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

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

原创作者：柔肠寸断 [3.A.S.T] [url]http://www.3ast.com.cm[/url]l2h:Onn j b?0F
原始出处：[url]http://www.3ast.com.cm[/url]r6O"H|4X A+f0Z
5F[oae6q!r"_
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家1B~$s*A9Ye||
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法}5P2\DB}3at}
以下是RSA算法文件

文件名RSA.ASP#bIQY3W'd D
===============================================
<%
Class clsRSA
Public PrivateKey BG:`[#{B2^1BIB
Public PublicKey F+{I/B$cAH
Public Modulus Dd%KZi1Zs
Public Function Crypt(pLngMessage, pLngKey) R'\6CW,d?bj$o[
On Error Resume Next
Dim lLngMod D#Zv'w/S{(w*y
Dim lLngResult c6}jW7go{q
Dim lLngIndex Ff9O#ipJ+d
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 8p7@$tME ~[
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next [ J9~ S%c+n x.IK
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus !Oc0`o Tf
On Error Resume Next "R"lw,[)v r-@
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function t$L2Z9]*m%d|Eu.T;uB
Next E+O6Rq!H$[0P"X2@}
End If Y;P d&O#S;c^buK
Crypt = lLngResult L.hd6@"h0I |9ua}
End Function
'e1r.S uV L-U{8L
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex Y:Ua ?P8Pg
Dim lLngMaxIndex !U6~U0v5r&}
Dim lBytAscii teeS OB l
Dim lLngEncrypted v@m6Ow
lLngMaxIndex = Len(pStrMessage) v)C(Z+A3y5|#d$Y!z
If lLngMaxIndex = 0 Then Exit Function 0h/e2@M^#E _/v
For lLngIndex = 1 To lLngMaxIndex $@+d/O/@.Ra+\t,^
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii d4@;GM%^h@j
Dim lLngIndex
Dim lLngMaxIndex (o*\.c7dQb
Dim lLngEncryptedData )Q{j'J2O
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 c!P#y/c0{R
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) +}5c[7`)y%U av
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ~CE8[-cg
Private Function HexToNumber(ByRef pStrHex) "V-]aLnX n$FsB
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 'XMj:_C1t
Dim LngKeyN EhRegb4h9^?
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" T9X&K FEj-V&l }
LngKeyN = "29893" 3_4l/NEf(np
StrMessage = Message S2MX3VXI
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) t&\`4z!\;]
Set ObjRSA = Nothing
end function~}uo'O7G!s%m
Function Decryptstr(Message)
Dim LngKeyE ,B w@1e?JuC,O
Dim LngKeyD
Dim LngKeyN &Ji5[:n6i&j
Dim StrMessage
Dim ObjRSA ~:Na/z;~
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA d R&EAk%y;s h
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing Z&MS&n,Nu^
end function WVJ7M(N#Y
%>
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下Oz#zu[\)B*b0j-O2U
 )VcQM R`&J
<%
function Encryptstr(Message) 1G5V9w;{{c
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ^rHc4wV
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" k/p3r BU5p9Z1[RZ7E
LngKeyD = "20643" z-E"}v|,g/pGsH
LngKeyN = "29893" 2r7[qY3m1W6}q*]/]s
StrMessage = Message
Set ObjRSA = New clsRSA ok0R!C0@-@d T
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN vV^yJ&z#r1es"sJ
Encryptstr = ObjRSA.Encode(StrMessage) a2cv9a^
Set ObjRSA = Nothing @"c LTO1S,J,L ^
end function
function decryptstr(Message) {.[8h)^'th;q+w ]d
Dim LngKeyE
Dim LngKeyD $PGKKul:?
Dim LngKeyN
Dim StrMessage 'X]-xA@
Dim ObjRSA !^P7Xi5gN%p
LngKeyE = "32823"
LngKeyD = "20643" @7wa Q.a/L}
LngKeyN = "29893"
StrMessage = Message 0~ W(~ Ap.toN
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) pGP&]b0o9{E9i#[T
Set ObjRSA = Nothing
end function ;j]:P^r
dim last,first I|V%H"PX#m:M
first="!@#$%^&*()"
Response.Write "加密前为:"&first nI.q4OL1e
last=Encryptstr(first) ].piOB?3i7Ax
Response.Write "加密后为"&last #e1ZgvY
Response.Write "解密后为" &decryptstr(last)
%> ==============================================+GhV3Ee6aY`
剩下的就是字符的对照表了xJ BO1p(Lt0|
===================字符集================*@V|0Otv)Om
1_____6EBB/\W#y H7j
2_____5C1F%W#U G}{4A
3_____4D75
4_____26CC(hF9a4v g/`%NX k/B
5_____4F88
6_____3F4E
7_____0A9DO_?0P8C3jo(j
8_____1A1C
9_____6D20wh4Bh{B*u
0_____1089
a_____0F3E1q,d zN.E;hZAp
b_____3159
c_____3517
d_____419C
e_____615C3Z'A1a0pp*P)Ae4u0d0B(U2N
f_____556F#\aRh\ o
g_____2B7FT"W9D']"g:Yfq3eCj
h_____0F9C
i_____00FAgh\U@A(~
j_____5A50
k_____2850%g t4CF7dcY3u
l_____3E7B
m_____71C5(doM w#l
n_____1FC88_7kI7\P;PpJ4I
o_____74C1I+k"bC%Q`7| y`
p_____5FB8alb!\4Z;C9_e
q_____6085
r_____3AC4!L_?M1|6_
s_____2F50Wc*vW ^\2g
t_____36F8
u_____7010
v_____0B42
w_____1C7A S0S6jf4?
x_____16F8;M)t8RtzW'@
y_____2EE73ioZkYJ wx
z_____5CF3tk5~"~L9kJ
!_____6233B V'p,]eb5t
@_____3A45J[B:d|zZ?8ey
#_____2291vyf%n3i8N {
$_____5D5C
%_____09B9
^_____43EA/?g|E3{rz
&_____62B9^_aM%|-tD
*_____6301:xWwl H)YS9yT
(_____4659
)_____5C82

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

收藏了。。。。。。。。

页: [1]

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

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