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

算法, 大学, 研究

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

看不懂的直接绕过
加密前为:hwy123456- c& `+ o* \4 T# ?, c5 ]
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
' Z3 V/ N6 k" F5 U3 P: `- `
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法# n4 h3 v! F4 s5 @0 {: d$ z
以下是RSA算法文件8 R$ Z+ R" G1 J- T/ G% J
" Q2 f6 }  `# Z  t( e, F
文件名RSA.ASP
===============================================# M7 D7 Y7 b7 T* p& L, z
<%
Class clsRSA
Public PrivateKey
Public PublicKey 2 n7 ?8 Q* \) l8 k! G; L2 ^; h
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) ! B' X8 R* M/ m2 j: I
On Error Resume Next $ d' m% h* F9 s- Q  U- ^
Dim lLngMod 1 U% ?$ x5 R' i
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then - q0 f4 J; v  _$ m/ _4 H' T8 W
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 8 Z8 }* {( b' C! ?% ~; C* G4 [4 h
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation " U0 X4 k' @9 D6 y: A) g
lLngResult = (lLngMod * lLngResult) Mod Modulus ; d  J. W4 s: {7 U% v
If Err Then Exit Function
Next
Else % i# X: t9 M$ h" Q
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 _0 U$ }( i: B7 ]( m% G/ o% g
On Error Resume Next . W0 o  x- b" w, _% @6 |; C
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 6 }7 n0 ~7 k, c/ |  Q
End If
Crypt = lLngResult ' v% R: N! I1 ]
End Function! M; F. s4 T& |
! `1 l! d# w6 `- P
Public Function Encode(ByVal pStrMessage) % ~4 ?' i9 I% I) x
Dim lLngIndex ; E- k* x: @* G" x; u
Dim lLngMaxIndex " m5 ?1 w; I& C
Dim lBytAscii
Dim lLngEncrypted " a& u# f5 D! s
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function . u3 x5 F( K0 b4 Z4 G
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 1 T2 i2 C3 s* O
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 9 t& F& N& I) h
Decode = "" 0 @1 t$ O: Z  z# x; X
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 + ]) `( [* j" I  v0 j4 q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 9 [& h: v/ S  |) `, l- V' q% j
Decode = Decode & Chr(lBytAscii)
Next
End Function ( i9 U  D- B" g- {( B
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 8 X% K6 B1 ]1 f9 B
HexToNumber = CLng("&h" & pStrHex)
End Function 0 t  T2 E. y+ G4 u
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD + o4 T! C) o, D1 `1 s  N; X0 o% c
Dim LngKeyN ; x1 ]1 a  Y7 Z; k7 ]
Dim StrMessage
Dim ObjRSA . h' o3 p# O# ^: z5 l; S5 B4 a+ d. E% W
LngKeyE = "32823" 8 B$ j' i+ r% r/ Z$ i- z
LngKeyD = "20643"
LngKeyN = "29893" 3 L  r0 T0 _* L  G' k
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 8 c8 q1 Q/ S  V  e# I
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) $ T# f) Z8 }5 L9 g
Set ObjRSA = Nothing 8 B( X, k- |( f  r4 h( `
end function3 n: W0 E5 x+ A8 H3 s/ v
Function Decryptstr(Message) ' g, \# v+ k) p, X! y, a/ ?
Dim LngKeyE ; V" l2 W. w) O
Dim LngKeyD $ _! g* a1 }6 S% b/ n+ r; U
Dim LngKeyN
Dim StrMessage
Dim ObjRSA / c( L! R, w/ c" p! `0 y& F8 y2 \, v
LngKeyE = "32823" ; @# |5 N  X  ^$ t
LngKeyD = "20643" + Y& _) {7 G8 X2 P7 a) Q
LngKeyN = "29893" 6 J9 x+ ~( h1 F9 `* [; Q) R  d: {
StrMessage = Message 0 A0 X/ Q7 C0 d7 i+ k
Set ObjRSA = New clsRSA 3 ]2 E0 k5 w, p7 i; v2 s
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 4 g: |1 r4 }! M9 `1 o6 a
Set ObjRSA = Nothing ! N/ C2 U; _; W4 a) M2 M
end function 7 n( p: \6 X: x) r$ }2 }6 N# j
%>0 [! g& Q: ?# Z! B# u
===============================================
  |6 ^5 q( ]( M+ N; B$ m) t
还有一个用于测试这段代码的test.asp+ \  F; f2 A/ u2 s6 H
有兴趣的自己搭建个IIS测试下
 ! O: }! s* U6 O& [( d1 g' k
<%
function Encryptstr(Message) ; @' Q# ~" K+ b9 b& ?
Dim LngKeyE
Dim LngKeyD 0 P4 B+ c! R) `% O  U
Dim LngKeyN
Dim StrMessage
Dim ObjRSA % E* ], G5 p" K( e; e+ G9 U) X
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" : u3 Z) B. a4 M, U9 A
StrMessage = Message : [$ Z7 [. K$ |, d# V  a% W
Set ObjRSA = New clsRSA + X$ m$ p4 z, n8 A6 [9 W3 i) p
ObjRSA.PublicKey = LngKeyE $ f1 A7 B" I; Y8 P; H) U  u
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ' o- }0 g* q6 G6 h- {
Set ObjRSA = Nothing
end function
function decryptstr(Message) - Q, z# B9 x; h; F; w9 S% R% t
Dim LngKeyE , N/ V! d/ L% r) w2 Z* P3 ~
Dim LngKeyD ) y/ _& M/ c! B; q) [1 r
Dim LngKeyN # m1 N* i" I/ y, D, s- i  `* R5 N
Dim StrMessage
Dim ObjRSA 6 Q9 u0 C7 _! _; o3 y
LngKeyE = "32823" 3 b- l" [# Y5 R5 C% L7 d
LngKeyD = "20643"
LngKeyN = "29893" - E% ?4 a7 A1 Y) }0 Q( v/ C3 |6 W
StrMessage = Message
Set ObjRSA = New clsRSA 4 e# s7 U6 |0 u" ^; J
ObjRSA.PrivateKey =LngKeyD 1 \! x) ^  P$ D
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 6 L' S  L, A& D$ S3 d
end function 2 i0 A& s  F( {# d' b
dim last,first
first="!@#$%^&*()" ; v7 p! m! E: g5 T& I+ S
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last : J; {' U4 M; H, A
Response.Write "解密后为" &decryptstr(last) 8 H- b* z% ?" `4 }
%> ==============================================+ [9 O, l, ~9 E! \; l2 L3 @
剩下的就是字符的对照表了
===================字符集================
1_____6EBB& _: g4 P3 a9 D
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C! X* h* O. l9 s- g' n
9_____6D20
0_____1089
a_____0F3E; v% }$ I3 ^9 L5 o3 l; H" a
b_____3159
c_____3517
d_____419C
e_____615C$ Z/ q& g0 B3 C, _) ?' ?
f_____556F; Y7 o& E; K) Z' j, k  h
g_____2B7F, `& ~# `( _0 h0 ]
h_____0F9C8 k4 l& @5 u9 h
i_____00FA( C. `' Q0 F! V. O4 Y- ?. Q9 a
j_____5A50
k_____2850( D  P6 G& P* j. q
l_____3E7B% J8 m3 F) d5 B! j& o  z6 Z
m_____71C5
n_____1FC8
o_____74C14 D( W0 L8 Y5 w
p_____5FB8" m3 d0 K2 D7 f$ w9 c; z$ L( @3 }
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8* I0 y3 f$ ^& B6 d. u
y_____2EE79 J4 t0 Y. i4 ?' f" }" e
z_____5CF3
!_____62333 c" w" j4 \" H5 v4 d- R
@_____3A45& b# o9 R( g+ r5 K* q
#_____2291) L5 i2 k/ b1 p" @8 `$ I/ {$ V
$_____5D5C
%_____09B9: c( N  B/ k) L4 S2 Y; a
^_____43EA
&_____62B9
*_____63019 u$ Q! {2 J( K# J+ r& h9 U  [' q
(_____46597 ?- b2 D  W, ]9 T; d+ }
)_____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 分享给朋友]