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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm3 {2 h7 M! y0 K
原始出处：http://www.3ast.com.cm

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

============================================! b7 W+ X, C& r% E  B- g
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* Y& a9 ^) r4 R, t: B( ~9 v
以下是RSA算法文件: i3 v6 c* m8 `" Q: h3 z

文件名RSA.ASP: d/ S4 z0 d% r8 B" C
===============================================
<% * j, v$ k& N' h- i) i0 |
Class clsRSA
Public PrivateKey ! R3 S) v, T' `9 {0 _* O  X
Public PublicKey
Public Modulus   K" j" s: N8 E2 y1 z' V
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 6 C/ x4 D6 b0 r
Dim lLngMod 6 A7 g% w! J" I( x' B* H
Dim lLngResult
Dim lLngIndex , V$ {: F2 ?# R+ K
If pLngKey Mod 2 = 0 Then
lLngResult = 1 ) r, @5 Q" Y8 q0 U1 m  d
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 6 g4 y4 s9 I* V/ H
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 q7 T/ p- f6 y! _
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 ! _* ]3 x+ B% f; _
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 S( h6 T6 ?; ]  Y7 y6 j8 t
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 2 {: g( q; {- |0 f
Next . ]/ s: A, B2 \+ d5 w
End If
Crypt = lLngResult
End Function
: b- T8 m; |) ~5 P% |' e
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 9 c. }7 Q: ?4 i$ D
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ( H# Q; ~' |/ E9 U, Z9 h, V( Y
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next ! ?, C0 R1 }7 e  ]; K2 `. L
End Function 9 e3 g* p1 d. C1 B: y8 ?
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex + d4 V* T& a+ b  w7 t
Dim lLngMaxIndex ) o/ t1 H4 r, M& L; o
Dim lLngEncryptedData ! ^; X2 E5 [9 ]8 F2 H1 y: [
Decode = ""
lLngMaxIndex = Len(pStrMessage) + P1 i0 e" A" k3 o# P4 h3 f
For lLngIndex = 1 To lLngMaxIndex Step 4 % l( \+ G* }! f
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) ! E; u: j- N& X
Next
End Function , L; W8 K! z/ D# C: n% U
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 6 Q" g! Z! a% L# r. N4 l* h
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class ( w, S2 P# w3 s8 Q
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD ) r1 H% K# C1 [, K
Dim LngKeyN . I2 m' \3 |/ D; a
Dim StrMessage
Dim ObjRSA , |- Z# j) ?/ t- x/ _
LngKeyE = "32823"
LngKeyD = "20643" / q- B7 u  j* |" ~% O
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ( w; p, d% I& c$ P
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN . a1 J. g" l: e
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function+ l) H2 \2 o6 H; v) c, w
Function Decryptstr(Message) 2 S/ p( `4 G, k7 V/ R, |
Dim LngKeyE * q2 R9 |: A3 S0 i  }
Dim LngKeyD
Dim LngKeyN ; s" f( K- V! E* Y+ |# K
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 2 d+ O6 E2 a) I! u
LngKeyN = "29893" 9 t# b* h6 S5 y2 S3 p
StrMessage = Message ; T8 t( q0 S7 n1 `" u
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 9 W7 V& W! A: `* I8 e& U" i# j
decryptstr=ObjRSA.Decode(StrMessage) 1 B/ Q* H+ s# N6 {
Set ObjRSA = Nothing 1 l0 m. ?7 C6 A5 u
end function   S9 m0 P1 l+ Q1 K
%>, x1 W5 x% x- m) {
===============================================+ v$ L* e, @* M) M# j6 W: ^2 ]
( x+ X" ^- N! C! B7 {
还有一个用于测试这段代码的test.asp' Y! A% c* `% R1 w1 T5 b2 K
有兴趣的自己搭建个IIS测试下
 2 H/ }1 }, `- s( h6 k
<%: o9 r, D6 V/ t, s- z) s/ {2 I: z
function Encryptstr(Message) ' e0 V# w2 q* f7 b. s) J
Dim LngKeyE
Dim LngKeyD . f6 T5 }" g/ {- E) N) {% H. }
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" : }4 o" N; {+ P) ^- r  W
LngKeyN = "29893" 7 w4 [, R3 G2 s) |" d+ k
StrMessage = Message 3 J" C* p7 s- [- ^6 {9 Q" ?- L  h* N
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 5 L: H" r, j. W. o1 {7 l
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 5 I, }2 T. S2 f: X" z6 n" ~- x
Dim StrMessage * c) R2 L. a4 ~# t" l, ^3 m
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 4 m+ L$ u1 C! g- s
LngKeyN = "29893" " q/ U) f. L$ V- F. U
StrMessage = Message
Set ObjRSA = New clsRSA : }! s1 r5 O" F( T
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 3 z" U. S/ x) X- R4 r' k
end function * Q$ @' Z$ a' t7 r" [; I* p
dim last,first 5 j4 I/ ~0 z, [# I. \* F
first="!@#$%^&*()" : r$ |5 U1 J& i: Z- N& u# a+ t7 X
Response.Write "加密前为:"&first 1 p  c( S4 t  c0 c; i: S
last=Encryptstr(first) / v; O; s( ]4 ]4 d
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) # ^. v0 L6 Y0 _9 C
%> ==============================================1 L' s8 t$ p9 c+ U+ k& L; P
剩下的就是字符的对照表了1 D3 u7 Z5 j# T: Z$ b* V
===================字符集================
1_____6EBB6 {4 a7 x' ]  f, S5 E$ t6 f
2_____5C1F
3_____4D75, V5 |/ {' x3 ~" x2 C; h
4_____26CC" k5 {1 }4 t6 X+ F9 _4 L
5_____4F88
6_____3F4E8 s2 ~7 L5 W1 [0 y# L0 A" _. C
7_____0A9D7 J$ p2 X) k7 h: q: t; b
8_____1A1C
9_____6D209 z" e4 N! y* c2 `! d
0_____1089* p, ?- [% @( j3 _& v  G2 j
a_____0F3E1 L7 a; Q# h" |2 |+ t; J# Z: t
b_____3159
c_____35176 W8 [  N' [3 H" U$ u
d_____419C
e_____615C3 K- G# n% ?& A8 P* {! o; n
f_____556F$ H% X+ I. U$ U! L0 X
g_____2B7F
h_____0F9C
i_____00FA9 ^' Z; ^9 V- f( p) [' ~" u( ^
j_____5A50
k_____2850
l_____3E7B! \- Z8 b9 Q& Z% V
m_____71C5' i: Q( F9 h# Y: i
n_____1FC88 A6 ~5 `0 }0 [, r& y8 j9 q! w$ Y
o_____74C1
p_____5FB8
q_____6085# r7 E$ A, K/ s% @
r_____3AC4
s_____2F50
t_____36F89 h) C$ f; E+ ?, X/ s! ]% ~
u_____7010/ ~% V) y( V$ t5 A' w
v_____0B42
w_____1C7A- n* v3 N- b5 j$ ]% Z+ Q
x_____16F8
y_____2EE7
z_____5CF3
!_____6233  g/ g5 `; E- ~$ n, e
@_____3A45& L* m2 Y2 }3 \/ k. @3 y7 s( _( D
#_____2291
$_____5D5C- E5 z% m  F. m+ @! `8 G4 H, s
%_____09B9
^_____43EA, e9 Z) `( g7 n$ H. b  F+ H" O
&_____62B9! p$ }6 s" }# u% G2 C9 t+ [
*_____6301
(_____46594 ?& i- g: M# T/ D% w& j, @
)_____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 分享给朋友]