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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm. a; @1 y, p, x6 A
原始出处：http://www.3ast.com.cm. U. M& ~" U- W. G% {; e
. D# W  h3 e" z
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E3 i4 I: }" j* |  D- L# E- o

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家0 S1 Q/ Z' @+ V( i7 k' x* s
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件% y, K2 j2 @. n! F* u. y

文件名RSA.ASP
===============================================5 L( g: G$ ~, h: V9 K4 I$ Q6 c
<% - e3 N4 k2 |2 `: L+ L
Class clsRSA
Public PrivateKey & H% ~! L' V3 g5 R2 L; N) a2 y; G# K
Public PublicKey ; T9 S, D1 A: j' A) B7 w0 q" Y
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next $ Q8 k/ e3 t. p5 m. }- B
Dim lLngMod
Dim lLngResult # }, ~9 R( Q+ y' O
Dim lLngIndex ; z- Y; ]3 g7 @2 d$ S. _
If pLngKey Mod 2 = 0 Then 1 u2 H- e* k& D4 H8 r
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 d! h7 l' d& `# u6 u% x: \
' Mod may error on key generation   s% l- n+ A# t4 Y
lLngResult = (lLngMod * lLngResult) Mod Modulus ' f  \" x! e! }
If Err Then Exit Function * `9 t2 s& }8 f7 T- s6 l
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation / ~4 j( X# V* {/ ], Q
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next - w9 d4 r* s9 w1 f7 G6 A
End If ; D7 n, C$ u3 S6 x+ X' S
Crypt = lLngResult 6 x8 g* V- q: G
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex ' O" o" \* z8 }( \
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 2 H' w' R* Z1 x/ O& z1 O/ o
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) , ]& ?! I* A. N( P) ~' t3 \* y
lLngEncrypted = Crypt(lBytAscii, PublicKey) " s7 Z& @- a& K" P
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next - _# B1 D; M) k
End Function
Public Function Decode(ByVal pStrMessage) ! E5 c6 e% Q, c! @
Dim lBytAscii : k3 f3 L& d: m+ k4 K
Dim lLngIndex ' L5 y0 \% D8 D# Y2 D/ k# @
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) $ Y1 a* T# o+ K1 F4 h2 X2 ?; B) d
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) : j. h! K1 c( g3 C/ W2 x
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ; f' L6 B4 _1 f9 u. l/ L5 M+ a& w
Decode = Decode & Chr(lBytAscii) $ ]$ v! y) c' `! b# R* T
Next 3 S6 N. n" ~, W' Z- b7 }
End Function ! y% E: o% |5 ~/ X* w9 ^0 V
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) . v8 r% z( p0 t" A
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ( Q: G. S0 b9 b1 n  |! }
End Function
Private Function HexToNumber(ByRef pStrHex) 0 A8 f5 A9 c" O7 Q9 |% Y
HexToNumber = CLng("&h" & pStrHex) 2 d7 Z( _. s2 H+ q$ E& _% j* s' e
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE ' n) @! `% F1 h  K/ K( Z
Dim LngKeyD . k) J; S0 ]! |. c
Dim LngKeyN 7 t6 d1 i( y3 q; Z/ ~3 F' P7 X
Dim StrMessage
Dim ObjRSA ; q3 W+ U; _5 F/ n  i
LngKeyE = "32823" # y; s6 y( g& `! x3 w; n7 B3 M
LngKeyD = "20643"
LngKeyN = "29893" 0 ?! k8 K* I- H* V, @/ p* o2 l
StrMessage = Message ! T7 A# F$ I0 b( _6 ~
Set ObjRSA = New clsRSA ( v( L  ~3 c) }) L: _
ObjRSA.PublicKey = LngKeyE 4 k6 W0 X2 H5 O& N! A. g' `9 S
ObjRSA.Modulus = LngKeyN # Y$ |2 h; c7 f* c0 ?! \
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing # r; W! q) K2 E$ T) y
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN & z, {. e$ W4 Y
Dim StrMessage $ j6 ]: C# d$ Q7 s) Y9 I2 N, g
Dim ObjRSA
LngKeyE = "32823" / x  f% c" f* q$ ^6 [  R
LngKeyD = "20643"
LngKeyN = "29893" 4 @$ |4 C- S  b; X9 F5 E7 ?! {" {
StrMessage = Message 9 d8 K) v) c/ U: U# E+ [. n8 O4 i
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD : o6 p/ z+ D% I: \$ \, N8 }
ObjRSA.Modulus=LngKeyN ! w& \5 |" S' ]6 E- p# x: e
decryptstr=ObjRSA.Decode(StrMessage) - g1 ?5 ?" I- R
Set ObjRSA = Nothing . p6 R5 Q2 U6 Y0 J0 `
end function 2 q. m& T% D8 Y) ?
%>
===============================================- L+ `' I! b1 ^9 p# E/ d+ j' Z* S

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下+ J( |/ K  p1 u! c7 G" K+ D& B/ U

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ( U2 u0 w) Y& P( V. E
Dim StrMessage 7 m" A  K( C0 v5 R1 Y1 x
Dim ObjRSA
LngKeyE = "32823" 8 x" w0 {8 o) J9 k) i# s: e
LngKeyD = "20643"   s- r7 `: e9 J7 C& S# z3 ]+ ]4 d: c
LngKeyN = "29893" ! g1 j% S9 @1 w# a
StrMessage = Message 9 W9 o  k* \: Z' y$ _. f
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function ; c. O, S6 h# }. w, D
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ! i7 G4 }$ N! p. n
Dim ObjRSA 5 a( W0 C4 Z) `5 l- Q# M5 P
LngKeyE = "32823" ( W* O1 {- \) B4 M8 d/ T' r1 O
LngKeyD = "20643" " {  d7 L% ]5 `( C% s6 A7 \4 d
LngKeyN = "29893" 4 H: I2 L9 B, n) I3 X0 B5 c
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD & f1 [0 U* v/ Q
ObjRSA.Modulus=LngKeyN 4 f5 D- E1 Q' A- k. F6 N8 m
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" ) l/ x* `( L5 q
Response.Write "加密前为:"&first " J% }9 Z* k6 \' `# _/ {$ j
last=Encryptstr(first) 7 F  d1 r4 u- r  k" U- O
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)   v1 N0 ?4 ~8 \
%> ==============================================# R& k/ I; J6 L- L- p8 z6 |2 y- p6 ]
剩下的就是字符的对照表了
===================字符集================. |+ }( R, g4 z  f) {
1_____6EBB
2_____5C1F
3_____4D752 y; }$ X- f6 L* Q* `
4_____26CC
5_____4F886 $ f) U8 E; O- |
6_____3F4E
7_____0A9D: E7 f; P* \/ @; X1 C' k5 E
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159! Q! Q& X8 f2 _) ?! ?4 K
c_____3517# U" {0 i8 o: m9 x( {0 I
d_____419C1 g. n) p( G- w3 O; u. w, T* }
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50' Z: X/ \" l# A" q
k_____2850. ]$ W8 H9 o6 Z6 f0 i% }7 G! g. ^
l_____3E7B
m_____71C5
n_____1FC89 Z2 V* C. c4 K8 P7 s; \
o_____74C1- $ x" R% ]0 d6 F
p_____5FB8/ C) P% j$ y. r9 W
q_____6085* w. K' C( k6 D
r_____3AC4
s_____2F50
t_____36F8* D$ Q  l2 `) B+ W, ~' P
u_____7010
v_____0B42$ s3 \3 A$ f& ?" l2 @/ \) i2 r; o; O
w_____1C7A
x_____16F8( x9 O9 C' V& ^- W5 D5 M
y_____2EE7
z_____5CF3
!_____6233
@_____3A45, ^0 @2 F, C2 D' b! E1 u! G3 C
#_____2291# S* ?) Y* q7 f* b# O
$_____5D5C  N$ T' s, S5 d
%_____09B9" _2 x' o7 z3 {0 v. D  B4 p; B
^_____43EA
&_____62B9
*_____6301! C7 g; q& h3 N+ a$ ~6 D
(_____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 分享给朋友]