[原创文章] 关于国内某知名大学网站加密算法的研究

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm4 n4 o# M' c4 m: n: _
原始出处：http://www.3ast.com.cm1 u2 l# I, K* X

看不懂的直接绕过+ N: i' i6 q: J: n8 j
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
  T( N" g# `7 k( X6 Y5 R# B3 K9 _
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法/ P: ]0 B" x  K( P3 x
以下是RSA算法文件# Y7 {2 x3 e7 ~+ O& c

文件名RSA.ASP9 `4 J# l9 Z/ t% ~2 F; Q
===============================================' K8 u8 W& p$ d7 v6 {: \" f0 I
<%
Class clsRSA 6 z$ h  Y8 t. O- c! r
Public PrivateKey
Public PublicKey
Public Modulus 0 |+ Y6 d1 p2 }& q3 v5 z; }
Public Function Crypt(pLngMessage, pLngKey) " `! X  i+ O+ g( a$ ?0 E' k
On Error Resume Next
Dim lLngMod
Dim lLngResult / t- p& O. t4 l" U4 U
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 6 F; A0 \' f, {+ |* k5 O! X% s
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 8 u3 Z3 C  ?* p. m2 D% z
Else 8 k8 W, Q" ~0 o1 j( t6 w* C" x" Z. M
lLngResult = pLngMessage # K( U) Q0 z$ S& [& g0 e
For lLngIndex = 1 To pLngKey / 2 + X/ _; U# Z% l& E
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ) ?6 L9 O' o( @. k4 S% ]
If Err Then Exit Function
Next ) x- P0 {9 p' R$ k. b
End If
Crypt = lLngResult
End Function4 Z9 g9 y+ ^: j* v/ K

Public Function Encode(ByVal pStrMessage) 7 v5 c5 k. w" s' G' R
Dim lLngIndex & {% T6 N) r. G- r# c, U+ Z
Dim lLngMaxIndex
Dim lBytAscii   {# T$ O/ b& w4 G
Dim lLngEncrypted % ^* L: p% M2 e. A. l6 Y
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function $ ]% D- ~' i6 O! v9 K! B
For lLngIndex = 1 To lLngMaxIndex : P. o) a3 s+ }% W; T% D) I
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next $ l0 t2 H; z. y& ~1 k
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 9 h5 a- z2 j6 }9 O9 w$ D
Dim lLngIndex 0 l6 \5 W+ r/ m! W/ |$ _
Dim lLngMaxIndex 0 }$ ]/ B* B( K% c2 i+ W
Dim lLngEncryptedData + o) C4 K: P5 q% c
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) # F1 P* ~; O' z0 o; ^5 Z6 R7 _
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ' ~+ E* r5 U  k
Decode = Decode & Chr(lBytAscii)
Next 6 l) C1 Y, J( B
End Function & r8 p* y/ s0 O4 ~) {; g
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 2 n9 x2 f- }$ j; w1 e1 ?7 o
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 9 B  i( o: r( q0 |& l; Y
End Function 7 ?( K! d- V1 K4 ~0 _
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 0 v9 v7 f% |1 T& {7 p
Dim LngKeyN
Dim StrMessage
Dim ObjRSA " g: b/ t: ^' L+ Q
LngKeyE = "32823" * G4 p# p0 f) b% _+ i
LngKeyD = "20643"
LngKeyN = "29893" , e3 Z0 j, @3 h4 Z9 i+ ]2 X9 s
StrMessage = Message
Set ObjRSA = New clsRSA ; V1 ~  n( X$ x4 F6 S' M$ J7 Q
ObjRSA.PublicKey = LngKeyE # @" Q4 P! E% g' s
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) % J: _1 B( q! D8 m5 v' \
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) * t6 x' z  T, e) G8 l, Q5 F
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 0 M" {7 Z" R; ?/ K: ~) x/ p
ObjRSA.PrivateKey =LngKeyD 6 L6 B# L/ j- R) B2 p
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ; {8 N% N7 b( _! ~
Set ObjRSA = Nothing 7 R+ v+ q9 I; S  |
end function
%>5 w+ {- J! K9 `
===============================================" r4 i& K1 R9 ]4 I

还有一个用于测试这段代码的test.asp4 ?, y' p  y3 ~+ J$ G) \
有兴趣的自己搭建个IIS测试下

<%- J; w- M6 ]9 T2 u* C
function Encryptstr(Message) 9 t, q0 @/ H3 W' ]. d
Dim LngKeyE 3 y3 C8 \1 n; L4 i0 g
Dim LngKeyD - l. x" G0 V$ Z& E# D! t- `
Dim LngKeyN
Dim StrMessage # b5 V9 d, g. t) S# m2 [% |! ]
Dim ObjRSA
LngKeyE = "32823" & D! }6 d. B  N& w& P
LngKeyD = "20643" - @# {: ~8 M( H4 n$ a
LngKeyN = "29893" " B0 O# h7 T- X+ O& J# g
StrMessage = Message ' s. t5 k' t; X
Set ObjRSA = New clsRSA ! [. X5 k) H5 e! M
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 0 p3 [8 A/ Z+ a5 v" D
end function 4 ]- @7 |8 |& \( D
function decryptstr(Message) 3 X4 @& w/ e* ?5 j! U. f
Dim LngKeyE ) R9 X- d/ z4 U
Dim LngKeyD - D+ h* a/ w6 U
Dim LngKeyN ; T# o; v  Q6 J2 M6 k
Dim StrMessage : q5 _( o; |& S. C- _/ W3 |. I
Dim ObjRSA 3 Y" h& {! X/ T* H  Q( u, K
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA # Z0 y0 A8 k8 M/ p5 S+ C& d
ObjRSA.PrivateKey =LngKeyD ) j+ Z8 j* ^4 W0 t. P9 U( b
ObjRSA.Modulus=LngKeyN / }7 o; k8 H) a7 ]" e. r# _
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first 8 I+ `, i8 U& \
first="!@#$%^&*()" 7 B; d6 L- d: z- C
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 3 H/ t( ^& Q  @! I. M4 y, ]: W
Response.Write "解密后为" &decryptstr(last)   C8 F8 B2 a. r
%> ==============================================! M+ L" [' x; H
剩下的就是字符的对照表了9 d8 s+ l$ E- v) `) ~# x" c0 b
===================字符集================$ N9 r) _2 x' ?: Z( a. Q3 o
1_____6EBB
2_____5C1F
3_____4D75: _# p$ D/ o3 M$ Z; C7 Q& l
4_____26CC6 ?; }3 E2 f3 }4 ?1 y, v) F- S
5_____4F88! G' W* f; N! ?
6_____3F4E
7_____0A9D' _6 v! ^7 \+ e3 T8 c/ W0 i
8_____1A1C& n) s' w: E+ G6 C# y
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C0 P# ^7 I! X. b: B
f_____556F
g_____2B7F1 I+ L2 o: p! u9 Q8 r% a: N
h_____0F9C* f% K  w. R1 ?7 r) `6 e
i_____00FA
j_____5A50
k_____28502 _- j5 F7 ~! J1 @2 r
l_____3E7B: g2 \& C- N% a6 o2 {
m_____71C5' o- J- |) }& T% R$ U" `! Y) W
n_____1FC88 i* v! O+ f' c( x
o_____74C1
p_____5FB8% ]. H: d3 Q! Y4 q
q_____6085
r_____3AC4! V1 Z3 q+ o! G5 ~; e- C# l
s_____2F50
t_____36F8
u_____7010. {+ l' w, q/ l* ?+ y! T' P/ M& p  v
v_____0B42; S; s, [9 x4 Z4 C/ ?
w_____1C7A
x_____16F89 c( b5 J& P* l1 W4 R1 K1 j
y_____2EE70 O6 o; i- s2 C; N6 E: Q! Y: q
z_____5CF3" p8 b8 l3 w& l% f9 t2 s. i
!_____6233
@_____3A456 l% g( d, i3 V2 O
#_____2291
$_____5D5C8 i; p# `: m( X% p( r
%_____09B98 {) R! f4 d$ m: A! h9 s' y; L
^_____43EA% \" i4 _3 n2 k! e2 U
&_____62B9
*_____6301
(_____46599 W" y0 I: T# b& p; P; C1 d/ a
)_____5C82

希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系，他人勿扰
于智者同行，你会不同凡响；与高人为伍，你会登上巅峰

鱼儿无心

3.A.S.T士兵

Rank: 1

帖子: 22
积分: 22
威望: 22
金钱: 5
在线时间: 0 小时

2楼

发表于 2011-12-4 17:17 | 只看该作者

收藏了。。。。。。。。

TOP

返回列表

[原创文章] 关于国内某知名大学网站加密算法的研究

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]