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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm, V- c. p; B/ B! P6 r' u
原始出处：http://www.3ast.com.cm9 y5 }2 l4 A, M$ Y7 G, a1 _
9 ]( a1 w4 F# P3 s6 @
看不懂的直接绕过
加密前为:hwy123456" `- i8 i) q4 R' D
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
# J) ~/ ?6 F$ |! ~. s
============================================1 U  ~- |/ o* o5 e. b4 n2 @6 A
上面是当时自己校内的心情。现在已经解破出来了，分享给大家1 k: O' ?" a/ d0 I
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件9 ^5 d4 L) \7 j2 c5 |3 X5 k8 X$ Y0 A
$ H8 p' d7 r+ G
文件名RSA.ASP
===============================================
<% 3 B8 A9 f4 o5 ~: Z/ ?6 r, O  f
Class clsRSA + E  H/ s: }5 ?$ L8 u. C% W
Public PrivateKey * f& ^3 }+ O, y+ H# M
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) & T( V. M, e( N  {% ^8 S
On Error Resume Next
Dim lLngMod
Dim lLngResult 3 k# P0 z4 w  R$ G( E
Dim lLngIndex ! O5 s, E1 O/ K
If pLngKey Mod 2 = 0 Then ; L1 d# x, D* k, [# o- h' V
lLngResult = 1 - P, j# ?- h. p
For lLngIndex = 1 To pLngKey / 2 # S" K. P/ z# ]- S: X: j/ J
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 S. _6 e% q7 w& N2 s) F; ]4 j
' Mod may error on key generation * u3 c/ q% x8 d% ]& J; P1 Z% r  L" C
lLngResult = (lLngMod * lLngResult) Mod Modulus ! \! N% v% y5 K' r
If Err Then Exit Function - `' ]9 ]6 X, K$ h- E9 Q1 M$ a
Next
Else 6 ?6 `  G3 C! Y, n3 D; t
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ! A  \& Y! Q& u) R8 d* }. ?
On Error Resume Next 2 p9 }* F) w# T8 e% O& {
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 7 J, @& [3 h! ]  Y" }# R5 K' ~8 D( x
Next
End If
Crypt = lLngResult
End Function. B0 k' H8 O; k
7 b. N; H( N/ {3 h8 b0 X, ^
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) - X4 I% W. ~% ~  E
Encode = Encode & NumberToHex(lLngEncrypted, 4) , L+ i) c% q( A6 ~
Next
End Function 0 L. k; O6 E8 u! q/ x" D3 i+ k
Public Function Decode(ByVal pStrMessage) , z0 C+ L$ y. R( P8 q% ?
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex : |( Y7 I# E3 \2 g: l1 _
Dim lLngEncryptedData   y- j1 b. b! e- [8 q
Decode = ""   j8 O! q. q$ A4 f) {8 U# [5 s
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 " p) t$ m  t) H5 D
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) % ^  J+ K, V6 E- g5 Q: I8 k0 C
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) , c! Z3 p" {# V! Q( M+ U
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)   J& g. S( x) }5 F; r
End Function 1 i, g: C; H/ i4 [& Y7 k& w
Private Function HexToNumber(ByRef pStrHex)   @, d; d2 e; F
HexToNumber = CLng("&h" & pStrHex) % [1 h( Y+ X' }3 r5 `8 B" V6 ]
End Function
End Class
function Encryptstr(Message) 8 E, X, J4 M; _
Dim LngKeyE 8 U5 s( y* L" H0 c; K3 u3 t# x
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 4 |5 I/ ^$ o3 r2 f
Set ObjRSA = New clsRSA $ z. T' l! U" \
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN " E+ @( \' S) y
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing $ e6 u7 \( g+ G- ~' l- l0 E( c
end function  h0 H6 x* `; O7 _; q
Function Decryptstr(Message) 5 t8 o- G6 d- P- a6 p
Dim LngKeyE % o* r) f+ _. q& V9 i
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ! B8 G/ h4 ~, c3 B9 ]2 n! c
Dim ObjRSA ( q  i! {- b9 g: J  g$ B! o
LngKeyE = "32823" . Y' {0 b4 r% c' v1 j( z$ {5 D" Q
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message & s: K+ ]: Y" C( m
Set ObjRSA = New clsRSA : L5 M% W" r/ E3 l, J
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 8 y! ^" I2 [" Z: x
Set ObjRSA = Nothing
end function
%>5 Q: P) T4 Q; ^
===============================================

还有一个用于测试这段代码的test.asp. r7 }: Q" I) M" O! V0 U
有兴趣的自己搭建个IIS测试下  J2 G  H$ }. o& F# V* K
 6 A# e; E' w8 J# a1 |
<%' |* ?- n, u5 G" s* I; z' t
function Encryptstr(Message) ; V; `) Y0 W5 A" q" O
Dim LngKeyE
Dim LngKeyD & O$ I+ D. n8 d! E  ^: y+ H
Dim LngKeyN ) X1 ^% t' K- \' ^5 |
Dim StrMessage
Dim ObjRSA " A$ D  D3 d" \# O
LngKeyE = "32823" * e3 i1 J+ c: X
LngKeyD = "20643" , e0 g! \: X. h( I7 i
LngKeyN = "29893"
StrMessage = Message 3 ]6 z# h( S; Y' F6 Q
Set ObjRSA = New clsRSA - Y0 c; j8 S9 D$ h7 u
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN * y. \  `  Z. _# A* o; W: m
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 8 H* ^, W0 N% f3 X7 p( @! }% l) G% V) O( M
function decryptstr(Message) " y. r' z! H+ J  @
Dim LngKeyE
Dim LngKeyD * {- K- `' i: g5 n
Dim LngKeyN 5 O3 ~9 j- ~1 ]4 A- d
Dim StrMessage 0 x# ^, D0 Q9 x9 |; ]3 j
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 8 V( s  {- q8 ~& E9 k
Set ObjRSA = New clsRSA ! C$ G& c- A% S; |' K
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) * E2 [- M& A# _. m  d: f: U
Set ObjRSA = Nothing
end function 8 s. B# ~; O# ?% T, }3 o* V  \
dim last,first
first="!@#$%^&*()" 9 \+ c: n3 `, Q/ }: A0 X4 \
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 8 k; y) o8 p/ |5 E8 V* j
%> ==============================================
剩下的就是字符的对照表了, L6 G* R2 X3 u- H  W/ [
===================字符集================; ]% h9 G# t# D: J6 p. m
1_____6EBB
2_____5C1F' {/ h9 f. K% z+ l2 G6 ?+ G* m
3_____4D75& i8 `+ i3 k  u" I8 f
4_____26CC
5_____4F887 O' _: I% p* l( H+ K- }$ B7 B
6_____3F4E  F1 a; z$ q- [3 B. a& C; ^! {# O
7_____0A9D0 l: t( V- F/ H4 q" w) y. l
8_____1A1C- g6 ?% ~; D6 c; H5 @- q8 x# o  f
9_____6D20; X! i' }: {8 i! y; n, u$ c- y: {
0_____1089
a_____0F3E
b_____31594 u! s- l' J6 o9 ~# |
c_____3517
d_____419C
e_____615C+ J/ q) @6 j- F, G2 U8 l* k
f_____556F
g_____2B7F
h_____0F9C
i_____00FA6 w( w( j" X) ]0 ?
j_____5A50
k_____28503 N0 h* `1 F9 A  D0 E
l_____3E7B
m_____71C5
n_____1FC8. @8 W# J! l+ N- r% ]
o_____74C1( _0 |: \* h% w
p_____5FB8
q_____6085# [5 O' F/ Y% p) N" [* H; v0 `( Z% d
r_____3AC4; {# g+ R+ D% e
s_____2F50
t_____36F82 c( y+ i0 |9 U6 l9 Z
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3. S3 ]9 u8 g4 Z1 a8 d4 [2 b
!_____6233
@_____3A45
#_____2291& W6 s' }8 T8 F8 z! c, B, ~4 s
$_____5D5C
%_____09B9
^_____43EA
&_____62B9
*_____63015 L. e- Y# s9 Y1 _; }4 N" l. ]
(_____4659: M/ a6 ^; I4 b" c" h; q
)_____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 分享给朋友]