【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
! s9 Q0 S  Q' C% L3 [: o1 ^
看不懂的直接绕过
加密前为:hwy123456: H4 N+ i, s9 m: a  C0 D7 Z( V+ _
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
; @* I! V+ a5 Q0 }# O! o$ ]
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家: M/ E, l+ o0 [; i. ]
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
$ \! Y+ d4 q* ~4 P
文件名RSA.ASP/ X& i) M! X0 |' V; l. _  r3 r
===============================================4 Z% N' V3 ]; @8 M
<%
Class clsRSA % N' @' k) u! A) Q% z* {
Public PrivateKey
Public PublicKey
Public Modulus $ k9 E6 A; @& X- n* B
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod * U1 w4 h8 r  d8 W* O
Dim lLngResult ; J! c# X$ l- L. ^% \- ^9 ?
Dim lLngIndex - ^$ q8 E  V" y! A5 T* A5 w
If pLngKey Mod 2 = 0 Then 5 s+ m9 h. e* d3 U& ^4 j
lLngResult = 1 8 C/ U& J+ f4 S5 W' K
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus % q; p, d( n# J; E6 r* z
' Mod may error on key generation , c0 s8 E! b  u* h( C) V: u
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next , Q0 E) B0 \& M* |9 f! {
Else
lLngResult = pLngMessage 7 K" X, q5 i- _4 p$ a* Z
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus   B. s9 d, w; x; `3 b7 b' R* }
On Error Resume Next ' K. r  D6 M" M' o. W  K- {
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ! X% R' g  U9 n
End If 4 ~1 n* i" ]; d- u1 k
Crypt = lLngResult & z4 N5 ^9 Z9 U' ]3 q7 G
End Function9 M% N8 n6 G" D
5 g9 m- e& ]) N5 \2 u7 t. o) r
Public Function Encode(ByVal pStrMessage) . A  G! y( n$ g, N0 T! c
Dim lLngIndex
Dim lLngMaxIndex 4 J/ W5 c& [6 F( s
Dim lBytAscii 5 h: I7 U5 g1 u; W% @
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ) ?  W1 o' e& V" H
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) + b! f8 y, k6 n( J
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next % V$ ^7 ?0 h7 C/ N3 _# d$ G* z; G
End Function : }& r/ y' l0 k  b; ^4 \% e: m
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii + }/ @1 c) U; Q: ?9 T- z* ~  d
Dim lLngIndex / m9 |4 z5 j/ a. ]
Dim lLngMaxIndex 5 C# g0 o# h$ D5 Q
Dim lLngEncryptedData ; n& `; o' {9 }& \+ B
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) + m" D+ r  Q4 ?2 |$ I/ S. ^
Decode = Decode & Chr(lBytAscii)
Next
End Function . b: m2 i: f+ R% {( D; s
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) $ d) P+ s5 x/ b5 [8 |5 n8 \9 _
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class   J; _% u6 o( Z3 C( h
function Encryptstr(Message) ) |5 s& P2 v7 d- N+ J# {
Dim LngKeyE ! g8 r; f8 G& R: g  A- U( E
Dim LngKeyD
Dim LngKeyN 5 e# D8 B- \) R6 c! R( ~; P* C$ B
Dim StrMessage
Dim ObjRSA ! z7 B2 p5 ]1 D' |8 S8 }8 Q: S
LngKeyE = "32823" 2 @: b$ w; k4 {+ S, \9 g. M" V
LngKeyD = "20643"
LngKeyN = "29893" - Q% G; L9 C; }: ]+ O! |) f' c; H
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 6 K$ s, l8 [/ S, L% x
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) . D+ J* }* y6 N; q6 J
Set ObjRSA = Nothing $ L3 D5 N3 f& {( @. w' l
end function* N, Y3 u5 h7 d6 `0 ]* Y& t* [
Function Decryptstr(Message) : D8 c7 \. ?0 A6 p) ^# m# S
Dim LngKeyE
Dim LngKeyD + a- g2 F& a1 q- m/ |
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 6 n/ t& R. S3 A* O
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 9 W0 h( f0 F' j9 [4 N2 Q
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ) \# Q( V, p: L$ i# O* x
decryptstr=ObjRSA.Decode(StrMessage) 7 i3 \" T: A) U2 p& s- @, P
Set ObjRSA = Nothing ! O. q* P& Y: w8 R1 i
end function
%>
===============================================
0 [6 [2 A. `( h
还有一个用于测试这段代码的test.asp. e+ C5 _' ]9 J' ]4 W! I4 K) I
有兴趣的自己搭建个IIS测试下

<%0 l+ @$ {. N0 R5 |4 s) |/ p
function Encryptstr(Message) , w5 c( K/ _! \9 P' s5 t, W
Dim LngKeyE
Dim LngKeyD " O$ ~) y& p' u# f
Dim LngKeyN ( t( l2 B+ S) T* Z0 N1 \& u
Dim StrMessage % Y' K0 z! F" C- I4 Z8 `5 }
Dim ObjRSA ( s, v# |5 c& t/ t: F2 q$ N; M5 J: O5 \
LngKeyE = "32823" " {' s+ F- M7 {( Y1 Z: _
LngKeyD = "20643"
LngKeyN = "29893" ! P! w3 _8 @" A
StrMessage = Message
Set ObjRSA = New clsRSA 1 ~* J9 E8 D' {: m4 u
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN * W( F1 q5 |6 r$ O
Encryptstr = ObjRSA.Encode(StrMessage) 2 B/ {; v* \& K( H
Set ObjRSA = Nothing
end function + P4 Q+ c) x! D# r$ y/ l6 @
function decryptstr(Message)
Dim LngKeyE 3 ]8 m% q  K" l
Dim LngKeyD 9 [* W9 ]7 `/ e6 ~* I
Dim LngKeyN
Dim StrMessage . l4 Z, B; G/ G. [
Dim ObjRSA * H" o6 A" w: p; x$ E  V
LngKeyE = "32823"
LngKeyD = "20643" / E* O* n: [* |" `) r. ~
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 2 p# M0 _$ @# G9 H: e" Y
ObjRSA.PrivateKey =LngKeyD 2 M  I, n4 v' {- k7 U
ObjRSA.Modulus=LngKeyN . a' t0 N7 N7 N+ `3 [
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first - O& k4 S. a3 \% e) C
first="!@#$%^&*()"
Response.Write "加密前为:"&first ; f8 N, Q$ t8 y5 u
last=Encryptstr(first)
Response.Write "加密后为"&last 9 P- t& D" _# i' h$ B
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================2 v* k4 j& j3 q1 Q
1_____6EBB9 ^! q4 E! L1 f& I( K/ n- d
2_____5C1F  _  B: l7 ?2 z6 ]
3_____4D75- e& h, f3 N" Q0 G5 x5 ~' `
4_____26CC
5_____4F88  `$ \4 U# I, f8 T: e4 S- h0 _
6_____3F4E
7_____0A9D. G; O  m5 S, y6 Y' P! ?
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____31591 d7 M# ~' @) s. @6 x
c_____3517
d_____419C/ m- @! V& ]1 P% t& M
e_____615C  C0 Z/ G) c6 l  {
f_____556F1 O- y; ?! ~$ L
g_____2B7F/ G$ E  E9 H2 V' b! f! T
h_____0F9C9 D+ p, F$ Z- k" J4 W. a8 f
i_____00FA& w1 R# T' _$ O% E
j_____5A508 Q/ ~' A, d/ J" p8 z4 {$ x6 k
k_____2850
l_____3E7B+ L4 Y) S% h* [/ H4 A
m_____71C51 Z' l' v% n5 j/ k, Z5 \0 F0 b
n_____1FC8
o_____74C1" L9 _5 ~7 n2 T2 ^4 ^& [7 P' Z4 t
p_____5FB8
q_____6085. m/ Q) u% j2 E, O0 r. G
r_____3AC43 `/ s4 u* l- v. Y! @- a( C
s_____2F50. C1 z  @" g+ S: }
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F80 |' {0 X1 [# N6 k8 j! w
y_____2EE7. M3 w: X3 [1 F8 v8 y0 \  r" ~
z_____5CF3
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9" h9 d* {9 d  f( d7 s
^_____43EA
&_____62B9+ h8 e0 c- a, e8 O
*_____6301) ]: O, E$ x  h$ h0 \
(_____4659
)_____5C82

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

收藏了。。。。。。。。

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