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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm3 T2 p1 \3 e3 g

看不懂的直接绕过
加密前为:hwy1234567 {/ b/ F, h6 R  W5 y( E
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法) ^; w4 e4 u  t/ [& {
以下是RSA算法文件4 ?: V+ o6 t: q. Y$ `# S

文件名RSA.ASP' S' ^+ D- k" t8 M; B. X
===============================================- I$ g( e2 Y3 S0 x+ O1 i
<%
Class clsRSA 0 O! D; j" J* [! ~  S+ I( d1 F
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult ! a% H. ]8 M# G9 g2 S" d
Dim lLngIndex " }& n( V) j3 R
If pLngKey Mod 2 = 0 Then ; M/ ]6 Y# L! h9 n6 W
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation * M. ~. m5 o. V7 E
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next . I  T7 Z/ a5 p: Y7 v7 S; u& U
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 # v# E. [5 o! P% H2 ~( H
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 5 k# j4 {  i6 W2 H3 a# ~, I$ D
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ) W9 C) Q8 {$ h9 Z1 x
If Err Then Exit Function $ N! n8 f. N! E# y
Next 8 a6 Y! j+ _7 G, ?' U; _* ~
End If ! l  k/ d4 F! D  Z/ I5 `
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) ) X6 H; N$ e4 H) P( q
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ' t2 X8 f- K" \9 k
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 8 X6 L- n$ P* m
Encode = Encode & NumberToHex(lLngEncrypted, 4) , H4 A! v( J* Z6 y
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex % g4 F3 S- {. g$ _6 N: N' J9 |
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" & _( R0 I& O0 F4 w, X
lLngMaxIndex = Len(pStrMessage) 9 k; F3 N! {9 P, A  m& Q, i
For lLngIndex = 1 To lLngMaxIndex Step 4 4 r1 c. ]; e# K: \# P
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 3 p/ `. y& ~- B8 H/ i
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) * M7 }  P+ @) q/ _
End Function   V" i( Y8 f' E) ?: ?
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function $ v* S; w; L+ Y$ X$ @9 }
End Class 9 a; i% U+ @* H0 P( a! r
function Encryptstr(Message) , n5 K+ R3 ~$ j3 T7 o5 ?, p4 y
Dim LngKeyE ; y) ^2 n5 H) S0 Z* U0 a
Dim LngKeyD ' I9 S# U( ?: U+ ]6 W8 Q* t, e
Dim LngKeyN 3 t5 r- `' [4 a9 A6 ~# s" C4 o
Dim StrMessage
Dim ObjRSA ; K. Q$ f# G& s3 I
LngKeyE = "32823" 7 c) W: `& b# F; |* h! a5 k* i
LngKeyD = "20643" : j$ a, L& N9 K7 s5 Z
LngKeyN = "29893"
StrMessage = Message ' j4 `' A7 _- \; Z# t# m, ^
Set ObjRSA = New clsRSA 3 y2 ~7 s9 I! H  E, j) E. \! r
ObjRSA.PublicKey = LngKeyE # W0 O3 q4 I' t2 d, \- [3 y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 7 V( H0 H7 y, d. y. d4 P1 V
end function" q* a. d9 v) S; T5 `
Function Decryptstr(Message) % W9 h& Z6 G  Q6 X7 F& n- ^
Dim LngKeyE # k1 W, ~) Q# E. L5 |
Dim LngKeyD 1 F- }+ g+ t" E# {6 j0 ?' c
Dim LngKeyN 0 e9 @8 \0 R0 _: ^
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 3 ]7 q! i2 L* X# `
LngKeyD = "20643" 2 L+ f/ K' c/ @
LngKeyN = "29893" : U+ G0 o( s9 N+ Q* V- I7 `2 `
StrMessage = Message # v* `; t% D" T& {
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD & j% b7 m: o. f$ ~1 N
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ; u5 x( e0 ]: \* A: s) ~+ z! X
Set ObjRSA = Nothing
end function 2 w- l% z& c. N8 z8 D; Z
%>" o, D4 U; @  X/ j( A4 E4 {3 \- L
===============================================

还有一个用于测试这段代码的test.asp% M8 u1 F+ y& u4 @$ J+ x
有兴趣的自己搭建个IIS测试下
 ( A+ _/ u: o  |6 f
<%
function Encryptstr(Message) - K/ D% g, C- J
Dim LngKeyE - }; a5 U- h! J6 N+ z1 t
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 E) \6 x) v* P, Z
Dim ObjRSA
LngKeyE = "32823" $ |* [" h3 j4 `
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 2 L: Z4 g% a& s" r0 b; }4 N  [
Set ObjRSA = Nothing
end function . c' F/ X  T0 P3 ~3 f
function decryptstr(Message) * e# u2 u- X. C/ H
Dim LngKeyE % M- q- {: G1 ~1 n. x
Dim LngKeyD # \/ ], P  U; O. z7 C% j) R, w- o+ z
Dim LngKeyN 7 O! V2 T0 v( R
Dim StrMessage * _- H0 U$ b  A: u1 s; v
Dim ObjRSA 9 v2 j. d* b4 I) Z6 m
LngKeyE = "32823" 3 k# L1 E6 q7 l7 F* i1 d% {
LngKeyD = "20643" 6 t* ]0 m4 d' \- q
LngKeyN = "29893" # t5 U0 e' I# s; n; s. X
StrMessage = Message ' {1 D! d# k% E" T
Set ObjRSA = New clsRSA ! t' ~. y0 l4 N5 t
ObjRSA.PrivateKey =LngKeyD ( S0 [# j. g8 O6 q6 V
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) , C  l, a( y" B; L: H
Set ObjRSA = Nothing : K7 m6 Y! Z5 q1 Y* H" R
end function
dim last,first
first="!@#$%^&*()" % b; q( ~/ d8 r
Response.Write "加密前为:"&first " ?- i# n. e+ [/ l
last=Encryptstr(first) ! Y. g" ~! o4 A( H
Response.Write "加密后为"&last / @0 L! O8 W" I4 m+ ^( r
Response.Write "解密后为" &decryptstr(last)
%> ==============================================' L7 ?0 p& m; D6 h
剩下的就是字符的对照表了5 v9 @" A% J7 F+ v# k
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75  }6 r5 {9 u: x  L
4_____26CC. ^+ F- F8 z$ Q
5_____4F88
6_____3F4E/ L, f1 l) C! |+ ^" G8 ?: g9 C$ I8 d8 c
7_____0A9D
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F
g_____2B7F# y2 u) B2 W9 h4 j. o; }# F
h_____0F9C
i_____00FA7 \/ L- ]0 S& w" q. s5 d
j_____5A50
k_____2850
l_____3E7B
m_____71C5
n_____1FC8; j8 V0 U3 y1 G' i' c
o_____74C1
p_____5FB8
q_____6085& T' [, i: O5 Z3 k0 ~! Y
r_____3AC4
s_____2F50# G& e! u" _1 z1 }2 C4 @9 E
t_____36F85 \$ f1 K! \' b9 g# R6 Q& y9 O0 L
u_____7010
v_____0B42
w_____1C7A
x_____16F81 f8 E8 p  Z8 ^4 O2 ~5 E' ?
y_____2EE7
z_____5CF3
!_____6233$ s4 Y2 H: w# f+ `, k
@_____3A45
#_____2291/ Q2 ]: ~) a( l& T3 v
$_____5D5C' Z5 ?& n( ^+ H
%_____09B9
^_____43EA
&_____62B9
*_____63013 r! ^5 h" y7 _# ?5 K
(_____4659% o: S" K5 ?" q0 Q1 a) s: }) W2 A' J' e
)_____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 分享给朋友]