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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm8 d6 k+ o' d! V' V1 v: M* k0 h' U
$ o6 l( O1 Z9 l$ H) p3 G( ~
看不懂的直接绕过/ @% G" R# _0 X6 V% b; E
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E! d  P( Y3 D9 U

============================================' X0 L/ C$ d4 {' K# {. k$ A; z1 J
上面是当时自己校内的心情。现在已经解破出来了，分享给大家" [; M, G" S  l5 V' W! f$ ^
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法+ i% w/ _2 B: d# q' D  B2 o
以下是RSA算法文件

文件名RSA.ASP/ X7 h/ M. w. _: ]! Y
===============================================
<% 9 n" {' o& Z  p' K* E( V1 F! J
Class clsRSA
Public PrivateKey / D' i* M  h; g; U* f$ w) u/ b9 c3 F
Public PublicKey " W* j+ |0 S  k% Z. V
Public Modulus . q# |" B2 @* U' f  X
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult 2 U! Q$ ^, |/ ^, d& L
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 : P, f, e% z! @) }- y0 n; F
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ! v  \( i. c, l+ V' B( `( o& H# K2 e
lLngResult = (lLngMod * lLngResult) Mod Modulus ; Z; k/ ]/ v  |$ g
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation - h% s1 h! b* A; I2 W. J
lLngResult = (lLngMod * lLngResult) Mod Modulus . F4 m3 m  X: v5 P
If Err Then Exit Function
Next ! y# ?( F4 A0 H* G4 Y
End If
Crypt = lLngResult
End Function* q. M4 `& f$ F4 d6 K6 s, ?; P9 W
1 W+ W; B2 @/ J8 h+ L
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 4 `5 E- u  [. ?5 i
Dim lLngMaxIndex
Dim lBytAscii ; B3 K5 z8 y, f! @7 ^3 g5 R
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 9 s4 J3 T! _0 {& i3 v4 r' Q4 e% `
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) # ~; c3 R  R4 q0 a  R7 ^2 }
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) - J) _) V9 O  \2 x1 ^8 \+ b
Dim lBytAscii , o  i8 U) u0 p
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" ; `1 D- C  C3 \$ @$ M8 M9 o
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 8 q7 y3 `9 J  H" \* B
Next 7 _+ d& _6 o5 w9 F# u
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 7 g) M9 L; A3 B& ^+ E
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) - ]% A8 R/ h; d% a4 S6 S
End Function % U  m5 M  Y( f! r5 n
End Class
function Encryptstr(Message)
Dim LngKeyE + ~& @" o9 v8 r' h& |( m; y8 z
Dim LngKeyD
Dim LngKeyN $ y! Q; y3 e& ]( s6 Y: X, v
Dim StrMessage
Dim ObjRSA : x( h0 }  p0 t
LngKeyE = "32823" ! ~/ e2 K* U/ l3 b0 {  P- q3 y
LngKeyD = "20643"
LngKeyN = "29893" & n# B' Y0 i. L2 v% G5 D& g
StrMessage = Message $ h; @# j" v( A) ?$ R5 {. J
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 3 t. {4 g6 a( O' F  n" m  B1 V
ObjRSA.Modulus = LngKeyN / `/ m; z+ W2 S3 X
Encryptstr = ObjRSA.Encode(StrMessage) 1 [- r. v( K5 o: d! B: s1 L0 d2 S
Set ObjRSA = Nothing , D% s* a7 S0 _) U8 ?: i* ?$ c0 m
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD $ e( ?$ L5 k2 q: B7 l
Dim LngKeyN 8 G9 Z+ X5 v: W6 l5 f, {4 `: V
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ; j- g+ n/ l9 Y( K% Y6 c
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 0 s! O5 W1 ~! [
decryptstr=ObjRSA.Decode(StrMessage) 3 [! D6 M" V, m  b8 {
Set ObjRSA = Nothing 3 X/ j/ }% y" W; b* O
end function
%>
===============================================
; b; ^: n; f  Y& _. w) H3 E
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下0 l* i/ ~7 k# J, I: k

<%
function Encryptstr(Message) ' e) z7 u- x2 Y
Dim LngKeyE # x0 D: i, s& l9 S* w- b, i( O. c
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 3 G+ s0 |1 }* F5 e6 ^
LngKeyD = "20643"
LngKeyN = "29893" $ j! d6 \# i! {! @
StrMessage = Message 3 x6 T: e. {6 \; v( i& E  z/ k
Set ObjRSA = New clsRSA ! r$ h% w  P) \- h+ l: {! }- p( G
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ( b7 w; C# x2 R0 o* ?! t
Set ObjRSA = Nothing
end function 3 W" e% f  F# ?
function decryptstr(Message) 6 k" g8 d2 s1 A! }- `
Dim LngKeyE 9 c) ^" g9 W. ^: n6 |
Dim LngKeyD
Dim LngKeyN   z* M) [/ t9 w0 x
Dim StrMessage
Dim ObjRSA + S- G  ?8 ~/ D7 D/ j
LngKeyE = "32823" . A! }5 d# S* m; E8 t" R
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 0 F  L1 W# B9 A6 a+ w5 X$ P
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 5 ~/ h. S: S+ L2 Q: P' s2 ^6 H
Set ObjRSA = Nothing ( L& [- H" t  b/ g) U) b: a0 I; x& W+ l
end function 4 R+ A/ T. }( p% u7 P6 W; J
dim last,first + N* K3 ^% I, [. [) p7 u+ ~2 T
first="!@#$%^&*()"
Response.Write "加密前为:"&first 9 W7 B4 m% `2 R6 B( y
last=Encryptstr(first) : a% [: x" ^4 D- ]' X  p
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了$ c5 y" p: S8 U2 G7 a7 C  R% \
===================字符集================
1_____6EBB
2_____5C1F) @5 y! z' N- p6 w8 _
3_____4D758 `( S2 u, g% }* d0 G- i
4_____26CC4 i, a: z# Q) ~% a/ o2 a  e7 `% ?
5_____4F887 Y4 y+ N; ]& l/ N* C% Y
6_____3F4E
7_____0A9D9 l! @, ?; W4 _) o0 P
8_____1A1C
9_____6D20' X1 w8 J8 p7 b  X5 ^
0_____1089/ ]9 G5 S/ g( a9 c( m8 k( N3 w
a_____0F3E( n2 \( v# S' }4 p
b_____3159
c_____3517
d_____419C
e_____615C6 o5 h3 o6 s3 f& ?6 o$ W: b4 c
f_____556F/ k6 r3 M3 e/ b" a# u) N- `* }+ O
g_____2B7F
h_____0F9C( Z- }: ]' q' z
i_____00FA0 B1 ~6 P7 L6 W# w. d
j_____5A50$ C3 _# ]* G1 o: ~. D6 J
k_____28503 J% H; a( a" l5 \5 s3 `) V* a2 M
l_____3E7B
m_____71C59 O& O" B2 t5 n( G
n_____1FC83 y+ B! ?& N0 s) Q2 W+ ^
o_____74C1
p_____5FB8& p& f8 y2 @2 r% u5 R1 w
q_____6085
r_____3AC4* J5 X6 r2 y' w1 {, G  |9 Y
s_____2F50% i2 O7 W" s6 Z$ C
t_____36F8
u_____7010
v_____0B42
w_____1C7A: n3 p+ z* m  M) V9 m9 k% ^
x_____16F85 u( R2 b0 t) \9 ?2 d. y" y0 S) X
y_____2EE7
z_____5CF3% ]6 U3 m  c% E& S
!_____6233( {, }+ X, M1 R; ]- P  l
@_____3A45
#_____2291# [$ `" n# t+ I# y( @' Q/ j9 j
$_____5D5C
%_____09B9% c9 E3 }& Z, {: N1 H) s. s
^_____43EA
&_____62B9
*_____6301% X& T# p2 `  B) w$ {7 P# }7 _
(_____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 分享给朋友]