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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm  s$ x0 x7 {9 Z  b' U* n) T
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法6 J/ q3 l3 m8 L( l1 _$ X3 @/ z
以下是RSA算法文件) C5 E- A4 A. k% }8 Y7 e3 q

文件名RSA.ASP
===============================================
<%   L  Q1 W% y1 c; y: _' Q& f0 C7 T; k
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 0 K# T- a" \5 h# X$ d
On Error Resume Next ; j+ q) ^0 B8 _  r+ S4 y$ N
Dim lLngMod
Dim lLngResult $ N" R3 ?. w0 Q/ b
Dim lLngIndex
If pLngKey Mod 2 = 0 Then % }4 {% U$ Z$ ~5 D; w" e
lLngResult = 1 7 l; A* G7 j. {& Z" }
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation " \: |4 }9 p) L* u2 M, d+ z, b
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else 9 P' a+ @( C; l" T' o' \) I
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 3 P: y# h# h2 N; ?# `
lLngMod = (pLngMessage ^ 2) Mod Modulus # O; }, w! Z: ?( x1 j' T
On Error Resume Next ; T; x4 [1 n, Z" l* i& n+ I, N
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If 4 P; A3 `5 u; X$ t" ^" D' G1 p( S' d
Crypt = lLngResult
End Function8 @5 Q( W0 p. m9 D$ s( ~

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii : {# Y) `9 V2 a5 t# m
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function + }' `4 M. w+ k) s7 O$ A
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ( b  d# ]. @2 ?! ]9 b7 e2 K
lLngEncrypted = Crypt(lBytAscii, PublicKey) * {, M) o& w, z8 t8 m5 L* V% u" `
Encode = Encode & NumberToHex(lLngEncrypted, 4) - f4 n- |* ~  U. B  Z% d
Next 6 u; P  m3 n* O# O. E9 P
End Function
Public Function Decode(ByVal pStrMessage) : f, h1 N0 G$ n6 O) o( Z
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData 5 M9 P9 y0 d! b( H
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 ( [) e2 h) u7 `0 B& m; n, w
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) & k( L) p1 K3 r, _3 u7 M
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function $ p% b8 [  t! W6 V' |8 u% f
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function # i( u, ?8 ]/ ]  ?, t, }+ R
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"   x4 o; X8 ]2 c8 S7 V4 a
LngKeyD = "20643" % K8 e6 P: t( A5 r- t6 `
LngKeyN = "29893"
StrMessage = Message & O$ E5 J5 n' R% `: N
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE " E/ m4 _2 `- ~: |. a
ObjRSA.Modulus = LngKeyN ) `' W/ y+ Y: o+ f" O
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function2 V0 l4 O) w3 V
Function Decryptstr(Message) % A/ o9 }9 d* {. o) a
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" - O/ t; R; @0 [2 E
LngKeyD = "20643"
LngKeyN = "29893" + Z, U4 b+ N; V/ I! w3 k
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN # |# U2 X. [$ e+ m: ^6 J" V
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function : t1 G3 u' @2 x
%>
===============================================. j8 {, c! O, G* G+ O
8 c- T' ?4 g; }9 e/ G& m
还有一个用于测试这段代码的test.asp( t7 ^) A+ W$ {. y2 A6 B: K- Q
有兴趣的自己搭建个IIS测试下; ^( G+ b- s) w' I, T7 o
 8 \3 n0 V- p! N/ S4 |8 ?
<%/ @! i0 P" _5 r. k# d
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 3 u* K4 I6 g% k  k3 v' y
Dim LngKeyN . I5 u! M! h& U- X5 E8 M
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" . m$ ^# G1 b9 p: v0 [/ T
LngKeyN = "29893" : ]; M6 `* @6 L" _
StrMessage = Message - u5 U/ X8 q% N1 e( u1 z
Set ObjRSA = New clsRSA ! t; @  U- X; I3 L7 ^4 O
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 4 _# N: `3 o2 S5 p6 }
LngKeyD = "20643" 0 f# T  F& l* p, A5 g* `2 D
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 3 c9 z$ D( j( ^1 V2 P
ObjRSA.PrivateKey =LngKeyD ! L# N' l8 N4 O2 m
ObjRSA.Modulus=LngKeyN ' U$ t* o9 h1 u+ n& z; J
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function ; D5 v* d$ |% a8 ~$ R9 L
dim last,first ( d; l1 H; ?" q/ _# S
first="!@#$%^&*()" & `. b9 f1 K! T* b) j" J$ w
Response.Write "加密前为:"&first
last=Encryptstr(first) / [* q" w7 i6 v& G, c' j+ t
Response.Write "加密后为"&last 8 [6 m/ I6 N  K, t3 L9 t/ T% `: M
Response.Write "解密后为" &decryptstr(last)
%> ==============================================* O) D6 N* C1 }
剩下的就是字符的对照表了6 `) U4 K4 y8 \: j" B, P: g
===================字符集================# z% l8 N- Y( ~3 m9 Z$ u
1_____6EBB
2_____5C1F. L) I5 c5 @7 h
3_____4D75- }+ L1 X. l; |& e. ?3 M" v& h; B' G
4_____26CC- e6 P4 c3 b# d7 v" D  a
5_____4F88- G9 T( D/ p# M4 W
6_____3F4E
7_____0A9D2 [, K/ l* z3 A6 `, P% O( |1 P6 @7 \: J3 J
8_____1A1C
9_____6D20
0_____1089
a_____0F3E
b_____3159% J2 z/ E5 D- x4 v. D) S
c_____35172 @" i/ F1 @$ t& T0 |! u  e
d_____419C
e_____615C, k7 i* y" }& N% n1 ~
f_____556F( E5 W8 U4 j) D# P  c# C# J
g_____2B7F  m4 b1 ~4 Q+ e* X, g9 l
h_____0F9C# T  C/ `: T( _) I3 M4 `
i_____00FA1 e1 l4 C3 ?% L2 a0 @% z! d9 j! {
j_____5A50; \5 g4 w1 B/ G' J# Z
k_____28505 o* j5 A# A% Q5 f7 c8 V
l_____3E7B
m_____71C57 W. {: V( |9 B% J) ?
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8+ e& M$ Z' t% U
u_____7010% `  t! P8 L  Y) Q, k8 s4 e, Z
v_____0B42  g6 x1 {& w4 i/ [% w: x& r; G
w_____1C7A: g) ^- c  }- c4 O; m
x_____16F8
y_____2EE75 l/ ?8 O: ^# `+ [& ^! b( f* L
z_____5CF34 V; @& X8 _- Z0 U# v: W
!_____6233
@_____3A454 P3 Y$ l6 @$ [4 ]2 g
#_____2291
$_____5D5C
%_____09B9# o! ?* E- J# o1 ^1 v. P+ @; J9 ^
^_____43EA* r2 X& D' ~9 q
&_____62B9! D4 Q; `) w  x2 R( c
*_____6301+ \8 f$ q9 v; w( {4 {! T$ M
(_____46590 O, m) C; I( Z5 I# k# t  u
)_____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 分享给朋友]