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

算法, 大学, 研究

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

看不懂的直接绕过1 d4 ^- `# w% A: v
加密前为:hwy123456# {1 J+ l+ k; w3 }" J% v
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E, N6 x  Z  H5 F5 q0 ?
& Q8 r& m6 j7 [& g, Y  F
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法3 E, g  G% f' M7 ]
以下是RSA算法文件) {6 [. q4 u: W, u. {8 i' s
' ?: e4 |0 a1 D- t: S# f
文件名RSA.ASP
===============================================
<%
Class clsRSA 6 C" Z1 _$ ]4 w2 d" ]
Public PrivateKey 8 B- A$ E: f  u5 f9 {1 \
Public PublicKey
Public Modulus 3 ^+ n/ r$ x! [9 Q" L3 ]
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next ( a' d$ Y; L' L& _6 q2 }
Dim lLngMod
Dim lLngResult
Dim lLngIndex   `" ?1 x2 o: z+ F7 ?' D: @" S  V" F7 p
If pLngKey Mod 2 = 0 Then ( z0 \9 V1 ?4 k; f  c, P
lLngResult = 1 * ^+ y# j2 M6 q
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation $ k# v8 R8 u" t. O
lLngResult = (lLngMod * lLngResult) Mod Modulus ' Y/ ^0 ~3 C1 q2 {8 g# _
If Err Then Exit Function & ?: H# F) p) T0 k6 Q
Next
Else
lLngResult = pLngMessage 7 {# h# }4 E2 U& p" W# r
For lLngIndex = 1 To pLngKey / 2 / M2 ?  Y5 K; ~  g+ \% E
lLngMod = (pLngMessage ^ 2) Mod Modulus 2 h/ Z) J0 t: t
On Error Resume Next ! k. h9 g7 y* ]
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 z. q4 }, R" A, p& ?  t7 c  G, n( F
If Err Then Exit Function
Next ; U- d! ^9 T1 v4 r, i
End If 1 D; l5 B5 R) M9 r4 j) u; x) [
Crypt = lLngResult
End Function% O0 G5 x' W$ h0 h

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 5 \2 E  r6 E9 h  V! j0 m, U
Dim lLngMaxIndex 7 v* m/ s4 w: w& G" R3 N' g7 |5 M5 u
Dim lBytAscii * E/ ^6 l3 s1 R/ j; R# ~
Dim lLngEncrypted # C% [" t9 b/ T* \
lLngMaxIndex = Len(pStrMessage) : Q- M6 L6 g' _" ]; h  n; H% B
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 3 v1 d% O2 H* u: p
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 5 D6 R! v" n! L1 L% A9 @; U( \% m# `
Encode = Encode & NumberToHex(lLngEncrypted, 4) . P4 R9 v7 k$ v' Q9 B0 h# \' d
Next
End Function 2 o* a! p& \' B
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii 8 x/ C" r" T$ H) x
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData . o$ [4 ]. L: I
Decode = "" * j1 C8 g( d/ I' j! p
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ( [; S! W6 m  p7 g" o8 l- s
Decode = Decode & Chr(lBytAscii)
Next ! a  b0 z# w4 \$ N
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE ) U+ p  C- b# ^! Z4 z9 \
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   @' ]. {7 D( {* l# M8 d
LngKeyE = "32823"
LngKeyD = "20643" / c3 \( ^( }7 _
LngKeyN = "29893" + T) n7 I! X! n9 E0 b
StrMessage = Message . W+ l: C! E& S2 @6 ]7 u
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN " w7 d# C3 N% \! h
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE   R1 j. J# S! N: E( r
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ( l" y, k  t4 K0 J' M5 D
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 0 D7 T& ?1 P7 N& U
LngKeyN = "29893" 3 R! }( T0 T  G3 Y+ _% t
StrMessage = Message
Set ObjRSA = New clsRSA ; b! L1 Y" Z1 d9 J
ObjRSA.PrivateKey =LngKeyD 8 ?# d. y( A: l) |9 v# D& r" \
ObjRSA.Modulus=LngKeyN . |( X: r* i4 v0 i
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 1 w6 {8 U6 g1 U
%>
===============================================
% }2 K8 H' H1 q/ q
还有一个用于测试这段代码的test.asp& }+ W1 v( L0 i9 ~1 f
有兴趣的自己搭建个IIS测试下6 b3 y. s" D/ R# b# ?
   N. G0 D/ h4 v0 _  N
<%
function Encryptstr(Message)
Dim LngKeyE ( G. V7 u- D1 z! s
Dim LngKeyD 9 ^4 ^5 e" d, I. O
Dim LngKeyN
Dim StrMessage
Dim ObjRSA . @* q5 ]: x9 r1 X9 {, k4 m) f
LngKeyE = "32823"
LngKeyD = "20643" & B" ~$ S. P4 |
LngKeyN = "29893"
StrMessage = Message $ J0 O; t$ N/ _5 a
Set ObjRSA = New clsRSA ! R! L# ?" Q8 f5 \1 W. ]
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN - _% x6 w) U1 q3 a' w  F
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function $ P  P* d9 q. M2 H
function decryptstr(Message) : s: k1 K* ^6 _5 o% }! z% d
Dim LngKeyE 4 Y  e7 d% P/ v) [  Y
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" , U* K, r9 R) O$ d# j! k# R
LngKeyD = "20643"
LngKeyN = "29893" + U/ ~6 T+ S# S* n3 Q! W
StrMessage = Message
Set ObjRSA = New clsRSA ' N: W4 o% X7 J, O6 |! ~: W! r
ObjRSA.PrivateKey =LngKeyD - D" i5 }3 I2 N; `
ObjRSA.Modulus=LngKeyN & J5 S8 Z' @. q& a/ u. i
decryptstr=ObjRSA.Decode(StrMessage) 7 O; `! x, o  Q  A) Q1 c1 O" w
Set ObjRSA = Nothing 9 c, e1 q# K6 J! n. H
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first ( ~/ G- L5 f3 p4 a3 \1 x- U- E
last=Encryptstr(first) / ?. t6 [6 U* K7 z) u7 X- _4 l
Response.Write "加密后为"&last 6 I# \. k% a4 W) }) [
Response.Write "解密后为" &decryptstr(last) $ n1 {' A6 p+ F! ?
%> ==============================================3 N( P8 P5 e+ J$ }3 c$ Y
剩下的就是字符的对照表了
===================字符集================+ _5 V! ?0 @) ^9 R$ S
1_____6EBB6 W/ `3 E* w) F/ T+ ~* I6 @" X
2_____5C1F
3_____4D753 w+ o% }- Z3 Q* |" W
4_____26CC
5_____4F883 |3 Y. p+ {/ Q& y0 _! B% X
6_____3F4E! F# P( C' c& W6 U2 U" s' }
7_____0A9D
8_____1A1C# K, _& |/ X8 a1 I6 e
9_____6D20& n7 _( ]5 v6 A3 ^* A' e
0_____10893 Y3 m% M# y$ E* d7 f3 K0 n% e
a_____0F3E
b_____31595 V, m5 X' E2 o- T2 T. t4 b) {$ [
c_____3517
d_____419C# ?% t9 f  C6 _2 s$ i% c' k, [
e_____615C
f_____556F
g_____2B7F
h_____0F9C) W6 L4 |" \. ^' N) _8 A
i_____00FA' Z  a2 o- c/ \) e! E$ K
j_____5A50$ x/ ^9 q2 e5 R. h7 n2 B
k_____2850
l_____3E7B9 l2 S1 S9 T( w# f, B
m_____71C5! D) X; d0 L# o4 Z4 E/ f
n_____1FC8
o_____74C1) u5 ]1 |9 I) z  q  U  a
p_____5FB88 P4 L: R+ X) C& a) `
q_____6085, x4 {* X6 s& W7 m7 S
r_____3AC4
s_____2F508 A; c2 P4 F* Z) j! i; M6 i8 E
t_____36F87 ?1 v5 }+ y! x
u_____7010
v_____0B42& l, ^  u. Z7 T  `6 d
w_____1C7A6 [3 T/ b! L' a. U1 j
x_____16F8
y_____2EE7
z_____5CF3; v+ ]  b' N6 @3 r2 Z5 ~
!_____6233
@_____3A45
#_____2291
$_____5D5C+ L7 b5 |) `! b! e/ L
%_____09B9
^_____43EA
&_____62B9
*_____6301) @8 P4 y% `# M' a  |
(_____46593 I  h! o$ _" g/ g' ~; x
)_____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 分享给朋友]