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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
  L- @6 H6 D  H- H
看不懂的直接绕过
加密前为:hwy1234563 E- q3 ~# v: A$ e
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
8 W. Y0 U0 j$ k$ Z  U* F1 b1 R" U
文件名RSA.ASP4 e  w6 X  H- k6 P  ^$ T
===============================================% ?) Y  X' h# O& M6 \; a
<%
Class clsRSA
Public PrivateKey
Public PublicKey 9 _% g1 t$ }$ a( i, Y- i* d& M0 Z
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) " z' T( A( [: f& G, o4 c' d2 v2 I
On Error Resume Next # H3 t. V" U5 p0 m
Dim lLngMod 7 a5 P9 \: G5 e) T3 a4 d5 l0 a: |
Dim lLngResult , ?4 O$ M7 J) }
Dim lLngIndex 7 A  L# c: @' m  I
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 8 L$ q5 c4 n: g' m9 n
lLngResult = (lLngMod * lLngResult) Mod Modulus ; i( R8 I$ D" G% A1 z5 d
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage + T) i' ]/ N' K: e  O; N. a
For lLngIndex = 1 To pLngKey / 2 " N4 j. B) u/ d, }5 d
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function # H& d: C9 l" h/ k
Next
End If 5 G4 q" b; V. f0 T" |; p1 ^
Crypt = lLngResult % X! L8 w5 D0 [1 R& W" F
End Function, d8 w! P/ l! ]! F! ]) |& E. n. A, Y

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex / [6 i2 E- l8 J; n; v& y  Q- M
Dim lLngMaxIndex
Dim lBytAscii # n* Z# r8 L/ C; B+ k2 @& e$ F
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) : L0 z- G$ b4 ?! C  h! v/ D% N$ j
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 6 |% y2 a8 z7 {( L" Q" F' D' D7 u
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 3 P2 ?2 I8 {3 ^% ?. f% j; Z
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii ; |. M0 q; Y8 M7 a( |9 P
Dim lLngIndex
Dim lLngMaxIndex ' v, }% w$ z5 U
Dim lLngEncryptedData
Decode = "" - c( {1 ]) u* S" i
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 % Z) D' Y0 g* K! Q/ ~. D
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) + e( X5 E/ P0 d) K9 U( S
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) ; J/ C! I( |$ d' P3 b
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 3 {0 p6 r2 V$ B& k1 J, X
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)   g/ Q  i0 }2 O) t0 o" O
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ( _/ X1 y5 P( y/ ]8 \
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 7 f! e% V& x4 Q/ g, Q6 y6 g1 ]) V' A
ObjRSA.PublicKey = LngKeyE * G4 \. [. s- X! f- P9 x7 h; @
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ; Y6 z/ K4 |$ \
Dim LngKeyN 9 C" G7 L4 M2 j1 Q# U  d
Dim StrMessage
Dim ObjRSA $ w) g) ?  A3 q$ x
LngKeyE = "32823"
LngKeyD = "20643" & E) e! j' S0 R& ^" x6 L( `$ t
LngKeyN = "29893" 6 V8 o' g( \# F
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 6 A9 w4 c5 l6 g; y/ l# B6 v
%>: V8 }% D9 {. B7 u7 d1 p1 A
===============================================
+ Z1 C7 I- ~, h, S$ O2 E/ w6 f
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 # O* ~' X7 P; H9 b7 f# W) T- A
<%* o4 l9 f: u& y, M/ x( B1 A& ^! {
function Encryptstr(Message)   r$ s6 _1 Y$ ]9 C
Dim LngKeyE 6 W1 R1 `0 T8 b) U7 d: a0 F
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 0 c0 }, C$ g& j% T
LngKeyD = "20643" # N# O# i5 h' a8 U
LngKeyN = "29893" 3 h8 ]" T! Y4 e! M/ x
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE % U9 i2 q1 x/ u6 A2 Z8 n  k1 x5 B
ObjRSA.Modulus = LngKeyN 8 G2 M8 v1 F9 J& h
Encryptstr = ObjRSA.Encode(StrMessage) ( g' X- L$ E; S0 A. n& P
Set ObjRSA = Nothing ; N- ?. v8 N  l
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 4 ]! E, O$ O/ _/ w& e% d; _( ?
Dim LngKeyN
Dim StrMessage " D( g* X3 E" \' h  S9 }2 ]
Dim ObjRSA - @& @' l# R5 ^+ S0 C4 H$ r' t  o
LngKeyE = "32823"
LngKeyD = "20643" ! W+ ?' N+ P6 O6 x# Q% U! H
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD   _9 s/ o5 j4 ~1 k
ObjRSA.Modulus=LngKeyN 5 Q" V) k+ ]4 e# I5 E! @3 x" G
decryptstr=ObjRSA.Decode(StrMessage) # A; ?) V4 M$ [. r$ l/ U0 F0 W' I: ]
Set ObjRSA = Nothing 8 _8 v3 g! R3 ^% M4 X9 k& h/ D
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first " k! E9 [5 }3 e1 B& O
last=Encryptstr(first) * Z1 E. d; Z$ P; Z: l6 j
Response.Write "加密后为"&last ; S$ k  u3 v9 m1 J
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了& t+ ?$ g' \* A9 F6 @' W
===================字符集================) N0 ^) D% O8 L9 c' z8 |, T- Q! c9 t7 V
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC7 j0 a. {0 V( N2 A! g
5_____4F885 L7 `8 W1 M$ E
6_____3F4E
7_____0A9D4 r% V2 i9 D% L7 {, p" x, z
8_____1A1C
9_____6D20  _/ H; }# g+ W9 \
0_____1089
a_____0F3E5 [7 [/ i. ?/ S$ F( Q
b_____31591 V" y2 o/ I6 x) Q" `# w4 x
c_____3517
d_____419C
e_____615C
f_____556F, h" ^% P7 f7 Y2 Y1 |9 W3 q
g_____2B7F( q' Q$ r; Z) b( \# e, l- ^( g1 t
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B/ H' \( f  F" k2 I
m_____71C5  I6 Z+ n. k+ z% ^# f0 A) f
n_____1FC8- Y3 x; n& u9 c8 j1 g
o_____74C1
p_____5FB8# \( q+ M* C# f( \. |# L
q_____6085
r_____3AC4
s_____2F503 n9 m- y4 c$ N1 u! e
t_____36F8
u_____7010, q! i' r3 h# `& V4 l
v_____0B42' D6 s% c5 o5 B+ ^* W) F. o  X$ f! e
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF35 ]- u8 O% k8 X0 T- G9 L4 k$ E
!_____6233
@_____3A45
#_____2291  a. j" m8 C: w. Z* p4 U
$_____5D5C0 H0 |. L1 |. S5 g# n
%_____09B96 B( {; n! o. c2 H3 ~7 H
^_____43EA
&_____62B9" {: r; r8 ?4 |" u( i. N
*_____6301, r/ c, t$ J! y+ d
(_____4659! \+ s$ a+ o4 q5 S) y
)_____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 分享给朋友]