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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
  R1 n6 ^( w% C' k9 ]  O, J
看不懂的直接绕过$ Y1 b3 g7 i4 @) S4 _
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
) p2 a2 E/ l/ k6 T
============================================9 C6 ]" q0 t3 \6 V3 _# D
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件# R! d$ F$ A: I. g) N5 V

文件名RSA.ASP5 \& j. R+ r( U: p
===============================================
<% 1 Y0 M- J" O3 _* N; P1 X
Class clsRSA $ D. m/ Y4 B  w+ u
Public PrivateKey 1 _5 }8 t" _! W! k3 V
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) : s( J4 X) e+ V/ S1 x% Q6 X- H
On Error Resume Next
Dim lLngMod 5 S8 M: Y  m7 @( `6 A
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then + Z% a- v/ [7 u" k2 W. M
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 . d0 f$ B% x3 f. Q2 }3 k
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation . F4 B; l) }) A8 {% a
lLngResult = (lLngMod * lLngResult) Mod Modulus ! n# v+ F  x8 d# ~7 Q" H0 q
If Err Then Exit Function
Next 1 c% B5 x( ]2 l% _" e  [
Else
lLngResult = pLngMessage : c/ k( \/ L  w2 M' {
For lLngIndex = 1 To pLngKey / 2 & _- c# }, c" p8 \- C+ o
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next % g+ [& j2 F/ r- O! y- p% ?4 W
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus   w( n5 @: C" L+ I
If Err Then Exit Function ' L" n  I* @8 J% A" t  ^
Next
End If 0 |$ }( o# C- c% e3 o/ S( z
Crypt = lLngResult ' N. u1 [% m# M1 V* y) e# z
End Function8 v' s) ^, F0 I; Y4 \
& K9 K5 y2 c+ R7 w
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) - P/ U. e- c* M5 x8 z
If lLngMaxIndex = 0 Then Exit Function 6 H6 Q+ l/ T% ~/ y
For lLngIndex = 1 To lLngMaxIndex $ H! I5 d& R/ v9 e: d5 W
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ! S; C% F. o. z( @2 v; ^
lLngEncrypted = Crypt(lBytAscii, PublicKey) 0 H2 }5 u: C1 |0 \6 b% O
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next % Z# W/ s1 A% |4 G- u
End Function
Public Function Decode(ByVal pStrMessage) 5 D  |- o% E8 b2 x, r4 I
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex % o. U. y, B' a5 v8 K% j
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) , t, G! c+ \. @4 f
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 6 U0 I' r+ o+ a* A
Decode = Decode & Chr(lBytAscii)
Next , c* u& n# {& S
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 2 s  N, d, v( t& [4 O9 J
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)   T' ?- {/ U9 \% _7 Q
End Function
End Class 4 \6 Q! G; a2 @: a' ^
function Encryptstr(Message)
Dim LngKeyE . c6 _9 n9 L/ [& r, h1 ]
Dim LngKeyD $ x0 q0 ~7 T: X1 j% u: e
Dim LngKeyN , p; n, e5 A7 x  l
Dim StrMessage 7 I/ u$ {6 `+ s; L- @$ [
Dim ObjRSA 4 \9 ]& I- t; B0 e$ e, L5 F
LngKeyE = "32823"
LngKeyD = "20643" ( @0 }  ]+ u4 ]( j, d5 O- d8 j: L1 i& Q
LngKeyN = "29893"
StrMessage = Message ! S" f4 W7 j, B- k6 k6 c
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN $ u* l: Y: }+ n3 A
Encryptstr = ObjRSA.Encode(StrMessage) ! }* h- V0 R5 I- W9 x5 T3 ]2 Q( [* a
Set ObjRSA = Nothing
end function1 U* }9 P  J/ l+ M+ i
Function Decryptstr(Message) : R# ?' V; u1 `4 L( ?
Dim LngKeyE
Dim LngKeyD ' Z7 N3 }2 s  Z; d+ t, k* T
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ! ?+ t! ?, o, y/ A6 }
LngKeyE = "32823" 6 d4 q1 M- e/ e3 a
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 6 d4 \' ^& D3 C; `9 m
ObjRSA.PrivateKey =LngKeyD : z9 u# r6 W4 e; m) R
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) , t( q. |3 J7 D  n
Set ObjRSA = Nothing " ~0 T2 {1 i3 y
end function
%>+ s) E% u3 f% @6 C
===============================================% E0 g+ H' V. ]& o. d  ?5 Z

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下. P* w4 X2 _# j) g- V$ A0 E

<%
function Encryptstr(Message) ( D. F/ B4 d4 P3 y5 Z9 h" i
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 4 y* z. m+ _7 @# H( z9 D" I+ K$ A1 X9 h
StrMessage = Message 8 y" }0 ~8 O( W+ ^- T4 C/ i
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 3 N! ^4 i2 g2 l# J% i0 P
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 2 l: Z" s$ T* d
Set ObjRSA = Nothing
end function % b7 V' D9 s2 D. g' Y
function decryptstr(Message)
Dim LngKeyE 6 f) g- X1 c" T* L+ X
Dim LngKeyD 9 R6 `/ l8 n5 V" r1 H$ q& z
Dim LngKeyN 4 i" g& D+ U* g8 e) }: s. v) ^
Dim StrMessage   t( G/ S" \! F! j7 p/ A
Dim ObjRSA 0 s; D* Q- `, M) r9 X! q$ ]4 F
LngKeyE = "32823"
LngKeyD = "20643" + }* p( ~; d+ g4 }! m# g8 K; C
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 2 p1 f1 e, @: Q. t
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function : t; q. T% D! K- R& g9 }! W
dim last,first % f. j% m- ^4 O8 a8 _  t( j
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) & P. m  b8 I! \7 i+ z' M% ?
Response.Write "加密后为"&last 1 C8 O) K8 y& K6 r( a8 x
Response.Write "解密后为" &decryptstr(last) # z& g% h/ j  V3 f+ O. x. `
%> ==============================================: R5 \( r- [+ ~5 d; {' D
剩下的就是字符的对照表了& Z7 k* R6 L" T9 t) J" ^, ^/ e8 W
===================字符集================" v+ u- j( ?1 @
1_____6EBB" R% q' p5 K" U. Q* [8 p
2_____5C1F
3_____4D75
4_____26CC: w5 U; b, S) C
5_____4F88$ ?1 m& j) ~0 i2 s2 Z" j
6_____3F4E
7_____0A9D
8_____1A1C' ^. t- j5 _% K! ?: {- k! X
9_____6D20
0_____1089
a_____0F3E
b_____3159' j: J! ~& Y0 b
c_____3517- p7 S" b5 P7 a5 d$ X
d_____419C
e_____615C
f_____556F6 r( g$ k. \0 H0 k: u. B
g_____2B7F, ^! f- v6 v0 E; h/ Z
h_____0F9C; ]0 w1 _+ }2 M
i_____00FA
j_____5A50) v5 o/ V- L! Q4 M8 K3 E/ p; I
k_____28504 @3 d, s! u  r; R
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC44 u" K4 M6 u$ q6 T# G3 A& h: c
s_____2F50
t_____36F81 V  m# l( }8 U% ]+ a) x* l
u_____70107 b# _* X4 n7 @6 E, V
v_____0B424 s3 P5 e* K) y& l' U( v6 C8 t
w_____1C7A
x_____16F8# t- k, e% ^  [, y9 Y  \- y- |
y_____2EE7* j( \% n& Y) a% J; @+ h6 j
z_____5CF3
!_____6233# K. F2 g! ^- e" G& a8 S- n8 ^
@_____3A45
#_____2291) G; ?0 L) P# r1 o/ }
$_____5D5C1 M! f/ Q$ y( A% e6 Z
%_____09B9; ^; W5 I; X+ d$ v9 y& F# G
^_____43EA
&_____62B97 i' S" ~. \' Z$ ]
*_____6301; ?$ o+ `7 V9 g
(_____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 分享给朋友]