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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm% ~( e9 {7 O/ A+ {* d
% J4 d, z, k6 ^6 V9 u3 }
看不懂的直接绕过2 R9 h; V' I: v1 I3 F0 v
加密前为:hwy1234564 O. y& z+ a; C1 N% F4 {  [
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
! V4 h! C7 I+ c0 j+ |$ r" t2 W
============================================& x) J$ [, {+ G7 f& p( c
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件
5 l4 b6 M- A1 g7 a) L' c. O
文件名RSA.ASP- G; I7 B$ M" E  X8 L, ^$ ^, g) C0 k
===============================================1 q9 G7 E1 i* Z- {& u
<%
Class clsRSA 9 x' o+ C* X7 I, D
Public PrivateKey & J& B- Y6 V/ c8 F, E
Public PublicKey % ^9 O8 Y0 U( `! g! u+ c8 f
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 1 ~3 X& ~2 S8 }0 h# _
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex 4 D% z" Q9 g% m8 x: ~2 Z
If pLngKey Mod 2 = 0 Then
lLngResult = 1 " a: n0 ^6 @! L; r
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 3 i; |) x- {7 A( e* }1 s5 u; d
If Err Then Exit Function ( j: J8 X  X; M
Next
Else
lLngResult = pLngMessage   C: i* C) S9 Q* f4 F
For lLngIndex = 1 To pLngKey / 2 ! z% ?2 d$ C: W2 J! J3 E
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 8 V0 t/ \1 s6 R% f& r1 q5 {
If Err Then Exit Function
Next * N# Z2 A6 U1 l+ B5 m+ @
End If - ~4 f$ U9 x  J) h
Crypt = lLngResult
End Function
3 s. \( C' G* ?; b  |8 n& t
Public Function Encode(ByVal pStrMessage) 5 R, u/ A1 a9 L. Q) h
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted $ V( v+ `; ]( X8 i
lLngMaxIndex = Len(pStrMessage) 8 n# N" W- G/ U
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex ) `7 X2 o; I7 V+ F
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))   @9 T7 D2 v, O8 c+ H" j
lLngEncrypted = Crypt(lBytAscii, PublicKey) & @4 y9 d! q) h+ F$ ~" A
Encode = Encode & NumberToHex(lLngEncrypted, 4) " c* p% I. U3 D% N% y. D/ E
Next
End Function
Public Function Decode(ByVal pStrMessage) 7 h* ~# J; }" \, M/ d+ i  P' v% Z
Dim lBytAscii , A2 G4 W+ E# R  v
Dim lLngIndex / r. G9 S7 f, x' A9 ?
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 5 z8 z4 y1 t8 A+ G
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ( j& R# E9 }. U7 G5 T& M+ R
Decode = Decode & Chr(lBytAscii) ! H3 f7 [( R+ J2 p+ a
Next
End Function 5 P2 S3 F% m6 n! J
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) & ?+ g# @" ^7 C. t
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 4 V7 ~1 ^8 {' a! {8 K' W& `+ z
End Function ! [/ L. l+ i! z; \" h( }
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) " w  w" F2 P6 |1 c' g# ^
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ! l) `2 O& c2 f8 p. T- z5 o9 B$ U
Dim ObjRSA   |3 G$ Y# h9 j1 N9 @  g
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" , u  a* n( o& k
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN - k  _+ u0 q# D3 C
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 1 T8 W: s5 i2 ^0 ?) Y0 D; G8 u
Dim LngKeyE
Dim LngKeyD 2 O: @" O- f' v. K0 S2 V- Y
Dim LngKeyN
Dim StrMessage / u8 }2 a4 v" h9 u
Dim ObjRSA   V& ^& O$ q1 c* d/ b* W
LngKeyE = "32823" / r% t/ s9 V2 H! k& H: k- ^! R
LngKeyD = "20643" + E8 o& g) }1 Q; a. U' z
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 7 X# q, \  I( W4 G5 p
decryptstr=ObjRSA.Decode(StrMessage)   b% P9 B6 \) \1 [
Set ObjRSA = Nothing 2 j8 p( `' O/ e$ i/ c
end function ) i7 L- f3 n8 r3 c7 H& P
%>- h3 u0 k; W  S; M* w
===============================================
' ~+ t( @5 O; f7 M
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 ' V, O3 ^. h& E7 ]- F
<%
function Encryptstr(Message)
Dim LngKeyE ) ~% w3 `  ?' `9 l
Dim LngKeyD
Dim LngKeyN , p! S& T8 Z6 t- c' l$ ?' [
Dim StrMessage
Dim ObjRSA ( N& T* }3 Q9 F' r7 C
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ( ~* F" X( g4 M% I# ]
StrMessage = Message   o9 B6 e; T* M1 o7 _
Set ObjRSA = New clsRSA & b+ ~+ B: }$ j/ Q) k1 m3 {
ObjRSA.PublicKey = LngKeyE & I7 l" G2 u+ o# o9 @1 {; n
ObjRSA.Modulus = LngKeyN 7 j# Z) \& C& ~# Z
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing : ^. g5 }7 G- Q, x0 Q  i  S) {
end function
function decryptstr(Message)
Dim LngKeyE % }# b& x4 E  F4 z
Dim LngKeyD
Dim LngKeyN
Dim StrMessage - r( z7 I( X. r- L7 H/ S' ~' z0 H0 {# W
Dim ObjRSA
LngKeyE = "32823" . J' S# T0 B4 e1 J) {# S+ B
LngKeyD = "20643"
LngKeyN = "29893" 9 [2 X- s# m) n" o
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 3 @4 F' q# o" j' H, l( R) R
ObjRSA.Modulus=LngKeyN * t% i( b- t4 c* ]& i. K
decryptstr=ObjRSA.Decode(StrMessage) " e7 c/ w; V6 t- ]* D0 f3 d
Set ObjRSA = Nothing ' x- b/ e9 ]  u; Q
end function 1 r- e' ]8 M. @
dim last,first # R& h* N: g, t9 ]& P5 y6 T
first="!@#$%^&*()"
Response.Write "加密前为:"&first . \: `+ i4 Q# ?7 G6 H: D
last=Encryptstr(first) - m/ G9 |3 R# W) Z3 O
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) . n- c  ?* V1 C! i+ D
%> ==============================================2 r6 m8 v. X2 K! H1 A
剩下的就是字符的对照表了/ Q3 x0 v( S2 V% z
===================字符集================5 `# L9 X9 i0 Z! e/ N# R
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88- O* m3 \( X( s' Y+ N
6_____3F4E) O3 r5 D7 {- g% `3 D
7_____0A9D
8_____1A1C
9_____6D20
0_____1089! D( Q, T, r  l, N3 L
a_____0F3E
b_____3159
c_____3517
d_____419C9 P9 _, a% Z# m( _
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A506 Q& y# M2 Z! [" i
k_____2850
l_____3E7B
m_____71C5
n_____1FC8; s! Y4 o( h: D$ Y$ a
o_____74C1* G: C' w3 W* Z% `
p_____5FB8
q_____6085: N6 x7 S& y7 j# i5 s
r_____3AC4! |" `" {2 g( i1 r4 x
s_____2F50) q% I+ |# v6 D
t_____36F84 i$ [/ ]& U; ?6 \
u_____7010
v_____0B42& i5 _1 I! ^$ O* y
w_____1C7A
x_____16F89 Z( L) u, a- ]* M3 }' n6 {5 r
y_____2EE7/ M  y) U/ F5 W1 o
z_____5CF3# F% N5 z9 C% Q$ `" K7 w( K
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9
^_____43EA3 a5 d( J$ r3 J# P6 S/ i; j
&_____62B95 F/ m/ [4 h6 x9 Y, c9 u+ x. M0 r$ _0 {( g
*_____6301" X( `( Y6 {5 W) L8 \2 ~+ a9 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 分享给朋友]