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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm7 Y9 _1 W7 p" R5 V, @* A/ k  T

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法- F9 y( f( R4 {1 o
以下是RSA算法文件
4 R! R; D# [! j% W
文件名RSA.ASP
===============================================
<% 1 A% T9 ?. C: t, W, z% ?+ W  |1 \
Class clsRSA
Public PrivateKey + M* R1 Q: g+ _( l' `+ g9 @
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod + a8 o' N1 ]0 _% X
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1   N4 l2 n+ {# @! h# c, P& n$ [
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ( C2 `' k' z& u1 F8 ^$ U
Next
Else . h6 p# m4 O3 Y( U/ |; c8 p7 U& [  y
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 6 G: o9 C: ?( G8 e  l
' Mod may error on key generation - I) _, [$ f: }
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 2 @% a% V) F' v5 \* i
Next
End If
Crypt = lLngResult 5 p: b1 I' B3 N: O, d; y
End Function6 A) [! J! V$ A! L. O+ j. G1 o
) w! G+ Y, L1 a8 ]
Public Function Encode(ByVal pStrMessage) . L. Q; C% m: J, n+ J
Dim lLngIndex - [8 L% n8 k7 N/ e' x# n4 i) U
Dim lLngMaxIndex
Dim lBytAscii ! w: C. J- _" F9 P6 H
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) " `9 u! r* ]  F' ?# G; s3 e7 A
If lLngMaxIndex = 0 Then Exit Function 2 Z  j( a! G8 \* \+ D
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) / U3 W8 D) I( j0 ~
Encode = Encode & NumberToHex(lLngEncrypted, 4) 4 I$ m$ \8 ]1 k. e  P/ H% i4 l8 X/ b
Next 8 i4 `9 t3 O: l8 X" r
End Function * Q- X+ p, R$ x' c2 n
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex % u. Y4 t4 X7 a5 H
Dim lLngMaxIndex 9 O" x* w, H' H2 t  ~  a/ Q2 c
Dim lLngEncryptedData ! X0 A9 j2 h& W  w# [% K9 k
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 2 @1 N& V% u: O! B) `- b" K( M
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ' P5 N4 c0 j0 P# Z) v
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) & S2 ?  g8 W3 ^/ M5 ]6 `
Decode = Decode & Chr(lBytAscii)
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)
HexToNumber = CLng("&h" & pStrHex) ! S9 N- ]5 b; U/ i! i9 ]1 T+ O
End Function
End Class ( ?! D( S$ Y, e6 j1 n8 H; N
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD $ N3 u$ k- o% p4 D; y, e: u
Dim LngKeyN
Dim StrMessage $ v" b# M& k& |3 }9 S0 K$ v
Dim ObjRSA 6 s5 S: P* J9 i, q6 i" I
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ; Q& O0 a+ X$ z  C( N1 m- m
StrMessage = Message 3 K8 `" C1 L9 w' y. X
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) + D' {+ {4 A5 P
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE - s1 `& w" f% Z/ b
Dim LngKeyD
Dim LngKeyN 4 v# e3 ?4 [$ X7 I" K2 m3 N
Dim StrMessage
Dim ObjRSA - S9 W3 P* t% F
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ; b9 Y1 O" P  @3 X6 y+ ^# T
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 4 T3 j6 |% E5 V0 ~$ W% Y# L
decryptstr=ObjRSA.Decode(StrMessage) + Q/ P" H# y* Q8 ]
Set ObjRSA = Nothing & z* P8 Y5 D  V" s! C
end function
%>& X% m6 Y0 D( O. K# G5 _
===============================================  X: n; M# C! V* y+ j! a
; x* d1 k) O, u( D& v) \" d
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下3 G4 Q, n! o2 V4 g* \/ |
 ' @. g9 t$ p; X  k  Z, K& |1 L/ K
<%  }: m) a2 C9 L" L) R  X
function Encryptstr(Message)
Dim LngKeyE 5 r2 F# C! h% f8 T
Dim LngKeyD 9 @' ?5 m/ `5 c% n
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 4 X6 q4 e# ]# D" ^- O1 V
LngKeyE = "32823"
LngKeyD = "20643" 5 X) B" l: q6 [3 [* Z2 C$ ]
LngKeyN = "29893" # b" b, d' @' U. R4 c) a
StrMessage = Message
Set ObjRSA = New clsRSA . g5 f; e) I$ ^& d* H
ObjRSA.PublicKey = LngKeyE 2 O4 k# s5 b, D
ObjRSA.Modulus = LngKeyN ! N- R- H( t. X# T% `' t
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 0 _4 |6 i: T, N& J$ R3 O% q2 d7 y
end function
function decryptstr(Message) $ G8 L9 {- J( A' x" T5 Z5 p
Dim LngKeyE
Dim LngKeyD 9 ?& G- F  ?' n' z! x
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" & Q! ~- T0 M8 Y5 L
LngKeyN = "29893" : ]8 ^4 w4 r# S) j8 ~: |
StrMessage = Message
Set ObjRSA = New clsRSA & e8 s; S: J; ~' L% T9 @
ObjRSA.PrivateKey =LngKeyD 7 d: s( D) _, `5 L' E6 l3 M
ObjRSA.Modulus=LngKeyN ' Y8 n% ~; c9 C; G6 Y' i1 s
decryptstr=ObjRSA.Decode(StrMessage) & \8 b& _+ [/ X9 ^7 O
Set ObjRSA = Nothing , {; s) \# m! W# v4 I- E2 |
end function # f& Q- N) `0 x) }4 ?7 v
dim last,first 4 J) S5 f, `* Q; |* {: l$ D
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了8 [0 [/ Q* C/ F5 c, Y$ T
===================字符集================' _) ~# U* D8 J! C: r* d2 Z1 ?
1_____6EBB: O/ M8 W2 i2 A0 X! q( N
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E) w! N4 F3 ^, Z  [/ W
7_____0A9D
8_____1A1C: |& }' l& y! ]! _' i
9_____6D20
0_____1089
a_____0F3E/ _; V* o+ w# \: Z% L$ |# B
b_____31599 A8 `! P% O- L( ~
c_____3517
d_____419C
e_____615C
f_____556F- y' I9 a( i, j1 Z
g_____2B7F
h_____0F9C
i_____00FA+ a% m0 H0 j/ B7 \8 c& t, a
j_____5A50
k_____2850
l_____3E7B1 \1 v6 v1 @; W6 z  F6 B: {: Q1 S- A) j0 |
m_____71C5/ t9 {" f0 E- I) f1 Y
n_____1FC8
o_____74C1
p_____5FB8$ @3 j' m9 B5 r, Q; T0 u
q_____6085" `$ J/ Y/ l+ i
r_____3AC4
s_____2F50- x2 t% j" T( b: @# w2 q( K6 c
t_____36F8
u_____7010$ H/ q1 b/ C5 W% b
v_____0B42
w_____1C7A$ I! F2 f( ?" m; R8 w2 x. K. _
x_____16F80 C5 o1 M4 K# ?& {" ^
y_____2EE7
z_____5CF3
!_____6233
@_____3A45& ?4 [4 X% M; ^/ i
#_____2291
$_____5D5C2 x1 ]/ ^  e9 ?
%_____09B9
^_____43EA
&_____62B96 `% O2 G; l  ^
*_____63016 Y! D" F5 L& J! l! o) J
(_____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 分享给朋友]