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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm1 O: ~" @4 k9 _) S: N2 T

看不懂的直接绕过
加密前为:hwy123456" U6 B6 K/ l2 S
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E0 a* v, w1 `; s; W) _

============================================3 u  ?3 O, t$ E8 f8 e
上面是当时自己校内的心情。现在已经解破出来了，分享给大家" v" r0 v+ W; U7 Q; N% Y4 Q
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP) q3 c/ d6 }4 u! L4 M: m4 W& I( }0 N" y
===============================================: X9 ?/ [$ p/ `$ V- ?' c- u# l
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ' U* {( j: `. X
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 o3 l) O5 `; O4 {6 y
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else : t5 f1 T! O( M$ Q  ?3 X# m
lLngResult = pLngMessage + M; {8 z3 a; U  K& O: l+ u, f
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next . d% \4 y$ Z# ~6 r! L' \% e2 b; [
' Mod may error on key generation 5 P( Q0 z% z3 S. K; {. `) W
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function . W9 L, S4 U! E) `7 q7 W
Next
End If % j) q2 l; Z7 m8 u' D& Z
Crypt = lLngResult * A! {4 y& d) v* U. F$ m
End Function  i* }7 b4 X2 v; J9 b
! `8 x) u4 L: g! P/ a
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted # S5 T; n4 _1 P5 F1 \& V
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii * V- H, h. {8 O7 W
Dim lLngIndex 2 ~  M. V/ m" b. S; D
Dim lLngMaxIndex + P6 H4 x3 q( A( n2 S& ~, j
Dim lLngEncryptedData ' D- G$ J: @) z6 k5 ]. `5 o
Decode = "" . N& l$ X: ^- E' F) S
lLngMaxIndex = Len(pStrMessage) ( j+ ]! V. A5 M8 z. @, E7 L" ~4 w; K
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ( H" E7 q! H# w, [' T
Decode = Decode & Chr(lBytAscii)
Next
End Function : d3 p9 r$ @7 j" S
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) + B7 ?' V  `" @9 H) V- e
End Function   w: E$ U+ q* O# v+ I2 b
End Class
function Encryptstr(Message)
Dim LngKeyE " T3 w* h9 I' W
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 6 y8 G0 y5 G# H  [/ u
StrMessage = Message 1 P7 S) [! k% ^
Set ObjRSA = New clsRSA , d; I1 e7 u" _8 W% |- V: T7 d* R  W( m8 |
ObjRSA.PublicKey = LngKeyE ( L7 A- ]% [/ ^) a
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) % t/ b+ {# ?+ A
Dim LngKeyE
Dim LngKeyD 0 Y0 k+ B" L$ ], d# ?4 t( u/ y
Dim LngKeyN
Dim StrMessage # ]6 o' t5 l% J; ~% i. n
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" $ g  s# V8 X4 y% l: H6 V
LngKeyN = "29893" - O. D9 z  B/ }' x- s
StrMessage = Message
Set ObjRSA = New clsRSA ) J: \! s! `" s& C5 b
ObjRSA.PrivateKey =LngKeyD ) T8 ^& o( D, ^, q9 q+ x: c
ObjRSA.Modulus=LngKeyN " |9 J$ Z# j, x6 c% c. U, |
decryptstr=ObjRSA.Decode(StrMessage) % B6 b5 X( r0 Y- \
Set ObjRSA = Nothing
end function
%>
===============================================  F, V' [+ `+ `' i! j# S3 M
6 |) y' y7 N7 z+ O& R  b! f: g  O
还有一个用于测试这段代码的test.asp7 l! Q8 p% P/ s% m
有兴趣的自己搭建个IIS测试下$ x& o# Y8 g6 @; e9 U: S2 j+ y2 `& ]
 & a! C' U5 `. ~7 s6 ?2 r9 N0 V, X
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage - c8 O# R* P  X' d6 n
Dim ObjRSA # e: W+ c' p/ a) U
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" , d4 I/ C9 }* ~1 E) L$ e
StrMessage = Message % ~% Y8 G# r% B+ M$ O5 z8 S0 {
Set ObjRSA = New clsRSA " Q0 [* y7 C* j1 a' }
ObjRSA.PublicKey = LngKeyE ' n+ `7 ~. t; x! j
ObjRSA.Modulus = LngKeyN 0 y0 F- g  i/ w! J; S) y0 l! D
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) 5 s- f9 s! o7 {5 ], ]
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 2 |% h% B4 K" @6 ]2 _$ |' d
LngKeyN = "29893" . M# @8 c4 E+ S. J% Z
StrMessage = Message   y. L5 e* R  `2 u" b
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 3 ]1 n' O" `7 Y8 _3 S& B9 R4 R
ObjRSA.Modulus=LngKeyN % ]+ }* M( R$ H( Z& i, e" r
decryptstr=ObjRSA.Decode(StrMessage) $ U* t( J2 ?* d* v" I" J
Set ObjRSA = Nothing 1 P) `5 F; p7 o1 ^
end function
dim last,first $ g- x8 w; \8 O  C, B6 f9 L/ X
first="!@#$%^&*()" + y; S6 ?5 L1 w8 J. g: Q
Response.Write "加密前为:"&first 9 F9 N2 H7 H- n4 n: Z2 U8 l
last=Encryptstr(first)
Response.Write "加密后为"&last 3 [, K/ F; B' H+ d( u4 i3 E
Response.Write "解密后为" &decryptstr(last) - z/ Y7 x! @* e, U7 P1 b# H
%> ==============================================! F) W( }& U  u; t# n) o/ l' Z
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F6 A- D9 C9 P0 x6 z( E6 N* b. O
3_____4D75
4_____26CC, G5 F( K# x- A3 I1 F* w
5_____4F88& f+ U, R0 |; _! b. V
6_____3F4E
7_____0A9D
8_____1A1C
9_____6D20  q. R" @/ w$ q. ]+ N2 c  g2 P
0_____1089
a_____0F3E
b_____3159
c_____3517  I% x; Z. F, t0 l8 m/ K
d_____419C
e_____615C
f_____556F
g_____2B7F+ d6 A  a1 ?) g; A
h_____0F9C
i_____00FA
j_____5A503 d+ l1 \  n! r! [/ W
k_____2850
l_____3E7B
m_____71C5# w$ ]/ @/ Z  [* p, k2 O) G: G, E
n_____1FC8
o_____74C1
p_____5FB8
q_____60854 [6 O; a$ {! }! A( s, j
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____6233
@_____3A454 p6 S9 W* k' t
#_____2291
$_____5D5C
%_____09B9
^_____43EA: n4 J, f) E' ]( B" J
&_____62B91 q$ ?- G2 Y! ~% ^* S$ M7 P+ p
*_____6301
(_____4659( U4 {$ }# q  d- E
)_____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 分享给朋友]