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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过2 P/ g6 |  ?/ i$ T# G
加密前为:hwy123456% u/ _. P+ Q2 _
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
, X  Q8 b- ]! k
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家" Z# Q% P8 p/ F) S6 J, f& G9 x, a
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法5 z9 \- w% [- |# w) A
以下是RSA算法文件
" \) r8 E  D, G! F4 E
文件名RSA.ASP9 g. I: Z" i1 ?9 h
===============================================
<%
Class clsRSA
Public PrivateKey 7 p1 d" ]& e+ ?, y, w6 @
Public PublicKey 0 ~" Q& d5 u# h6 |
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) & X6 Z+ z8 r6 x$ q; C1 f9 \* z
On Error Resume Next
Dim lLngMod : ]8 a, Z' f0 y+ Z
Dim lLngResult & B0 U5 f7 \; B. U- [* O4 S: Z
Dim lLngIndex 9 |- T9 ^8 U9 X, l$ a, s
If pLngKey Mod 2 = 0 Then ( M6 B, R8 `- \$ V
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 ( q' }7 l  c$ g+ B8 I) U
lLngMod = (pLngMessage ^ 2) Mod Modulus 4 [6 m2 z& U: `3 p4 K8 T4 G
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ! R& l; T* l, d: @1 S
Else ; F9 ]& N. C  v: u6 ?8 [
lLngResult = pLngMessage $ c6 G3 l4 [6 ]$ f
For lLngIndex = 1 To pLngKey / 2 & D; }, a) q4 U2 T" l
lLngMod = (pLngMessage ^ 2) Mod Modulus ; ~. \$ n% K" b% T
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus ! C4 {8 u; C* {3 l& S& G
If Err Then Exit Function
Next " b) b! O, j" f1 l# a9 {0 i5 w2 r
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex , A& e& j! S; \3 r
Dim lLngMaxIndex % s% m: T  V# {$ F) t! \
Dim lBytAscii 4 g" V) p8 {% a( I$ s6 b' y
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function ' N5 Y8 k) X9 m/ w8 p) K, p
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
Dim lLngIndex 6 E6 g, ]2 o4 \4 F# P
Dim lLngMaxIndex
Dim lLngEncryptedData 1 o. c& d+ C+ ?  @
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) % D2 t7 s9 L: K& V3 X7 J0 Y
Decode = Decode & Chr(lBytAscii) 4 `+ a3 b0 C, r
Next * V" A5 G# Z1 R3 m
End Function
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)
End Function 7 i2 O1 C; [7 [: K6 a3 C* N
End Class
function Encryptstr(Message)
Dim LngKeyE - ]/ j5 o4 U; M% y
Dim LngKeyD
Dim LngKeyN ; ^. _4 w8 z3 q# z8 x
Dim StrMessage
Dim ObjRSA 1 D5 H: H! U5 t& m( ~" o2 w
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 1 ~/ x5 ?& v" H+ B+ k! H
ObjRSA.Modulus = LngKeyN 3 j- B1 j8 ~/ Y0 O' H
Encryptstr = ObjRSA.Encode(StrMessage) + }+ `) w! K! J) `  ?
Set ObjRSA = Nothing
end function8 b" |6 r/ \! }7 t
Function Decryptstr(Message) 8 F$ p3 E/ g1 I) ?% x: J7 U
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage + \) {$ Z) ?0 a$ \4 b8 D! e5 r2 [% b8 A
Dim ObjRSA % p: [1 B: P! E8 j
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 3 S0 r5 s( P2 o$ F+ @* \* _& R
StrMessage = Message
Set ObjRSA = New clsRSA ' P5 B5 a7 q. U& K9 O
ObjRSA.PrivateKey =LngKeyD 8 b6 D" I, [0 X7 v
ObjRSA.Modulus=LngKeyN # [! N9 N2 D2 R0 `
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ! p; B/ Z1 o* `  z# r
end function
%>
===============================================/ P* F7 J  K1 [1 R* u

还有一个用于测试这段代码的test.asp* i0 B% u& a8 E$ E% x# _* r, j! ~
有兴趣的自己搭建个IIS测试下/ M, r1 y2 y+ n6 g9 r
 0 H4 a' ]! t, K7 ]  c% i
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage , s  C" n3 X0 D3 Z/ J5 ?, ^
Dim ObjRSA
LngKeyE = "32823" ; b* z. U/ C5 @3 D) @; v% w
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 8 P1 x6 ^* i: t6 ^
Set ObjRSA = Nothing 6 @6 u( |( i5 J! b% M
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ( c# o9 C) M: H- Y# N5 |7 |/ b
Dim LngKeyN 5 ?3 U7 T+ E, |) v
Dim StrMessage " C; N3 P! B. F8 K. Z
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" & _$ D# V. \- J' h
LngKeyN = "29893" 7 D3 u) I* r6 M. X4 t% L! j
StrMessage = Message ; H% p2 X+ ]! `( @  [
Set ObjRSA = New clsRSA 0 \6 K; z0 H8 ]" J% j
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 2 I  x0 k' ?1 ^, y" c7 X/ H
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing % T2 \* R! U" D* I
end function
dim last,first . U$ V! i& `( X
first="!@#$%^&*()"
Response.Write "加密前为:"&first & p' W2 ^  ~7 O. ?0 e3 t$ ?  A& e
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 2 d' Z! S" [6 J: Z
%> ==============================================
剩下的就是字符的对照表了. ^; I  o! f5 |% |
===================字符集================
1_____6EBB) K7 r* r# g5 I7 U: v+ }) }9 B
2_____5C1F
3_____4D75# g" m; Z( b" Q9 E/ X* g, t/ {! A
4_____26CC% g0 Z5 ^* q6 K$ R) K; b1 J; D
5_____4F88. U/ e( o1 L$ K3 r$ B6 G
6_____3F4E# U4 g7 I5 B+ X& x3 R2 l/ V
7_____0A9D
8_____1A1C8 F# r; l- n% n! ?! c
9_____6D20  ^( k6 B: h7 N$ V
0_____1089+ O' k8 q" x8 e/ O
a_____0F3E; g2 w: `. c$ \7 P
b_____3159
c_____3517
d_____419C
e_____615C' P. J6 }: |2 K" }5 H0 K- g
f_____556F
g_____2B7F
h_____0F9C
i_____00FA0 @) d$ c* Z, D5 W- C$ i( L$ G
j_____5A50
k_____2850' j* ~0 X$ u6 q' r" j. i
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1# G5 [7 ?" p4 ?) s6 O0 M
p_____5FB8
q_____6085# W% C" F; d, R7 C* X
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7' T% Q1 M" d; E- B% e8 K1 Y0 `( G
z_____5CF3
!_____62331 ?7 p+ h. \, g* r( W
@_____3A45  R: n7 ?) o: P% u
#_____2291
$_____5D5C
%_____09B9
^_____43EA
&_____62B9& X0 e' g  {, c& o* A
*_____6301
(_____4659' ]* V5 N2 q" s# k
)_____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 分享给朋友]