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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm$ i' ]* l' B+ E2 X  @& Y
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456, C+ U  u! S+ F9 H0 R: }( _7 H7 j
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================+ _# k8 `+ O) }9 ]' K' [
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件7 S6 ^6 h" \- @; A

文件名RSA.ASP
===============================================% \$ v' q$ g9 a+ J% b% J( Y- c
<%
Class clsRSA ; t' C# ^: A3 s- n+ Q6 x; n% i
Public PrivateKey + A! `6 I% C5 Q3 t$ [/ ]
Public PublicKey
Public Modulus ' |2 t- q% C/ C$ l
Public Function Crypt(pLngMessage, pLngKey) ( _" f' P5 X) O; O7 f4 a( O
On Error Resume Next 9 G# a# Z; q7 }; p1 c9 g) T
Dim lLngMod & j2 H, Y8 J/ I  `/ l8 n
Dim lLngResult , W, B; ^6 T& |9 ~+ J6 W
Dim lLngIndex 3 @, |. y1 ~  h( @6 o
If pLngKey Mod 2 = 0 Then ( [0 S' ?; K/ s) G* `: |3 {3 N& o& o2 v
lLngResult = 1 * Q* z% {( Q' o+ N5 w9 T' G
For lLngIndex = 1 To pLngKey / 2 . j) R- o  a; \- m6 g  ^4 r
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 g& n9 I8 s. z, b( M  L# e' l
If Err Then Exit Function ' i6 x0 n! i0 d$ N* S: Z
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next ' D! @5 C4 c6 v- m
' Mod may error on key generation & Q9 j, x6 ~) C' {. i, f" N; N
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 0 Z, ?+ S9 }* k. G& W! Q* P
End If
Crypt = lLngResult & [: g4 o% z) v' B
End Function
7 g: \6 |4 @- V0 p! H
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 6 N' R1 I8 k" l: x" A+ {
Dim lLngMaxIndex 3 W) t: W- D( L) V% n! Y5 k
Dim lBytAscii
Dim lLngEncrypted * e: O% l% |7 g' E# ]
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex % l- o) @  d3 U8 a6 \2 b
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ' W, M3 G- D+ F
lLngEncrypted = Crypt(lBytAscii, PublicKey) 8 [* J  l: e9 I* q3 H
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next * A  v6 P2 W9 o7 H* r$ G5 Z: w
End Function 6 O" o* [+ L3 i! Y
Public Function Decode(ByVal pStrMessage) " J2 d2 r; y+ f) r3 U
Dim lBytAscii 2 S7 }" e4 [1 {( Y
Dim lLngIndex 9 F7 Y, e7 r9 |& J2 q7 @& Y. Y
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" 5 \4 O) z7 l8 \: R7 s
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 $ j" f0 D; R( ~  P
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 2 T0 ?) D- W$ o9 t1 e6 P8 _: k4 y0 ?
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) # |. Y1 x- o* }1 _' u6 p# r
End Function
Private Function HexToNumber(ByRef pStrHex) $ M$ h! r. F# o5 ]1 d
HexToNumber = CLng("&h" & pStrHex)
End Function 0 ^3 C- B% x. g/ H% W2 I
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD ; ^9 Z7 b' ?; V& q  d* U1 Q" X
Dim LngKeyN 3 m8 W0 @# U9 D
Dim StrMessage 5 \3 E5 T' D3 h
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" . q" j$ t  X7 A6 E
LngKeyN = "29893" ( w5 Q* h. @& _- d* i8 G
StrMessage = Message " M) j- m- f7 i( X# P! y, g1 M
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 7 Y# x% q* {2 D; ~% D
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 2 C0 f) q8 ^4 b3 ], {
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD " \+ b8 ?: k$ r4 ?. ?
Dim LngKeyN
Dim StrMessage & I& m. Z' d! Z9 q( l& @
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" , C/ ^* c) d5 Q0 ~4 u( G
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 5 F2 {, u' V  M) z8 Z
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>& M4 k  X, u2 {; i' j
===============================================
" ^5 K5 b% q8 |4 Q
还有一个用于测试这段代码的test.asp2 @5 ~5 B- {& a4 n8 a- M, F+ M3 b8 R% z
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) * g+ V3 X9 m2 O( r. T
Dim LngKeyE & o& K& y8 ~" b! \& T, b
Dim LngKeyD # W+ v1 @# ?7 `6 v$ I- e; V
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ' ?$ `: z( E' `, O, C
LngKeyE = "32823"
LngKeyD = "20643" + L/ t9 W) |" L; q
LngKeyN = "29893"
StrMessage = Message   |2 _+ K& h- C' q
Set ObjRSA = New clsRSA : _% S) ?3 c, p5 h
ObjRSA.PublicKey = LngKeyE 4 m" G) p/ |' Q% J
ObjRSA.Modulus = LngKeyN 4 H5 }) U# Y; k, [+ B: d* q( Y
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) 3 }& @- K& B( f9 ~7 ?, P; j
Dim LngKeyE 3 F8 v, \# N' ?% Y: a9 C* V# U2 O! D
Dim LngKeyD
Dim LngKeyN 0 t) i7 I, r+ V1 d$ R: [
Dim StrMessage
Dim ObjRSA / F- _$ P6 W; w# b
LngKeyE = "32823"
LngKeyD = "20643" - a, ]1 s+ Q+ j+ q9 B% c' E
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA * u+ |) r4 y4 B  H9 M
ObjRSA.PrivateKey =LngKeyD 7 n; \4 E% z5 a0 G7 s8 m
ObjRSA.Modulus=LngKeyN % s. [5 v8 C5 ?* l% n
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================) h6 {/ \+ L  L4 J
1_____6EBB4 S0 _: o" f; e$ M
2_____5C1F
3_____4D75- p; p$ k  X/ n" @3 i) J
4_____26CC  |7 {; Y; U; s, ^, v6 z9 T
5_____4F88
6_____3F4E
7_____0A9D: m0 o8 N' z. ^9 z5 h# w0 ^6 C
8_____1A1C8 Z. ]' a1 Z. ^8 W1 G, _
9_____6D20+ W# r7 K7 a! E# D0 y- t% h+ s" u9 n
0_____1089' ^  ^  @# R2 u  z3 f
a_____0F3E
b_____3159
c_____3517
d_____419C; G1 d8 f, o* S: T
e_____615C
f_____556F
g_____2B7F
h_____0F9C" S/ }/ o* i: d, Z  U7 ]8 ]
i_____00FA
j_____5A50
k_____28500 I! M) |1 d; t4 Y
l_____3E7B& r! h! B- f% f8 ?' t
m_____71C5
n_____1FC8
o_____74C10 M2 S8 x6 l# K4 K1 Q3 m3 y
p_____5FB8
q_____6085
r_____3AC4( Z* e& L2 F9 x' G8 t
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE73 T. x6 v' `: Q' w5 i8 ?
z_____5CF3, J# }$ N1 ?0 }" l) n
!_____6233
@_____3A459 t* H! O! |4 ?( ?- v- ^5 S
#_____2291) e8 |# m( G# W6 W! W
$_____5D5C1 n' F/ n& M4 X7 [; t  C" r
%_____09B9
^_____43EA
&_____62B9
*_____6301! u6 z5 ?; N9 A7 J
(_____4659
)_____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 分享给朋友]