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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm# {6 ^3 z1 A3 K/ ]6 [8 `: d; t
原始出处：http://www.3ast.com.cm3 n6 @: x7 q- C( K' q
+ V" r2 X8 t* m" X
看不懂的直接绕过
加密前为:hwy123456- m2 x3 m0 D) h- C  M; u
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E- J& @6 L# ^) \( u" R/ K  t/ z, I; o

============================================: V& H' q4 P  Z/ |  g  i; c
上面是当时自己校内的心情。现在已经解破出来了，分享给大家) S8 J6 j" H  l% u7 N) ?
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP& H' @- _9 y! Y4 d, u/ d
===============================================
<% 0 y! @5 P2 ?2 l  C+ H5 S
Class clsRSA 0 q* i9 b8 G: V6 t
Public PrivateKey
Public PublicKey ) U; E+ Y$ }( e; n& ~
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult * T7 j: S4 N2 c# \# J1 @1 Z- {
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 : N+ F, Y: \1 \- {4 K+ L- C$ r
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 3 ]- z( b! r3 p
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next # o, F+ @. ?! }) Y. `+ o
Else 8 E! X! q# i6 H: J  K5 R7 b. A
lLngResult = pLngMessage ' v$ Y& y+ f6 D. `7 a
For lLngIndex = 1 To pLngKey / 2 " s% C5 t' l! j% D: Y/ L) u
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function 9 ~0 c7 l1 L: S
Next 9 M) e: r& K( i* A
End If
Crypt = lLngResult
End Function" o% D( p$ B: `5 D
/ b0 o4 f; B  a5 G- ]; G
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex ' i1 p# a& [$ s% _" x" y1 A
Dim lLngMaxIndex
Dim lBytAscii * `0 F* W9 j/ X& o: C; J
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 7 q1 h8 @9 ~  _3 r, T2 f
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 7 Q+ v& ~6 j' w/ m! J  A) L  V. q0 r
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) & j0 }/ N7 T" e! b
lLngEncrypted = Crypt(lBytAscii, PublicKey) # |1 R( V+ h3 H3 t
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next & K% v% [' P1 V; k& U. F6 M
End Function
Public Function Decode(ByVal pStrMessage) 8 g# f$ ?* `+ E- v5 y
Dim lBytAscii ) g' q, K$ z6 z; y7 y/ `3 _
Dim lLngIndex
Dim lLngMaxIndex 8 J/ q% L3 s$ M5 I" Z! e2 D! D% t
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) 3 @4 Z) i, Z3 t8 C# F
Next $ K1 P; G+ S9 T6 }. J3 S4 S
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) , R1 R, m$ y' N! Z
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ' G0 T* C9 S- d( T$ q- A
Private Function HexToNumber(ByRef pStrHex) , J0 t* L: N2 Q/ o% w4 C
HexToNumber = CLng("&h" & pStrHex) & h, u. c2 B6 \- t( o( R6 U- x
End Function ) t' O( }8 G7 j! m( n
End Class 7 C- l: O% U" b% I. u
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 3 e3 P% \  e1 M$ G3 ?
LngKeyE = "32823" 4 g: v6 r8 D) f9 x
LngKeyD = "20643" , h0 b  M+ S1 C+ f+ {. X* }
LngKeyN = "29893"
StrMessage = Message - l1 ]* U& V9 p5 P) l
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 8 j# j% X0 o9 M+ a+ C- E: t
Encryptstr = ObjRSA.Encode(StrMessage) / E  p% t4 h9 @+ n% Z
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE 1 _4 U' E/ C3 |
Dim LngKeyD
Dim LngKeyN . ~# `/ o% V) @, b
Dim StrMessage
Dim ObjRSA / Z. |, `: @  Z# Y
LngKeyE = "32823" 3 }$ [! g' |2 }- O; d& k
LngKeyD = "20643"   _8 U& q( ~% p+ r: N. d. x4 N  U
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD ( i. Q' X. C0 d, i# M5 U9 ]  ^
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 5 j/ ?' Z" u  ^! H+ H
Set ObjRSA = Nothing
end function
%>
===============================================/ c) Y' A, g0 W

还有一个用于测试这段代码的test.asp2 T5 v7 ?2 o- }5 i0 K+ W. K
有兴趣的自己搭建个IIS测试下
 * F8 s% B/ C+ F; |  f, t# i: z
<%6 G5 O3 }1 y. m% E+ I+ n
function Encryptstr(Message) 2 R( _( `0 Y1 p+ R3 j
Dim LngKeyE
Dim LngKeyD ! ]- N8 r; A& ^. J1 O1 U
Dim LngKeyN
Dim StrMessage $ w3 w9 q9 k; _
Dim ObjRSA
LngKeyE = "32823" 6 M% H# S9 Q+ ~5 Z
LngKeyD = "20643" 7 ]- g" @. V0 ?! q" I
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA - o, G8 w5 f9 n) W7 u9 \: `5 C0 m
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 1 H, W7 P( g7 I% r
Set ObjRSA = Nothing ' z  ]- Z& r8 y1 g
end function $ ?& Q' N; ]1 p9 }8 z; O
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN + z# B9 Z' v9 u# u# D6 Q- \* ?1 [7 s
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 8 ?+ r1 ~8 o# X  H9 j. X/ K/ _5 j
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 7 }& N. u# h( L+ a# C( f$ h
ObjRSA.Modulus=LngKeyN % x# h2 M; z( \7 Q' t( w3 G( j
decryptstr=ObjRSA.Decode(StrMessage) % ^9 ^) p) h3 x
Set ObjRSA = Nothing
end function # ~, r) K. t* e5 `; q
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ) w0 k% \4 v, S
%> ==============================================
剩下的就是字符的对照表了
===================字符集================, Y, K& x( t3 B
1_____6EBB, k$ z- {$ z! A- E, G; s
2_____5C1F
3_____4D75( k6 i6 M7 _/ c( F* V0 D8 B0 e
4_____26CC
5_____4F889 l+ P% Q) o0 x2 |1 N9 t2 c
6_____3F4E' c; u/ M1 K. G4 N2 d
7_____0A9D1 |4 e# Y) Z) C! Z4 K
8_____1A1C& b0 Y; t. w8 Z8 c6 I* O9 z
9_____6D20
0_____1089
a_____0F3E" i1 O9 s/ b( y& s* @1 A! N
b_____3159
c_____3517
d_____419C1 m7 B, g/ s$ N1 o/ n/ A' {
e_____615C
f_____556F8 X: l: Y+ X( ^) Y: e* |
g_____2B7F
h_____0F9C
i_____00FA/ w: b3 _" m- Q* |: L8 `9 N, a. z% G
j_____5A50: |# ]( }0 a7 K3 \- A8 x' q# a; m/ L
k_____28507 v7 e+ L. \5 w  C
l_____3E7B
m_____71C5
n_____1FC8  v" S, m$ \1 R9 E
o_____74C1+ o& E5 F# @6 }0 F: r$ f. e0 }
p_____5FB8  x' D. x2 o# a1 ~1 T. M' M
q_____6085# O) ~5 n9 h2 w: V8 \& ^+ V7 Q
r_____3AC4
s_____2F503 W. I+ J) i0 `+ b1 c$ E
t_____36F8
u_____7010
v_____0B420 Z) U3 A+ x- m8 \6 A( P
w_____1C7A
x_____16F8
y_____2EE73 ^& a4 x4 l$ c* r
z_____5CF3+ @  u0 D3 z9 _( \
!_____6233
@_____3A45
#_____2291/ Q! T* s8 x- P  Z2 l
$_____5D5C
%_____09B9" |7 F7 N, b9 y2 U9 I3 j
^_____43EA
&_____62B9
*_____63012 H8 P; _" |" I- r' [
(_____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 分享给朋友]