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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm* h2 B$ F0 u  J7 Y, s. f* Z6 I

看不懂的直接绕过
加密前为:hwy123456/ L! a$ H' ]4 c8 _
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
2 }$ r' R$ f% H5 f: q
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家3 H* y8 w, x4 k, v5 A5 z7 W$ ^
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法$ \) E: j0 [, O
以下是RSA算法文件& o3 D; X- f: U

文件名RSA.ASP
===============================================' Z) h4 t3 k3 q& t
<% ( t( L( s6 `! X, `9 l* b: H" s
Class clsRSA
Public PrivateKey
Public PublicKey . M+ Q+ t; u; e( k9 f  Y3 L' z% a. K5 J
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod * a1 V+ O9 Q% V* e6 _0 @; i
Dim lLngResult
Dim lLngIndex 8 j8 |( m& k2 h" Q7 U
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 0 p, u0 O& B6 O# e, K, T
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function % ]9 A+ ]* k' v) A! z) E
Next
Else
lLngResult = pLngMessage ; Y5 O: U7 J4 G3 a% B
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus : Q2 A$ T& b6 }6 R+ I& b
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ' [2 ^1 e( h8 i/ {4 l0 |- U! Z
Next & T" ?( s5 k# R! `. Q
End If 4 |% p8 b6 W8 q2 q8 ], l
Crypt = lLngResult 9 ]5 M, O8 W" C; T6 B6 _. j- \/ a  q
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) . I& N, F: J3 M, N* p2 W
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) : E' b7 a! x( Z( T3 x
lLngEncrypted = Crypt(lBytAscii, PublicKey) 5 q+ n9 T: j) j  J# W, t% Q
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next   w6 |6 ~% O. p- a! f( t
End Function ( R6 u" @) Z& @
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex % o! j2 L2 B1 h7 w, v& l+ k
Dim lLngMaxIndex 4 y6 I3 K+ b- s6 m2 a
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 3 `. n9 m# x2 ]; @. P5 K: P$ r6 c
For lLngIndex = 1 To lLngMaxIndex Step 4   F# W+ e2 z1 w% U) b9 m
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 8 U. U. H. h& r4 Q
Decode = Decode & Chr(lBytAscii) ' d8 y; Z. Z' n  n: W  m
Next
End Function 9 T2 u% g& k# h: ?# `# B
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) # i9 x* a. e/ S5 O! I
End Function ' ^3 ~5 a* i# A
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class # J$ E; {* P) L$ K
function Encryptstr(Message) : k; a4 L, C) c( C) S# P" P
Dim LngKeyE 9 p' w6 b# r# D6 u, X. L
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ) ?% U( G0 g7 ?* p
LngKeyE = "32823"
LngKeyD = "20643" 1 w; y* V3 Q5 N8 D
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA & P- o/ `8 S- W. G0 D& d# ?
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function7 D* y9 {0 l' K( j$ K% I6 F4 J
Function Decryptstr(Message) $ g* n6 s6 g- D+ U
Dim LngKeyE 1 i; v8 N! e2 q5 Q0 H
Dim LngKeyD
Dim LngKeyN 0 V4 a; H0 n0 \3 M6 m) d6 M
Dim StrMessage 0 C5 x$ E' _5 z: }1 V* c
Dim ObjRSA
LngKeyE = "32823" 7 t$ t; f/ K+ |3 s1 y3 G
LngKeyD = "20643" 0 |( `- D* T, i; E
LngKeyN = "29893"
StrMessage = Message % w4 d3 b* h6 C9 w
Set ObjRSA = New clsRSA ) m" c$ X( S( h" y
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 8 s! c: ]& {0 [2 [; c* x% w3 E6 ]$ k
Set ObjRSA = Nothing   A7 U1 q  r: x( C* p" @- }
end function ) V9 P2 R2 ^5 Z' Q* N* w- k
%>
===============================================

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

<%, }% \- |6 J7 Z' I/ G8 t- M6 J6 W
function Encryptstr(Message) . F. F4 Y) G  V# W$ G) P
Dim LngKeyE 9 S3 p" ]2 E0 h- m. B
Dim LngKeyD 9 f8 Q2 Z, M$ d( V  c' {
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE / G9 @  E! P, T! |3 {; e
ObjRSA.Modulus = LngKeyN $ B& G. C% P) H/ P' A/ b( h
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 4 ~7 w1 b/ k6 O3 f& F4 A0 I
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 7 H5 s% @  H3 ~- V: D. Y) F9 {
Dim ObjRSA / q" c1 a! n6 v$ H6 F# }
LngKeyE = "32823" , V0 Q2 d$ @# s) M3 h( b) G
LngKeyD = "20643" 4 J0 l  l5 h! |0 f2 `6 ^1 I6 s
LngKeyN = "29893"
StrMessage = Message * \/ _( _! b) ?+ P/ Y# K( j
Set ObjRSA = New clsRSA " B9 D6 H1 R! R
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 0 f1 e+ c# X2 |  Q3 U' @: V/ q, ~
decryptstr=ObjRSA.Decode(StrMessage) * O* f9 w: y0 v
Set ObjRSA = Nothing - ^0 o# }2 u6 U9 C, Z0 o/ j9 i
end function , s+ k/ z/ X' G1 M
dim last,first , f8 R- X5 W* ~+ m& t# x; t
first="!@#$%^&*()"
Response.Write "加密前为:"&first $ d6 V0 }9 y8 Y; ^! h
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) $ y% j5 m! R7 L* P/ n
%> ==============================================
剩下的就是字符的对照表了# I$ x' f6 r4 Q0 ?: u8 x& v
===================字符集================
1_____6EBB
2_____5C1F; _1 O2 }$ L  ]7 I
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D1 }7 G8 e" |% M4 H
8_____1A1C1 N9 e0 T+ t$ V+ f
9_____6D20
0_____10893 T6 k9 J6 L, o; G" k" e% T! h
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F5 X3 r2 @8 B. N! U  V
h_____0F9C5 `" {$ X0 n" w2 s' w3 p
i_____00FA% s8 ?4 S) G+ s% q7 A, \" ?
j_____5A503 }8 \/ x4 J. H$ a( t
k_____2850
l_____3E7B
m_____71C54 c" C' |2 E- m
n_____1FC8
o_____74C1
p_____5FB8( L+ x% F+ j# x
q_____60852 d$ t* I, m* n7 A
r_____3AC4
s_____2F50
t_____36F8% f2 z& ?) k4 f7 g2 Z
u_____70100 E3 Q3 r6 ?& Y0 d, Z$ R3 O" e
v_____0B42, m( Y3 _% \. f/ W
w_____1C7A+ P9 D8 F; K  ^0 T& {8 k+ Y& {
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____22917 Q8 `. O& \4 V' d% ]/ X$ D' ]
$_____5D5C( Y4 E5 f; S% f6 t$ V6 E" N1 U: W
%_____09B9
^_____43EA4 V! }9 N  [0 r9 K' A: _1 s7 u
&_____62B9
*_____6301
(_____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 分享给朋友]