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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm4 F7 d* z1 d6 J) J
原始出处：http://www.3ast.com.cm

看不懂的直接绕过( ~1 ]5 g( ^- u" x9 p  v
加密前为:hwy123456- E3 k- ?0 j# ~1 w8 K1 c
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E: ^2 J: X: }6 R8 }
3 G2 a# f* H$ ^0 h
============================================/ o2 o/ X+ {( V2 A
上面是当时自己校内的心情。现在已经解破出来了，分享给大家9 ~  {4 K* c- H0 }: Z: T
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法: {* A$ E* k5 R' i
以下是RSA算法文件
9 Q/ i# t4 t+ t$ A* u% C/ I1 r
文件名RSA.ASP
===============================================
<%
Class clsRSA 5 w6 c% v. \- e& P2 h
Public PrivateKey
Public PublicKey 3 b: w% X  o3 Z- h( ?
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 * e. @0 ^5 l+ j, U0 A0 N
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 9 [! ?: _3 I+ v" |
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 + O4 z5 |5 j3 ]4 }' @4 J% u# ~
lLngMod = (pLngMessage ^ 2) Mod Modulus ; z+ X! W1 ?4 m/ Y. C# q
On Error Resume Next % Z4 C% e, q7 _" H$ q$ G0 n
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus - h# j9 J8 T7 a' P4 @
If Err Then Exit Function + v/ e# w. ~0 K6 y7 Z0 |5 t
Next " h6 _8 n$ e/ B& @; S6 Q2 S8 S
End If . D7 |& M1 p6 L# q# Z% I
Crypt = lLngResult
End Function4 x7 Y2 S" [1 h& T: k

Public Function Encode(ByVal pStrMessage) ( G- P, |9 t+ ~+ V  R
Dim lLngIndex / M+ |, y* v" g8 y
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 4 O7 ^1 ?# n$ m) |1 \0 S( K
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) / p1 Z+ h3 w! k* Z6 M) m' c
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next   }$ b5 X0 ^( v0 ^1 K) t. ?, B
End Function
Public Function Decode(ByVal pStrMessage) & L, g3 {7 Q8 K" u+ t
Dim lBytAscii
Dim lLngIndex / h) L3 |; `/ k5 S! A; X
Dim lLngMaxIndex
Dim lLngEncryptedData 7 W3 F7 e1 i2 H# p8 _! R
Decode = "" # l/ T' I8 o3 T" o
lLngMaxIndex = Len(pStrMessage) 7 i& u2 g8 V% W  P- M: ]# Y4 ]
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 4 n/ Y% j& e7 b5 `' B0 s
Next 3 G0 N( {% y! N
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 0 }1 u3 ~) q% s( A6 Y! e
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) $ n% h0 c9 Z+ i- |) d
End Function
Private Function HexToNumber(ByRef pStrHex) 3 N/ u! O* M3 b9 O5 Y6 m
HexToNumber = CLng("&h" & pStrHex) - n  U$ J6 {/ f5 m8 o# c, F
End Function " L. F) r; N( X2 K) J$ [8 P% h
End Class
function Encryptstr(Message) ! u: A' o2 ?  C5 m! R! i) _& Y! M
Dim LngKeyE 5 d' }" U$ p4 R# z( |9 N, B
Dim LngKeyD
Dim LngKeyN
Dim StrMessage " G% l) @, E/ J7 T+ f, C' m
Dim ObjRSA ; g4 U% Y; p& V/ }
LngKeyE = "32823" 3 B7 b  C; c( `# n' w2 d! f1 j$ t
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message : Q. }# R1 J3 H3 r
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN " s' Y! E" p. @! Z+ N9 g
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing & l& F) r3 X( M. H, u
end function- M2 _6 Y2 ~5 Z" k6 J" S
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 4 Y" x3 E4 @1 P5 @. _
Dim LngKeyN " h: J3 _7 \+ {4 u/ t: h
Dim StrMessage
Dim ObjRSA + Q0 u3 z" H% V
LngKeyE = "32823" . |& H/ f- K* n5 U
LngKeyD = "20643" 9 I' H7 q; I8 z: d
LngKeyN = "29893"   J8 B; H' Q  G) `- Q: @
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD   `3 C  O( v* e1 n1 v
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 2 }- P& ~# Z' c
Set ObjRSA = Nothing ) Q8 x: x/ v$ g8 Q- T$ \
end function
%>
===============================================: N! C& J% I7 I3 u" G
7 f% L, a) @  y
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 " U3 A* H4 J" B; c6 j3 F
<%' a9 f5 ?: F* }  N7 H
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN $ r, W+ M' J5 M0 |, Q3 |) B
Dim StrMessage 8 _/ F2 h, Y" g) x! i0 T
Dim ObjRSA 8 ]2 q! D  X7 U! ]6 p
LngKeyE = "32823" ) {, `! |; S8 {1 m6 W7 N
LngKeyD = "20643"   O. I# w4 [! ]) e" N
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 4 o, s( g, s* Y3 ?1 J0 ~( Y! V
Encryptstr = ObjRSA.Encode(StrMessage) : V* ^( T! J8 M
Set ObjRSA = Nothing 0 l: A: J' d/ ]4 \0 q+ X
end function
function decryptstr(Message) ) @& O. n+ r  P1 b! l! i
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"   N' M: a5 L# N/ q% g4 }% P
LngKeyD = "20643" ! \9 Y$ a% ~& f
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ) \; N! T, f8 a; j" j) a) `3 k# U
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ; h( d+ n% S1 G& Q+ E
end function
dim last,first , F2 Z' O- Z1 l' [- J6 @: I- r
first="!@#$%^&*()"
Response.Write "加密前为:"&first " T0 T+ m$ P! ?
last=Encryptstr(first) . G& W# t, U8 b2 M% O; B! h
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 0 X  g4 V. V4 {/ V( l# \
%> ==============================================
剩下的就是字符的对照表了! X2 m7 v. }4 a& ], O( w
===================字符集================+ j9 o! w: Z' m. }6 r
1_____6EBB8 C- R  j& h4 w# [/ m9 L' h5 e2 ~
2_____5C1F) Z" U* ~1 @- h! ~3 R% [5 V
3_____4D75
4_____26CC
5_____4F880 \5 E2 G- W+ ~( t- o2 k: g
6_____3F4E
7_____0A9D; \8 ^6 C- [" _; ]  {, t' S% l
8_____1A1C
9_____6D20  L3 m) z5 B: O
0_____1089
a_____0F3E- Y; ]* h9 Z& X* x8 B- @
b_____3159, u& }& J- x/ G1 ~) V
c_____3517% o, ~+ e6 I. L+ c+ K1 M' P' q
d_____419C
e_____615C
f_____556F6 D/ c3 Z: s3 M% ~6 B& {; b/ j
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B, T# k4 M0 E6 f
m_____71C5% i" m, r! v. z
n_____1FC8
o_____74C1- T% }- T- \* Z+ z0 t' k* K
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8' S  b& B0 [! U4 @% i  X* R, t
u_____7010
v_____0B429 b, z% v" R( X8 }# C2 O4 `$ Q
w_____1C7A
x_____16F8
y_____2EE74 O/ m# u- k2 D  c4 }1 i$ s
z_____5CF38 j% I4 y8 g0 D; e* e" F6 ^! Y" m5 g
!_____62334 C- F2 E3 j1 E5 d
@_____3A45
#_____2291  y6 R9 f8 ]+ @9 U$ b3 H6 o
$_____5D5C
%_____09B9
^_____43EA9 H3 j2 C2 z! v/ X: V
&_____62B9
*_____6301# L; M! s+ Y9 i, p- G' i% s3 ~
(_____4659# G1 `- [- t$ Q! l0 y4 j/ o6 S
)_____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 分享给朋友]