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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm9 l( W4 s# O, L6 y2 F. E$ x7 h0 y9 s7 j) |
原始出处：http://www.3ast.com.cm
$ L2 E0 e  ]4 p
看不懂的直接绕过1 c- r1 }# g- o7 w
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E, i; \0 S/ c% Z3 X1 R

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家( Z" m+ }( _4 g& |
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法% i5 y8 j( r, d; m$ `0 V& Z/ r6 q9 ^
以下是RSA算法文件
: ~( v9 z7 ]( Y$ P3 ^
文件名RSA.ASP6 b9 Z4 |8 _  B" P9 l
===============================================
<%
Class clsRSA 8 @3 Z' ?, p5 Q; Z2 B+ S
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 9 e, p9 b4 T/ Q6 B
Dim lLngMod
Dim lLngResult % e0 I* f+ ^; t0 a) y8 ^8 Q) A
Dim lLngIndex 7 h! A4 O6 F# g
If pLngKey Mod 2 = 0 Then ' n- Y6 s3 R4 |7 @
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus # w" J: O: z: \6 v* N5 N5 D& B
If Err Then Exit Function
Next 2 S9 j1 W* x+ @" b' S
Else
lLngResult = pLngMessage 2 {- ?; @; p+ M+ \4 U  I, e
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 k6 Z" L5 _. w0 s% g! b
On Error Resume Next 6 n' N8 M/ `4 D/ i* k
' Mod may error on key generation ) o) q# F* u* }% ^# A* Q, K5 J, [- A
lLngResult = (lLngMod * lLngResult) Mod Modulus / A( |1 o- Z  C: x- v
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function5 |/ y% g$ Q) v  \0 m

Public Function Encode(ByVal pStrMessage) + U9 \- B* F: \, |& T
Dim lLngIndex
Dim lLngMaxIndex * P# ?: c* |9 G( ]8 O; F5 _- Z) ~
Dim lBytAscii & c$ f! W  \/ g2 J# Y: K
Dim lLngEncrypted 8 }, t. d) ]& i* @
lLngMaxIndex = Len(pStrMessage) - x8 X( G$ a3 X' S' y( e" T
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex $ Z8 R& d( d* ~( c( v4 M. X
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 y3 u, X0 t, q; t
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex - n: u+ E0 }' @( r
Dim lLngMaxIndex ( K( e% s/ c4 `# J" n$ `9 R4 L0 m
Dim lLngEncryptedData
Decode = ""   O0 j. E6 M0 B( R' H
lLngMaxIndex = Len(pStrMessage) ) J. @2 `* c* l" n+ z
For lLngIndex = 1 To lLngMaxIndex Step 4 3 b- |# `& s" H8 g
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) + e" n) f6 r# F3 \/ h
Next
End Function 1 ~3 L9 A* t6 _& U, s* @
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ; o- G5 [7 ]' p, \; O) i4 x( Q
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message) # K& d2 V6 n; [5 Q
Dim LngKeyE ; G+ W8 ?. B* {% L
Dim LngKeyD
Dim LngKeyN , T2 y% A! |- G5 u3 x
Dim StrMessage 3 [& z5 i/ q2 Z2 k; ~' M) L
Dim ObjRSA , e; _* @# i* [  j5 p) T  `
LngKeyE = "32823" 2 p$ T2 n" a; C0 P- L
LngKeyD = "20643" . \, d  E+ `* N3 g' R8 C" U
LngKeyN = "29893" 6 K# T0 S* h5 p4 V+ `
StrMessage = Message 6 _$ d' H; M3 h' a7 c/ w
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 8 k( t9 s3 H' Z" W" E. e% P
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 9 k8 a# D5 h) M5 V, d1 y; F
Set ObjRSA = Nothing
end function. d1 f; ]; f$ X
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA + }$ Y7 I8 e% T) X: |
LngKeyE = "32823" 2 Y5 T2 Y6 @' V9 X( R8 |
LngKeyD = "20643" # W: `0 o( x7 D& s9 z
LngKeyN = "29893" ) ~* A* r6 W: D# ?
StrMessage = Message : W; `2 q/ G# k! q& m3 c- l
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ; ~# Q; W# H( z2 x6 @/ Q
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 0 @! Q: \2 k7 J; f3 F1 Q3 |  g% G
end function 7 e' u8 D! |& z, E6 f0 q. t" D
%>
===============================================
1 D' h3 f* |* T: o' s& s& g: I
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下0 L5 I8 ~" f) m1 b( ~) |

<%
function Encryptstr(Message) 1 W% G9 i$ }: u9 r4 }, L
Dim LngKeyE   W& I" L! d6 Q" e7 \
Dim LngKeyD 7 a- d2 @% y* w8 ?/ S- C( b
Dim LngKeyN " \$ g! M4 y" s; l
Dim StrMessage
Dim ObjRSA   {" A: B# l" O, d' ?# l/ l
LngKeyE = "32823" 9 R/ N# _5 d7 P
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 9 {2 m7 n5 m" a4 ^' c: o4 v% m
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * |5 I8 c! ]4 i" F& t" T
ObjRSA.Modulus = LngKeyN ( O. k$ M9 G$ C$ k6 S! s" _& B
Encryptstr = ObjRSA.Encode(StrMessage) : y, x4 o- h" I
Set ObjRSA = Nothing & P6 U  m+ F* H( I6 S* Y8 n8 u
end function
function decryptstr(Message) - A- Z& a9 z' D- Y9 M
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN   F1 u; H( C" B) h+ H+ t
Dim StrMessage 5 C3 x4 e' L: t2 {* I
Dim ObjRSA
LngKeyE = "32823" 5 f* Z. z, g+ ~2 P2 h4 K" J; _( Z
LngKeyD = "20643" / w- Q! i0 {* J: m0 E" J# b
LngKeyN = "29893" 1 K+ S; }2 a1 \
StrMessage = Message 5 z& e) S. A) y& |; h% D/ p3 g
Set ObjRSA = New clsRSA " Z5 s% C- ]5 p6 ^0 C7 a
ObjRSA.PrivateKey =LngKeyD 3 y  J( _: p* b
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing & w% u; r' o7 ?
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first % V$ }2 k' T# M2 L
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================# x- Y8 ]; t4 t' W+ ?
剩下的就是字符的对照表了4 S! e. r$ [& A' K! V
===================字符集================) a! |2 B2 ^; b& a6 U8 S% D1 R
1_____6EBB
2_____5C1F$ o" y9 D8 ^( k( E: |1 M
3_____4D75$ _" q) n' @9 j( T* }) u- ?8 ^
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D* w0 m! ?" S7 X8 r# Y
8_____1A1C% k6 J2 H9 S! b: |5 l8 m' \5 C
9_____6D20) U0 q4 k2 i/ W$ m' K
0_____1089
a_____0F3E. z' u/ H$ _  P# R- s4 j6 B
b_____3159) t. S3 w" q. Q* m+ k* A7 x
c_____35174 C' ?5 W# ~4 T! J( P
d_____419C
e_____615C' V5 [' m) k" |4 x1 {; ?& c
f_____556F
g_____2B7F7 _2 P6 [( x2 ]% b# w$ R+ y- s& z
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B  A9 r5 U* [3 t7 H) E. K* V: P
m_____71C55 v, l# R5 K3 y: e
n_____1FC8
o_____74C1% ?' w$ M. M+ a9 G! k
p_____5FB8
q_____60856 l9 T4 l+ p: J3 n0 p
r_____3AC4
s_____2F50+ B5 w/ [, F* T* L; ]+ Q
t_____36F8
u_____7010
v_____0B427 Q8 |; d0 G4 `& T, d1 K+ `( p
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A45
#_____22914 h. O. b- ^+ X3 r# a$ B2 p, L
$_____5D5C8 X3 `0 ]7 F  ^9 L/ p
%_____09B9* m* F) K" V; P6 F, n
^_____43EA
&_____62B9
*_____6301% s+ v0 T" R- A; B
(_____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 分享给朋友]