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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过6 V" d! o! g: w4 U. m
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
* w; L) f  C& c1 X* e
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家* b( k! c1 g% I
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
0 L; a+ _" M$ C
文件名RSA.ASP, z/ h5 O, Y; h; k2 k
===============================================
<%
Class clsRSA
Public PrivateKey ' e9 W6 Q1 _$ D3 r4 r2 ?
Public PublicKey 4 @  S( O$ _* d4 ^. I8 h) F
Public Modulus 1 O; a  H. w6 {$ l9 c, V; @2 |3 w
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod ' `6 a5 i( i9 p3 e
Dim lLngResult
Dim lLngIndex $ z$ T9 a7 d+ i; D1 G/ s0 {0 x8 ]- y
If pLngKey Mod 2 = 0 Then
lLngResult = 1 % Y8 ]5 A4 s' M7 I6 y7 J0 _0 h  F; ~
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ! `+ D8 z5 p, V$ c5 o8 Y
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 J6 F: z+ G  g  t2 F
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 5 p6 J, [) r# x  n. W1 A& ]" J
lLngMod = (pLngMessage ^ 2) Mod Modulus % f9 T: s, K  S2 N; t6 K6 O
On Error Resume Next & v/ R, u6 b0 E1 V8 ?9 d7 y7 q
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next / F5 O% y3 a& B0 w8 \) x
End If ) j+ L  w  @, ?, s
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii ; {& W/ J8 P$ s
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) / V$ _* X; Y! R
If lLngMaxIndex = 0 Then Exit Function - H! J0 X" i  v, j
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) ' \7 G1 C: f+ Q( U0 ~* {
Encode = Encode & NumberToHex(lLngEncrypted, 4) 0 i8 d/ E  p8 U1 b
Next + i0 T! m/ B9 |: t
End Function 3 y) ~6 w* a; w' E5 \, P4 @2 A# X' V
Public Function Decode(ByVal pStrMessage) 0 B& s7 c+ M$ M& z; g
Dim lBytAscii
Dim lLngIndex 8 z9 @& V8 I* C, o9 J. A2 M' R
Dim lLngMaxIndex 1 l, |6 z/ X& h
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) ) T2 r& e& A5 @: \  I( D
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 4 ^7 N( ~$ _6 [  D) i
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) * R6 R) L/ t8 Q+ Z: |5 o
Decode = Decode & Chr(lBytAscii) 9 r+ y. X6 h: o7 G
Next 9 k$ B" M4 s4 s1 y, z" Y
End Function , S% e0 m  c9 v: h; H
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) . h' t" q2 \8 k( U, j
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 2 }, H/ m' a8 i4 s6 R# v8 E
End Function 5 Y+ S9 n3 F) y9 {
Private Function HexToNumber(ByRef pStrHex) ' L2 `; Z" \( X! ?: A
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE ! z+ G: Z# v  u( j; j
Dim LngKeyD $ V1 r7 P& D4 \4 w6 v# U
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 0 z9 j  Q1 J: \0 b) x; f, U
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 7 r3 x+ L0 `: P, O" ]3 S
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN + J" @# a- J9 b" [- l" `1 _/ {
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function& p" N4 E6 N$ p% G. F0 y7 R
Function Decryptstr(Message) & q; C  x' l+ T
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 8 {  V9 y0 |/ ?" S; u" O" ~5 K" f
Dim StrMessage ; v: ~3 V# @3 Q5 l# A  z/ _* k
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 0 ~- Z: z) ^9 Z0 R9 K9 B+ v
LngKeyN = "29893"
StrMessage = Message ; k: l+ J1 e# A3 j  J' X& L/ M3 V3 L
Set ObjRSA = New clsRSA 1 U8 ^0 k' U: [5 [$ S( I
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ' s1 l) W9 v& [( m( W* \0 T/ f5 p
Set ObjRSA = Nothing 5 R4 u! k  V6 E, ^
end function 9 V8 j4 o1 s1 E  ?* d) q/ K; K0 e
%>
===============================================  n1 a7 F: r2 y
+ o/ A; Q" D6 M+ z; B$ g' G
还有一个用于测试这段代码的test.asp. H2 E6 o8 S# b& Q) q
有兴趣的自己搭建个IIS测试下# M! Q, \6 `& T
 / w& V+ h( p8 o2 i4 U# x2 l  h
<%- n: u2 w: K- V! K* \
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD / O- Y. \/ e- S4 j3 c
Dim LngKeyN $ X. D3 I1 n, P5 T7 g2 v% ?& y
Dim StrMessage
Dim ObjRSA + C  V& Q5 q7 Y8 _: ?5 M. ^% n9 Z
LngKeyE = "32823"
LngKeyD = "20643" 6 G" H* r# K4 D. D- _
LngKeyN = "29893" / E' G/ E3 x% b7 G
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ; R; L1 C1 X4 I9 h* h8 Z3 L
Set ObjRSA = Nothing ) C0 X/ ?) K! W; h% {; k" X) L. s
end function : s) d, w2 W4 V/ }5 J! ]9 y
function decryptstr(Message) # r* D; a, o# m- R  r# r6 B4 u
Dim LngKeyE
Dim LngKeyD . O- Z5 w, v' E5 @; Y0 _; t& F
Dim LngKeyN ' E, A. G  r2 M# Y5 w9 T. P
Dim StrMessage 4 i* F% N! ^+ B9 m
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" $ v; F: w$ a. ~% _) {4 S
LngKeyN = "29893" % G5 Q* e# }$ h  a8 d1 Y7 C% d
StrMessage = Message 4 t7 i$ [# p  m8 t
Set ObjRSA = New clsRSA 0 U7 j8 q# f1 p+ G
ObjRSA.PrivateKey =LngKeyD + X: k% {+ H# G& ~$ m; k  h
ObjRSA.Modulus=LngKeyN * ^! F1 R; s& e4 k; a# T
decryptstr=ObjRSA.Decode(StrMessage) $ G" I+ {8 d6 P8 V% m* S/ |) k* x
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" , o+ S: I' v) L: \7 W
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 9 ?) G. I8 }  t5 g; `" z5 {9 W( D
%> ==============================================
剩下的就是字符的对照表了$ l7 e! S: f1 S  E; J
===================字符集================
1_____6EBB- Q7 W! {/ f, ?( _( R7 B& r8 c
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E8 n  [. B; ~/ O% R% t4 Q) {3 ?
7_____0A9D
8_____1A1C$ ]' @6 ~% l7 V6 r9 _0 z
9_____6D20: Q2 k- D6 b1 e4 h* {% q' ]. u% I0 L
0_____1089' n$ n3 n) N" f  Q6 t- F5 o
a_____0F3E2 Z. x! O, k5 b6 M# I
b_____3159
c_____3517
d_____419C
e_____615C$ s" B3 W# x) L7 B9 ]+ G/ \5 M
f_____556F
g_____2B7F- P0 X0 ]8 G% z" i6 p/ ?- }
h_____0F9C
i_____00FA
j_____5A509 U& R5 q) D; {+ j. W
k_____2850, I2 x3 Z; E5 P' f5 G
l_____3E7B7 T7 G7 z" P; A1 Q- |# a
m_____71C58 t! E$ j4 x" Y- }% f
n_____1FC81 Q/ T# t: v8 e0 G4 |! w
o_____74C1
p_____5FB8: q- e' U* j- H9 e
q_____6085
r_____3AC4
s_____2F50% U! V& H! P. `* J. k. f5 R" g
t_____36F8- w  @% \5 Y* o& Z
u_____7010# {( O. f' d- u8 T
v_____0B42; P9 x3 j& J& `6 V# k
w_____1C7A
x_____16F8
y_____2EE7; a5 F( Z: H+ M  \6 W
z_____5CF3! \0 q0 i. A1 \% l0 H: l3 j7 b
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA- w6 q5 f/ v' E6 |; M, f3 ]
&_____62B9! S' B' G! a! {) T: C
*_____6301) {+ }- q; A' x0 @
(_____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 分享给朋友]