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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm, N2 o, Q' u! w" Z8 Y2 e/ B

看不懂的直接绕过* W  O" K6 G9 z' ^
加密前为:hwy1234563 K. _8 [& I4 l: Q5 _
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法: x% s0 X5 P; i7 i
以下是RSA算法文件- s8 m( m6 K* ^) p/ b$ n

文件名RSA.ASP6 [+ t% d. z4 k! B2 c
===============================================+ l4 K" \+ Q: C0 |! b) K
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus 7 @  T8 o4 J' ]) G  D. Q
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next # N7 n; _4 d- ^
Else 6 y9 K+ K( z, q- U9 r9 H
lLngResult = pLngMessage + S7 q+ i9 d/ F' K1 X
For lLngIndex = 1 To pLngKey / 2 0 F6 I1 ], c& a4 W$ @6 n9 C
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next * b  n1 e) d# j1 U( [. m
' Mod may error on key generation ) g  {- p( L9 Z$ q/ O# Q/ y
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 2 F& j1 Y4 ^8 T
End If
Crypt = lLngResult   L( [: p$ |1 z. v! d8 X" I  _( R
End Function
! [/ t& w1 P) a$ p9 M& X) e) S' G
Public Function Encode(ByVal pStrMessage) 5 I0 h* f, C5 l5 F2 z* T6 z, S1 [
Dim lLngIndex , c6 T; p% z$ ~' h- ?) T/ U5 L8 s
Dim lLngMaxIndex
Dim lBytAscii " U& w( h2 F2 N, ?1 t+ x
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 5 W2 t% G* y# y- |
For lLngIndex = 1 To lLngMaxIndex 4 n# H. a, P! o, L* q" M# W
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 5 ?( P! t( c. s( h0 V
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 1 W" y9 N: }4 @) D9 p9 S+ {
End Function & |8 |  G5 T/ ^( o
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex   `. g1 e  A9 U$ T
Dim lLngMaxIndex
Dim lLngEncryptedData 7 t3 f2 @7 g4 X7 B0 t
Decode = "" ! t) g( L4 V! m! w
lLngMaxIndex = Len(pStrMessage) ) `7 `5 K. F4 u0 k6 c0 q
For lLngIndex = 1 To lLngMaxIndex Step 4 " r- `# Q; ^  a" ^3 ]8 z: S' ~4 N/ S4 A
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 2 U  Q/ r; `+ |  Y: U
Decode = Decode & Chr(lBytAscii) 7 X; T+ ~' V9 @8 H
Next " \: H& g4 N; J9 Q3 r5 X
End Function 8 S, G% x# n2 \9 W7 i) w) u+ f
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 5 ?: v+ ?  l! r; F; P& p
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function 9 w6 z( }  Y  z8 v7 B
Private Function HexToNumber(ByRef pStrHex) ( O' }/ r. ^$ b, f$ q: E9 ^8 L
HexToNumber = CLng("&h" & pStrHex) ! B& B2 A, ^, ^, D; v" }! w( [
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE 1 R% ?% T, @4 ]# z: k8 k
Dim LngKeyD
Dim LngKeyN % b4 u# O4 b: e& M) w
Dim StrMessage ( p. L, a9 S" \2 c
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ) d# H6 Y0 m& G8 Z1 a8 x
StrMessage = Message 7 G4 ~& A0 q/ @
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing   b* e' A& H4 }; f" V5 e& n& o  W
end function0 q% P( s8 ~/ {
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 3 [# B7 p: V  g' ]7 v. O5 Y# i6 U
Dim StrMessage . h6 ]: R/ B. U  p
Dim ObjRSA 5 K- B) v+ Z4 Y& L; ?
LngKeyE = "32823" " L( h3 l) q! L
LngKeyD = "20643"
LngKeyN = "29893" ( Z! A% ~" v% n  Y" V+ w- G
StrMessage = Message " z% S1 a8 ]0 r+ x9 B
Set ObjRSA = New clsRSA 4 V% K4 O, G' C. @2 U, c
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>! a6 p, s9 F/ x  z. k$ v) J
===============================================

还有一个用于测试这段代码的test.asp+ ?* U& t: ]# M9 `/ ^
有兴趣的自己搭建个IIS测试下3 ~2 U7 }  V% l( i( A. e. [

<%
function Encryptstr(Message) ) X+ x: c7 s: D9 n
Dim LngKeyE 3 \2 ]. w2 `: c6 J) o
Dim LngKeyD
Dim LngKeyN ; }+ b8 f( |8 {( X
Dim StrMessage
Dim ObjRSA ' w( [+ {# v0 M2 C0 a' u- p
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 3 Y7 P$ }, V5 E1 k  ^
StrMessage = Message / F9 k  @) E4 a
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * y' p) j/ _$ Y6 u& D
ObjRSA.Modulus = LngKeyN 7 v2 s, k# i, `* N, M8 d4 G
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 9 X! ~3 i/ M3 u) e
end function & B) ?. d) P+ ^- m
function decryptstr(Message) 4 V+ N# X3 d+ N# e
Dim LngKeyE ! I- }8 [; Y' w( Z! j- j" X
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 8 H  U  n) ^7 o/ C! S/ i
LngKeyN = "29893" / A- C$ U3 e9 d. y
StrMessage = Message 5 u& d& u% ?. T: z6 |6 U5 I
Set ObjRSA = New clsRSA 6 s7 ]9 l! v9 h) d$ }& q
ObjRSA.PrivateKey =LngKeyD " y# s! G) K$ j" c( K; V
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ( Z# `. T1 N8 x0 b" g2 Y
Set ObjRSA = Nothing + x! V# f7 t' C; m# t% ~
end function
dim last,first
first="!@#$%^&*()" ; j7 _& \9 f5 E& L: H3 R
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 4 d' _: m: v% Z
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================& o5 T% P) o: G3 X1 U) R
1_____6EBB- V" M+ y6 Y' ?6 [4 @
2_____5C1F" e7 x( E" p3 l0 W+ ^
3_____4D75
4_____26CC, \4 v& m4 m& o$ i: u1 k( M9 g
5_____4F883 h7 i" W2 ?+ z9 C( l: R
6_____3F4E: X0 e7 F, ^4 x9 D- |& D, c
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159' j8 Q  m0 u& t
c_____3517
d_____419C' b+ _6 x% P0 ^0 W5 Q
e_____615C
f_____556F
g_____2B7F: R7 J% G$ m* }% u4 D
h_____0F9C4 b) a8 D, s0 ^, M, z
i_____00FA
j_____5A50
k_____2850/ J% O+ ]: U, k6 v# p
l_____3E7B
m_____71C5
n_____1FC8; l& l6 E# W3 B. J; @- j
o_____74C18 C0 M1 I  }6 y) s% [- k6 x
p_____5FB8! z7 X  k# [# e$ b
q_____60850 \% z2 {, H. n4 {
r_____3AC4# ]; C: J" o0 b8 W# Z* R
s_____2F50; m+ W: p3 x' N+ |
t_____36F8$ N, |" {6 W6 {! ]+ _
u_____7010! \/ S" s; a4 l$ h2 \
v_____0B42
w_____1C7A
x_____16F8+ `& e4 O: e, d: X
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____2291+ C  q+ H0 g' h2 w+ E3 y1 V
$_____5D5C+ b# \5 E2 X$ j8 j! q
%_____09B9
^_____43EA
&_____62B9+ z) J7 b: w- N! T
*_____63011 P4 o5 O& F/ q4 o" M# i: p8 O
(_____4659
)_____5C82

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

返回列表

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

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

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