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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
/ x  u- m8 V- G3 _8 `
看不懂的直接绕过" g& p$ y) L5 H- E6 e9 k7 S7 |: w0 U
加密前为:hwy1234565 q7 t' j) @' S& D1 @8 a
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E7 f; w* I, O) u1 _1 E9 @
# F, ?5 e8 A$ h: z, R4 B' {
============================================9 s# Z. B! Q* Q, x( J, ^
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件3 }' S5 s% f" y7 g3 }
* E( ~  E/ C2 ~5 y- F% @
文件名RSA.ASP( a3 y# T; k8 X9 i! t, ~$ p
===============================================
<%
Class clsRSA
Public PrivateKey
Public PublicKey # S. ]+ Y8 O9 q; l6 }: G
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 8 G& @/ G! R2 i$ y
Dim lLngMod
Dim lLngResult
Dim lLngIndex " \9 s- d2 Q6 G. n! \- B: [
If pLngKey Mod 2 = 0 Then / O+ E0 c2 Z& i
lLngResult = 1 $ ~, p6 e: L0 N& T' }0 V7 r
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation # b+ j# M( B9 R" M
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 X- d: U/ V. [' [/ \/ T
If Err Then Exit Function # ]; C; Y; `+ |, A# a" W; f
Next / T  H& S  B/ V* P5 F8 y! s+ f! ]
Else 6 I' X$ T$ i1 U" s- X7 z6 l& r! `# c
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 ) c  ?0 {/ Y% v* Z* d/ t, t4 k; @
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 8 A% E5 b5 X8 Y$ f: Q/ f
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If 7 E  W6 s# n) ^9 E) z
Crypt = lLngResult ) i1 g# R4 z( p8 `6 t9 Q6 w' j# Q) y
End Function, ~1 y0 s" S* U: U
  o! H! Q$ c: i1 ?# ~# R
Public Function Encode(ByVal pStrMessage) * X, g0 G3 M6 E: R* s5 M* q
Dim lLngIndex % H' f+ W9 d& q! W9 A
Dim lLngMaxIndex
Dim lBytAscii 8 |. f7 |/ j. t# }% x
Dim lLngEncrypted ; P' y& H' c7 Y: P* J5 A0 N
lLngMaxIndex = Len(pStrMessage) 8 K, ]- t" m* C) y) D/ w2 S/ w
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex # h2 q; o& @5 V' i
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) * d+ E7 |- G0 R
lLngEncrypted = Crypt(lBytAscii, PublicKey) , u$ ?& u, c3 a5 r' M0 F5 _
Encode = Encode & NumberToHex(lLngEncrypted, 4) * E( m+ j9 `5 E) T. L
Next
End Function ' @7 P0 `. C0 c' n+ B" \' p
Public Function Decode(ByVal pStrMessage) + i, V9 T4 Z" q0 ?1 r4 f
Dim lBytAscii + d& J+ K. c" m1 }, g
Dim lLngIndex
Dim lLngMaxIndex 0 V9 Y* U2 c0 |& q4 D' b
Dim lLngEncryptedData
Decode = "" ! V" B+ x" o% _5 [! Q
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 : Y3 m- @4 O6 o1 H/ I% c
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) + R# R" c2 m- j
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 2 g+ B2 j/ @( R
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) ( D: Z% m8 N4 T# c# {0 L
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" - C7 s' o) @; v2 L- z
LngKeyD = "20643" 8 W6 D4 b3 B: Z. H8 m  W
LngKeyN = "29893" " ^9 E/ j2 t+ [  T. L. G% s, y( R
StrMessage = Message
Set ObjRSA = New clsRSA 0 ]" D% {; Y2 s+ u' c0 o
ObjRSA.PublicKey = LngKeyE % G& n6 v( t/ l
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function; m! V& Y# ~5 l7 c$ \: l
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN % r0 O/ l( q! d* D6 e8 g8 Z; O) f
Dim StrMessage 8 t% N1 w% B5 L) u' z- `" f; w- H
Dim ObjRSA
LngKeyE = "32823" - a4 i- a: y6 Z/ S9 |; L; a. a# G/ c
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 5 B  O! H/ h& R0 \! d8 f
Set ObjRSA = New clsRSA 4 N2 N5 `  j( v& b
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 4 `- z% Y+ E5 d
end function
%>$ b7 O4 w* d( y* q0 B
===============================================9 Z8 _3 O8 f7 S% n  Z

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

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD % |3 g+ H" p/ r" E' ~
Dim LngKeyN 9 b# [" {/ L% S0 Z7 g& F
Dim StrMessage
Dim ObjRSA ! q- m7 d& _/ G
LngKeyE = "32823" 0 Q0 N1 U; z% f% b! e4 @8 M( s
LngKeyD = "20643"
LngKeyN = "29893" 3 C; K, j4 |0 c1 D/ f
StrMessage = Message
Set ObjRSA = New clsRSA : k$ G$ S; C; M  q7 G3 q9 J
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ) ^* u+ |& Z1 h4 A
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 1 G6 }) J3 [1 |% S9 A# N  j$ t# ?
end function
function decryptstr(Message) & v( a3 b9 \; a) a" x- R( O
Dim LngKeyE
Dim LngKeyD 2 ~- P0 g+ f/ U: x, d
Dim LngKeyN
Dim StrMessage 9 @; Q. [+ ^3 E& M
Dim ObjRSA : L3 n/ u: X7 X% F! T- w0 ]
LngKeyE = "32823" 9 y  ]1 X8 ^  O. f! e
LngKeyD = "20643" / c3 w$ r9 v' g0 Y: z0 L4 A1 `6 }9 s6 X
LngKeyN = "29893" : q& |& u! s: Y
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 9 e9 J, g$ @  U* e
ObjRSA.Modulus=LngKeyN - f' X; {+ y. h; E
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function ' O  @" k5 t. U7 A
dim last,first
first="!@#$%^&*()" ; p' b7 T/ N( h( b; {0 S
Response.Write "加密前为:"&first
last=Encryptstr(first) 6 B, H$ U0 r4 }! J! Y
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了+ K! Y+ H8 t( ~
===================字符集================7 h# w! p: C0 D* o1 y- ]
1_____6EBB
2_____5C1F8 J# o0 e$ R& |7 f
3_____4D75
4_____26CC2 M. U& P5 n. \0 R# P# O
5_____4F88: [4 I* z8 ~* X3 ?4 ]
6_____3F4E- d1 R9 O! f$ i7 k, k
7_____0A9D
8_____1A1C- H8 Q. Y8 ^# c) V
9_____6D20. N" L3 s# H- h
0_____1089" J  r  K: V  G% D: b) Y
a_____0F3E$ _- x, ]/ G0 W( T. N) m/ A
b_____3159
c_____3517
d_____419C* p# }/ W1 Q/ P4 Q& S( B8 {
e_____615C1 f6 D0 q4 l  M( c
f_____556F
g_____2B7F2 I% w' C2 q5 L, u
h_____0F9C
i_____00FA& m/ |: o7 ?8 p! {8 }
j_____5A50- c  f  t( u+ z6 A
k_____2850) h3 f8 `1 {9 \2 m& P
l_____3E7B
m_____71C58 \/ M" @2 m7 y
n_____1FC8
o_____74C1% R1 x& g& r1 W& [
p_____5FB8: Y6 S5 c: P% _' N
q_____60856 @- |- d3 O& ~% X' H8 v3 |# J
r_____3AC4
s_____2F50
t_____36F8' Z! A1 o; h# z- S0 Z3 @- N
u_____7010
v_____0B42
w_____1C7A* h* n7 W8 U/ o9 j+ c* k
x_____16F8; }( z4 Y" n; z0 F8 e) I9 s
y_____2EE7( T" b- S* u9 Z: g
z_____5CF3
!_____62331 ~! C4 `3 W3 d- x. r
@_____3A45
#_____22911 Q7 r: |0 C- a* R3 Z
$_____5D5C
%_____09B9
^_____43EA! D* {! v7 L( y1 X
&_____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 分享给朋友]