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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm( n3 Q. \5 N, r( v6 J& u4 r
原始出处：http://www.3ast.com.cm! o4 b0 l# u. k# V* V; A
( _; J  u! L' ]* J( d4 J0 n
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E/ Q% I" w  m  q" d" u, R' a
+ R0 V2 ]( v: L9 g& W- E$ k$ _3 i; ]
============================================. v* A$ R8 Q4 W) T, x2 C- C
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* j# p- `' l+ D& ?. A- G# H
以下是RSA算法文件6 ^( C+ C) M8 S
& K+ p& Q8 G  q
文件名RSA.ASP
===============================================( H( H; Y) x$ K% v! t& ^/ h
<%
Class clsRSA
Public PrivateKey
Public PublicKey 2 n5 U4 ?$ A+ E' q
Public Modulus . h/ k! u% R1 Y7 W
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 5 c0 \  w! Z+ @% F2 ]
For lLngIndex = 1 To pLngKey / 2 3 C4 k4 M* h5 [. c
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ( E( s, i1 L' R( L' h8 U6 F. f
If Err Then Exit Function ' x; p0 |3 I0 t7 Q
Next
Else
lLngResult = pLngMessage * e2 l: Z! _6 h, x# g( l& [& a% {
For lLngIndex = 1 To pLngKey / 2 4 Y+ A. S* a, s) r: P
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next * O) y' @* ^$ U0 d0 X6 W" p- f
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next " {, _7 }3 P6 S& q( i; N
End If 5 _. V! o; m( l; j: z8 [& g6 W, v
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) 1 V0 V; E, O7 v  }2 x
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii ' F2 X/ [" ~3 C# w- m% X& c
Dim lLngEncrypted 6 z* k1 [! n+ B! a# M; t0 N6 ~
lLngMaxIndex = Len(pStrMessage) # |" T8 P, r- ]# n) c
If lLngMaxIndex = 0 Then Exit Function 2 S6 d- [" h- L# t" ~$ G
For lLngIndex = 1 To lLngMaxIndex - w' ^7 K5 V3 e3 J5 G
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function : w9 l" U: p" u
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 0 [* Y! L' `4 z' U8 P; W: c
Dim lLngMaxIndex
Dim lLngEncryptedData * p$ j2 s2 ]1 q' w: [
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 , p7 }. i6 M/ X" h' d9 H
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function 2 W* r2 G: j7 f8 x# W
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) - N4 e- [& A0 \! k
End Function
Private Function HexToNumber(ByRef pStrHex)   f$ S) k- @9 H
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class ! D* A$ d. _9 f4 G: Q
function Encryptstr(Message)
Dim LngKeyE ) l: [* V3 w- }, ?: r- D
Dim LngKeyD 9 m1 T2 A) V6 H: `- V9 O' b) Y
Dim LngKeyN
Dim StrMessage 1 F5 X9 y, }( o3 b6 d
Dim ObjRSA
LngKeyE = "32823" 8 \- s# q2 ?) @1 x0 V! p
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 4 m+ U0 O( W$ T; h
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ; N( H4 c( v, c3 l7 J9 K* L/ W
Set ObjRSA = Nothing 0 p, B7 ~* X% q. J, t" P) J. E
end function
Function Decryptstr(Message) 6 Z$ K% T& W, Z9 E! ]! Y0 I4 O( v
Dim LngKeyE + K" g9 y, z; q+ {
Dim LngKeyD
Dim LngKeyN / ~. T1 j8 H5 _; B. j9 f
Dim StrMessage ' C( ~6 _2 g: d' y# s( Q
Dim ObjRSA
LngKeyE = "32823" 3 ]' }+ R  O- G1 @- W3 ]$ W
LngKeyD = "20643" $ a1 Q6 @) @* T: U& f
LngKeyN = "29893"
StrMessage = Message + ~7 b" p9 {+ X% W. |5 C. y" d
Set ObjRSA = New clsRSA 8 i9 f% R' _- ^7 l
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>. r, p) ~8 [) C
===============================================. }7 B$ @7 H8 m3 s3 Y1 z
0 j: H3 j" @# k' H- `
还有一个用于测试这段代码的test.asp( J' Q/ Q5 b: G5 [
有兴趣的自己搭建个IIS测试下
 ( P& [9 N1 ?2 _. m
<%' I# N  @# h3 P. P* S! \; d
function Encryptstr(Message) * u# z* u. D# s) _
Dim LngKeyE ; ~8 h3 m9 _9 O2 G5 e- D* g5 ~
Dim LngKeyD / f8 b8 r% u7 @  {
Dim LngKeyN ) Q( g+ ^: r5 G* a. z$ k+ E
Dim StrMessage
Dim ObjRSA * ]/ t2 R. W$ o) l
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 8 Q* y: Z. y6 P# u5 _& m+ J
StrMessage = Message
Set ObjRSA = New clsRSA 4 l: D. `' x/ M5 p- N2 w7 x; t' b
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN & ~; h7 I  w3 W* q" M0 \
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing # r# C2 b  ~2 l" I# m, c. r
end function
function decryptstr(Message)
Dim LngKeyE 1 \4 K, u; g: f. B: j: S1 q9 T
Dim LngKeyD / J7 \1 p  y; X  r2 u7 X
Dim LngKeyN $ m! i* O. b2 h/ V( T
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message : l+ T2 R0 p8 \: w$ q# b# g
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . u$ h4 ~( z% b. x1 p: D2 ]. O1 T
Set ObjRSA = Nothing
end function - \7 Z7 Q# q' ^* p3 _3 J! @
dim last,first
first="!@#$%^&*()" " W( b; L, q) [+ p
Response.Write "加密前为:"&first
last=Encryptstr(first) ! _: U# O1 E! b
Response.Write "加密后为"&last 5 e2 O2 J; |- u0 ?: j8 }' Z+ O/ h
Response.Write "解密后为" &decryptstr(last)
%> ==============================================, f: i; t0 U  |8 z" l! F7 k
剩下的就是字符的对照表了# N8 k4 T+ B6 Q# ], D
===================字符集================
1_____6EBB
2_____5C1F
3_____4D756 R* c( B% }; }7 i, O
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C# s+ ^; q8 M* y9 O7 m
9_____6D20  ]; L6 b7 W2 |( k
0_____1089
a_____0F3E
b_____3159
c_____3517$ A: Q% i  m: l
d_____419C
e_____615C& N0 r  @2 M0 P2 I
f_____556F
g_____2B7F, p% J3 H" `8 v+ p3 I1 w
h_____0F9C
i_____00FA
j_____5A50
k_____2850% Z9 \. ]$ v; M8 C' ~3 M/ g1 ?# _
l_____3E7B3 }/ ^% h0 @+ @
m_____71C5* b  C" U& g! B* M/ q
n_____1FC8: c3 K2 J0 L* H% l# M; Z
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50: k. G) V+ v# U% w' R
t_____36F82 ?' t. M+ c: C1 D; {" I+ X
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF33 A$ ~4 x' C7 ^
!_____62339 M/ j- g/ |4 s8 w: o
@_____3A45& I. E0 q8 |1 D! M. r
#_____22917 C7 k6 b' }) l. o
$_____5D5C
%_____09B9
^_____43EA$ k% M3 E+ x: x& R* {  V9 t
&_____62B9- J% H1 ?2 A  b2 G, z# _
*_____6301
(_____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 分享给朋友]