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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm% T; Z; u" Z* C! D

看不懂的直接绕过! b' E; z1 t1 m0 B/ T( l
加密前为:hwy123456, O  q( x& |4 @" V0 m
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 C/ E9 j" N4 t! p5 A$ a0 _2 Q
9 ?! Z5 c; Z: ?' u; h0 i  R" m
============================================% L  ?  E8 F* Q* x7 u8 T- ]
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法. z+ D1 B5 a+ u" C2 x; ~
以下是RSA算法文件
" F. d- X; e) S- S5 _: j
文件名RSA.ASP
===============================================9 |- W/ ?* L2 V/ v
<% - N% Z2 h0 Y: Q. `
Class clsRSA
Public PrivateKey   S0 p1 ?8 n  Q2 \/ Z
Public PublicKey + d7 J' c& }: W+ l8 C
Public Modulus $ r% O, i0 w! q; }& w
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 4 p; @4 k6 _' i* S  a9 r
Dim lLngMod
Dim lLngResult . x7 N8 B2 L3 t, q4 `
Dim lLngIndex
If pLngKey Mod 2 = 0 Then - f9 y) b& l" _7 c
lLngResult = 1 0 Z: x/ _  v7 u7 [* P% m% l7 G+ n8 l9 V1 ?
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 2 g1 H3 U) G) p9 A: o: k
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 4 s  U+ c  `# u" u) Q: C
If Err Then Exit Function . I( m: r( P6 d1 ]
Next 7 Z5 q3 F$ ^- W+ ]0 _, d
Else $ z! F/ p$ Z/ ?
lLngResult = pLngMessage , c+ i$ ?3 ~7 `7 Q: L- U
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 6 M. ^) ?. ~' i- _) ?* c
lLngResult = (lLngMod * lLngResult) Mod Modulus 1 U* d8 q1 Q- b) V
If Err Then Exit Function
Next 0 }- f* m( m+ L% H
End If
Crypt = lLngResult # k# U0 H; |( B0 p6 b$ ~+ c9 Y
End Function6 u* a! H6 Z' m& Q( x. M
, B8 g7 a; ?" l8 z$ E
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex . E* O4 b4 M! h9 D1 T4 R
Dim lLngMaxIndex ( A$ H; P, `3 u
Dim lBytAscii ' N. K* G2 `6 ^$ J! U/ Z7 e7 d
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex . v8 Q! }. a$ ~- b  |
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 5 X$ ]/ @8 D0 @; w# V! H  ~; E
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 6 D: O; i$ K5 r% p
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" & R2 B  O) }, n1 r, K9 `' q9 w
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 , \. Y+ s8 H9 O- [% `: D
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next ' [' O( ~  s! H# I) K1 Q# l# `1 S
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ; G; `' o- z/ F# S) `
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function ! p4 N! V  [1 i! K
End Class 6 c. B. B4 ]5 J2 h
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ' Z/ L( L' n( W3 ]
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 5 i  V' _  b2 Z
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 5 v; S9 f5 `4 F/ \( [% D. H& ~
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function/ ?3 m. {4 S# m( c
Function Decryptstr(Message) ! e# c) V/ K- y' F1 ]7 Q8 B# Y% r
Dim LngKeyE 8 H3 Z8 ?$ \* e( `
Dim LngKeyD 2 w% ?5 O# Y) _+ D. _: r0 \% t
Dim LngKeyN & z; @, H  ?2 Z+ G
Dim StrMessage
Dim ObjRSA # B) B" R6 z) }# {2 J" A
LngKeyE = "32823" 2 k  P. B* E7 M# ?) g
LngKeyD = "20643" * ^4 K6 U; ]" }+ j( h6 U
LngKeyN = "29893"
StrMessage = Message . P1 m3 z/ \# v- L' [, e* w. K
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ; m4 a7 k; P3 N. B& ~! ?
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ' Q9 k. O& c5 k  f& m! n4 A% {
Set ObjRSA = Nothing 5 G8 L8 W! _# u( o
end function
%>9 T& |' y  C6 e* Z2 d. H3 U
===============================================

还有一个用于测试这段代码的test.asp8 ^( L! \* ~" e" l
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE * K  |. ]; {" g3 i3 h- d- I( K
Dim LngKeyD * N" h5 @, @+ ^
Dim LngKeyN 3 }4 Z9 E8 d$ }& J; r
Dim StrMessage
Dim ObjRSA $ x4 j7 f6 V4 [" h1 G
LngKeyE = "32823"
LngKeyD = "20643" ( o( }* a" x+ Q+ E9 v" i4 i
LngKeyN = "29893"
StrMessage = Message   o& @8 `+ I: W* s; U' J
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 0 ?8 v( [8 G- g. |4 T3 N3 p
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing - |+ S3 X5 B0 y
end function * ^% F6 d) O  y
function decryptstr(Message) 0 B4 ^- B4 M: C. j* f
Dim LngKeyE
Dim LngKeyD   }2 h* T. Y- i0 \; x! _6 s
Dim LngKeyN
Dim StrMessage ' Z% w/ R% f( E4 K. {! D3 o
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN & z1 d/ X6 d4 H8 F% U8 S( ?& o/ k
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ( t. t+ O9 E. ]+ S2 Q3 g  @
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first % {6 \- L: x+ {2 G
last=Encryptstr(first) $ e) d9 Y' |' L) Q
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ( e" ~7 s5 `/ H% F9 }
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C  m, m9 P1 ^; _2 b; p- g& B
9_____6D206 ]; S/ B2 f) k% z8 O4 F& B  z
0_____1089& J5 g+ X( y6 S2 y7 C' y
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F1 d# H$ W2 V+ ?2 Y7 l
g_____2B7F0 a( T& H4 h/ S' N( f# }
h_____0F9C4 @9 F4 y+ i/ `$ `6 y
i_____00FA
j_____5A50" H0 G: M: e  T  ^( b& `: h
k_____28502 o; A8 W9 s- E9 |8 d& A6 N/ [
l_____3E7B
m_____71C5) W. [" j/ d+ x& c" p2 M! P& z
n_____1FC8
o_____74C1
p_____5FB8$ {( z5 e6 K$ `
q_____6085
r_____3AC42 g* ^1 `3 T, z9 y  K  K$ b
s_____2F50
t_____36F80 S" ?  \# J- r: B% r+ J$ t& o
u_____70105 H2 Z3 h% L3 d& Z
v_____0B42& C) j, Y+ |; `5 ]; K. O: Z
w_____1C7A2 ^- H7 d. J4 \) `
x_____16F8
y_____2EE7
z_____5CF3
!_____6233( d% J2 o- e- ?6 z
@_____3A455 }2 e2 ~5 X% Q# ?# p( B
#_____22919 M, u9 s( i$ f( z1 v! d
$_____5D5C
%_____09B9
^_____43EA4 @% t( ^- e" n% y
&_____62B9
*_____6301$ Z, d4 I% A3 P% {" T  t
(_____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 分享给朋友]