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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy1234560 |& A4 O7 C2 [8 D; c" c# h1 m6 o
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================% ?; {7 ~! u) G% P4 K' ^6 u& o! L
上面是当时自己校内的心情。现在已经解破出来了，分享给大家8 O8 j3 Z, R! j' Y' x, k
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
3 C" e7 W3 ~, s3 P
文件名RSA.ASP# m2 J/ z1 S! j0 `9 U2 i
===============================================5 a7 a. m% Y5 @$ w+ M' P
<%
Class clsRSA
Public PrivateKey
Public PublicKey $ t8 ?! l3 P6 a1 E  @
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult ' G; D4 C: Q+ h5 Y3 ?
Dim lLngIndex % m$ _* u1 r6 @
If pLngKey Mod 2 = 0 Then " B, a! y# q/ m1 z- F# R4 R. u
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 & Z% n2 q2 H. T* h( o& y
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus . L& U8 x# k6 i* _
If Err Then Exit Function
Next 6 e* H1 z' R9 w8 R1 k
Else
lLngResult = pLngMessage # T: `' h9 q/ B! ]
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus   I+ t/ O4 A) s6 T- G
On Error Resume Next - D: j! F4 C5 |- K& Q- y
' Mod may error on key generation * @9 f1 ?7 p4 m4 E4 G
lLngResult = (lLngMod * lLngResult) Mod Modulus # C; U0 s% Y7 j7 K& s3 j  @, d
If Err Then Exit Function - o6 a& D" u( v. }0 G5 `
Next + z# i: s! e) Q
End If
Crypt = lLngResult
End Function1 ?( O% |6 \; U! ]8 @
  G6 a7 T9 L; K
Public Function Encode(ByVal pStrMessage) % y% s: V+ ~  F0 f" {
Dim lLngIndex 0 Q+ s" [* V+ B& x. R; i" k8 u) S
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex * u- d/ n, q9 Y- c
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 Q  N0 r2 S( [( }
lLngEncrypted = Crypt(lBytAscii, PublicKey) 0 R% v% c+ v2 q' N0 u& j
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ! J$ v  p! s) a  b! U# f4 d" @
End Function
Public Function Decode(ByVal pStrMessage) ; o" ]. p8 D. Y, |) [! J* O; E
Dim lBytAscii
Dim lLngIndex $ [( m0 }0 y/ ?0 S+ _4 b& Q
Dim lLngMaxIndex
Dim lLngEncryptedData - N9 x; k/ v+ ^5 S; O
Decode = ""
lLngMaxIndex = Len(pStrMessage) . J' f2 Z: j3 P
For lLngIndex = 1 To lLngMaxIndex Step 4 ( w! I$ v, a1 y$ N: L% \
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) * f2 O- b) o9 K& z: I
Decode = Decode & Chr(lBytAscii)
Next
End Function & P; c$ t5 I0 n
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) * ^: C* \4 ~& W
HexToNumber = CLng("&h" & pStrHex) 1 q2 Z6 J% T, A5 F; `
End Function
End Class
function Encryptstr(Message) * [$ p: @. g/ e7 y, I. j6 |
Dim LngKeyE 4 ?' ]1 k$ K2 g# m  y
Dim LngKeyD 8 y6 a: H: ^8 G0 }+ ^5 c  O) o
Dim LngKeyN
Dim StrMessage ! e  b$ ?- p0 R, p, \
Dim ObjRSA $ X3 w% m" l9 j  ^2 Z7 H& O7 i: h2 \
LngKeyE = "32823"
LngKeyD = "20643" " Z/ C" S8 f- ?- @. C, t
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 2 `) H4 ]) ]/ D& l
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN , L( ^" |7 {: m4 W
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing : q! d# A( b9 Z. G! |! u
end function- H  I9 E% m9 A+ N, r6 B& Z
Function Decryptstr(Message)
Dim LngKeyE 1 d& j# N& L5 z
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" $ \0 K8 p7 q: Q" `% W8 T
LngKeyD = "20643" & S0 a$ D( @$ K. y: }6 V
LngKeyN = "29893"
StrMessage = Message " F1 x4 E( H$ T6 W
Set ObjRSA = New clsRSA : r) I6 N2 D5 _1 a. l
ObjRSA.PrivateKey =LngKeyD , u9 H1 O, o8 q" T+ _
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing % w3 g- E4 N' B+ c3 K& m% r
end function
%>0 s& S; _0 K' W7 t* i% a. p. a1 n  O
===============================================9 _% }: }) `& m% |3 B- F- {
2 ~3 s) z, }/ g
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%$ V* J$ z# W/ G, c% N' R' q
function Encryptstr(Message) * `8 {8 j: H( |* P; _& n1 Q
Dim LngKeyE " V1 {' R1 M) i- d; [
Dim LngKeyD
Dim LngKeyN 1 z; r3 j: K: P2 F* g. ]9 A
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" + v: C) q; l' K. T: m
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 0 g3 Y' U0 C* p
ObjRSA.PublicKey = LngKeyE : ]* h6 I1 d+ b+ b8 D9 C' P
ObjRSA.Modulus = LngKeyN " B3 p% m1 c3 @& e5 L, d' J
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing   t$ g& j. b- o
end function   m4 [; ?1 p3 |8 z% h, ]7 R
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ) E2 H& x4 k! u. ]; M" [+ P. q3 v: l
Dim ObjRSA & ?9 j: f  U6 ?
LngKeyE = "32823" ! h8 C7 |6 c! n  @$ K1 M
LngKeyD = "20643" 1 {, Y4 r& d9 @" ^' t0 [6 t; m
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA & k$ N1 ~) U& K  F( J
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) $ [/ L* ~# c4 l( u  v
Set ObjRSA = Nothing
end function 6 Z  d3 B  L# g2 l) ]. {, F9 u' h
dim last,first
first="!@#$%^&*()" - L5 D' E1 F* m  c7 r  X4 X- \
Response.Write "加密前为:"&first
last=Encryptstr(first) 1 F, `( C( e$ Z
Response.Write "加密后为"&last " p# U; o5 D4 `+ F0 H# x  d9 ]/ H
Response.Write "解密后为" &decryptstr(last) $ @; c5 {; }$ f( z: u+ K
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB2 U( H" s2 j( h0 O6 g; d$ k
2_____5C1F
3_____4D75* t3 h/ j/ v: z$ R" J4 A$ r
4_____26CC: s: u7 S7 Z& Z6 G. d* A" }2 f: z
5_____4F88
6_____3F4E  r, O3 M8 y* d) E0 Q) y( u" M
7_____0A9D7 |: ]& G* L5 K
8_____1A1C
9_____6D20
0_____10890 b- z9 |& @8 V
a_____0F3E
b_____31595 t: p8 ^/ H2 k, T6 O4 t
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C) F% Q7 y3 C) d
i_____00FA4 ~/ {& ~6 ]0 {2 f. _
j_____5A50. T1 ?2 M! p7 x8 E# E0 S' ~; P
k_____2850
l_____3E7B. s0 J7 u0 |$ n# p
m_____71C5
n_____1FC8
o_____74C1/ H  E' ~4 J% d+ h+ w8 V( ?
p_____5FB80 C0 _: Z" }7 v7 I/ E
q_____6085
r_____3AC4
s_____2F50
t_____36F8( n# g. f$ Y9 ~4 w) J5 `/ h
u_____7010
v_____0B42
w_____1C7A' C: t4 w, R, Q) d, U' M/ i
x_____16F8/ _) R& g1 }! z' l
y_____2EE70 C* b6 g7 s, |# Q* V* U
z_____5CF3; x7 y, M& o' [, x# C' U
!_____6233& y1 y' n( p. |% p& f
@_____3A456 M6 C* I5 M* R! {1 f% Q7 G
#_____2291
$_____5D5C
%_____09B9
^_____43EA1 i3 {7 b/ b9 P( D+ ?
&_____62B9( @& y  q. G& s9 ^
*_____6301( g2 a; u5 L# m: }; _
(_____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 分享给朋友]