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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
- ?; r: S' I" A) h0 h! b
看不懂的直接绕过- N4 ]5 f1 T, k* M0 C
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E4 @' j9 Z* a+ l# p: x
& X0 E' [, K& Y' e! _
============================================" j5 f; a3 t$ D1 B6 q, G
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件$ V0 |8 i# ~1 H
( y' F7 H- t% i
文件名RSA.ASP+ c, C' v! G, L( E; ^0 Q
===============================================
<% ( h5 R- F: m: R# p
Class clsRSA 6 n- X+ q% F3 O2 T% q! I
Public PrivateKey : C: B: i+ O* Q1 S% b2 o
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod ( i# ^7 Q, s6 F2 x" u2 n7 f
Dim lLngResult ! i$ w" Z: Z5 }" A9 ^$ i
Dim lLngIndex # D( A6 T$ F9 \! S
If pLngKey Mod 2 = 0 Then . R3 }0 k. v/ u7 [- ?
lLngResult = 1 1 d( G3 n8 k' o  d1 Z* z3 U
For lLngIndex = 1 To pLngKey / 2 ! r! ]: H4 o- Z2 F
lLngMod = (pLngMessage ^ 2) Mod Modulus ! N  I% \& O# a( o7 R/ x1 V
' Mod may error on key generation + Z: u, ]* T2 B! G1 B4 S2 B
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 6 ~( ^9 R" ]$ ]( a
Next " e8 `# ~$ k8 z) u
Else 2 v( E+ v8 R7 \* D
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation + f3 j$ ~7 A! J1 X
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If , g% J7 W5 f& ~
Crypt = lLngResult   p) d# I$ f8 {! Q1 A/ c& ]
End Function

Public Function Encode(ByVal pStrMessage) , i2 M3 N' Q, K+ I' [6 p
Dim lLngIndex ( O$ p) v- T+ g/ d# N" H+ s( k9 J4 s; M
Dim lLngMaxIndex 3 d) y# [7 _" w( M* R
Dim lBytAscii ; w" @& ?" T+ V' t6 A5 i6 n
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 4 ^0 D, D0 X# o$ Z; |
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 7 G+ @0 p( c& y5 Y# a/ X# M  F# H7 V4 W
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function ' {) r3 z' s% t& c3 D+ Q2 f
Public Function Decode(ByVal pStrMessage) / C; y5 a+ |% @
Dim lBytAscii & O, j' w8 P) w# h3 I+ S9 J
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 2 h" L* t* O2 V5 O
For lLngIndex = 1 To lLngMaxIndex Step 4 : f3 O$ Z" U5 _& n
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 2 [$ B1 ~. I+ m' X
Decode = Decode & Chr(lBytAscii) . J7 f, I; h% h+ }3 s$ k
Next ' M" ?& L; y" m8 n& x. I- O. O0 U4 H
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) & w7 W/ r0 V1 R+ g/ d8 Y
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 5 D$ @6 p+ F) x/ G' I/ R
End Function
End Class ( U  g. D1 N: I$ l  Y5 t  h
function Encryptstr(Message)
Dim LngKeyE 4 p: |# D8 d% x
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 9 }7 x+ W: c* j0 r/ |
LngKeyE = "32823" 2 a$ g7 I; C4 B' J6 [9 A
LngKeyD = "20643" 5 _: G7 }3 P  x% d5 z8 Z. W9 n
LngKeyN = "29893"
StrMessage = Message " u2 T2 {; L3 B5 N  @6 Z
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 7 ?) e: T3 ~  m& e2 r& p
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 3 s: M2 |" i- O5 |4 j1 V
end function- `: }7 k* F% z9 V1 |% Y6 X$ @
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ( c$ U% L/ S8 H4 c, M
Dim LngKeyN
Dim StrMessage - I4 f3 ^+ ~2 h: b& Z6 j$ U2 w
Dim ObjRSA : h/ ?/ z0 w: O6 l4 `9 N
LngKeyE = "32823" ! e! t+ ~( A5 C, c- _" m2 T  T; T
LngKeyD = "20643" + x0 t/ J, w# O. O/ q
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 3 v: d0 F. M% ?5 f/ z
ObjRSA.PrivateKey =LngKeyD 7 v! M* A4 {: N
ObjRSA.Modulus=LngKeyN . F+ D! S# F6 j8 R0 R+ ]& ^+ o
decryptstr=ObjRSA.Decode(StrMessage) 2 E" _" M  `0 H' x2 l3 n3 s# C
Set ObjRSA = Nothing 7 A9 z) j' G. z6 a. D
end function
%>
===============================================
! b+ E* _, |; z: [' C
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下( s; S+ G. u7 ]& X, e8 V
 1 I5 u, v9 j% C
<%
function Encryptstr(Message) $ Z7 h: T4 d9 w
Dim LngKeyE
Dim LngKeyD $ l. U- _, b6 B$ D0 R' u) U/ \
Dim LngKeyN # V& S4 \6 \( v1 C6 A
Dim StrMessage & u; S: x- B6 k8 h
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ) C8 g" [9 y8 {* E# Y8 l
LngKeyN = "29893"
StrMessage = Message % ^, W5 e) Y# H
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN ; r! P4 h4 O7 S4 J
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing & T, G7 m/ l8 T( X2 E
end function ) e  b1 G' V5 M1 c
function decryptstr(Message) ; k" D1 d, c) i. k9 T& y' t+ D
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 0 U! }8 t! x" e6 g! J
Dim StrMessage # Z% y1 W/ l- a$ R
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" . U1 C7 m: M6 o' b  L
StrMessage = Message - f! Y  z; C" d; E* {- r
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 8 B; O. \, w4 t; a" d  _
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) $ m" ]$ u; U' h' Y2 N5 U$ A1 y$ R
Set ObjRSA = Nothing - X( U; }7 z9 E1 C3 @1 K
end function / o+ H. a. b- f6 E. T
dim last,first # C, _' ?9 k& ^0 X
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ' m2 n+ D0 v& F6 \# `& x
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88' u4 P% V8 R9 O* G2 ?$ a' ~
6_____3F4E, G/ _3 q+ v- ~8 V
7_____0A9D
8_____1A1C
9_____6D20
0_____1089: C; j5 A. V" j6 U+ I. b
a_____0F3E
b_____3159& T  W- ^" ^( p
c_____3517
d_____419C1 @; T0 t3 T* T  i0 y+ A) G
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C50 L" K- a: }! V! B0 h: E9 A
n_____1FC8
o_____74C1/ \4 {- k5 W; l+ x
p_____5FB8
q_____6085& g+ [0 W% ^9 [  i) @- \; I
r_____3AC4/ G+ m. @6 s$ v2 C, I# x
s_____2F50( \3 s3 z- B' b$ d# t( w, p9 O$ }
t_____36F8! d( n% V6 H0 c  q
u_____7010
v_____0B42& w2 l% e+ U# A! b9 n# ?* V
w_____1C7A
x_____16F8* j% F+ H# t$ \" L3 G
y_____2EE7
z_____5CF3& r" D) ], G& T! Q; Y
!_____6233
@_____3A453 W* t  J$ u) w6 B- l
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9' V* K" y. i! q. o- ~  Q9 p! j8 K
*_____6301) T4 i7 |, ]2 k* r
(_____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 分享给朋友]