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

算法, 大学, 研究

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

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E' ^! q6 [/ w# X9 T
# C" q: x% i% i" T
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家# i  @0 O* P- Z) ?! r0 A) J
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件) M7 U9 o# t9 o# v5 A" I. `

文件名RSA.ASP, d& ^+ s* @) M+ O. s0 [: c
===============================================
<%
Class clsRSA
Public PrivateKey ; W5 |+ c2 s$ C1 L6 [: P& z
Public PublicKey ) ]6 Q: _( L  d6 d1 {- {
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 6 }% A( C& Y; E1 }0 Y
On Error Resume Next & ^! Y+ z" q. i8 f# Q! t6 [
Dim lLngMod ! V. n/ z9 R* I# M) B
Dim lLngResult / n+ X% @/ D$ H3 S8 ]
Dim lLngIndex
If pLngKey Mod 2 = 0 Then / t3 S+ C: O' V, P/ E# D
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ' V& ~! u! ]9 Z6 `% x% l
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next $ E$ y/ u3 U$ P  o4 F7 d6 n( c- I, C5 z
Else + I# o1 ]$ ~7 k$ |/ g1 E
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next ' N0 R8 Q% d3 p( J  s$ [8 f) p: g2 q% u
' Mod may error on key generation ( s" p1 r& E! O, ?# e  C' H  N' r
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If ) Q9 m- A1 N( H9 S$ r/ @; d
Crypt = lLngResult
End Function% E6 l+ c$ o  z( S- \. c
7 k+ l: Q, i! T, z' M( o
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 2 Z! ^1 n- b1 f- ]7 @, _
Encode = Encode & NumberToHex(lLngEncrypted, 4) 0 _* b' F/ R" \) a! \2 w5 y
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex + a# J8 ]$ D2 P& a4 L
Dim lLngMaxIndex
Dim lLngEncryptedData " s* m* T$ ~* C+ ~2 n" N7 T2 P  o
Decode = ""
lLngMaxIndex = Len(pStrMessage) & J, }6 {9 u  u
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) * z' H1 ]: y. I% l* b
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) & L; u% A" }! `( r. F. h- M
Decode = Decode & Chr(lBytAscii) 1 r$ `0 D+ x9 _8 N
Next 3 w/ a1 C+ ?( ]
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 0 d- y  n4 p! J* h5 T0 r# A
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN / j' W7 P' T  W; \4 \9 Y
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" ( \; ]* O! s% V5 z& o
LngKeyD = "20643"
LngKeyN = "29893" : V& b+ n& p+ \5 ^* n5 j, @
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN . q0 L6 L$ m: _0 `! M; c9 Y
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function0 b4 U& q7 M- h/ \
Function Decryptstr(Message) ' F2 r9 k8 D* K$ h
Dim LngKeyE
Dim LngKeyD / }. X6 T# W: H
Dim LngKeyN 9 c6 I! U6 O. M
Dim StrMessage
Dim ObjRSA 3 w8 r' M: [# ]$ W8 k. o9 d& a
LngKeyE = "32823" 4 G* T( B1 D/ ^' W4 V! P  ?* o. z
LngKeyD = "20643" , g5 |& ?* {! |* [7 Z
LngKeyN = "29893" 8 P. P/ j9 B& z# A4 x
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function   o# s) U: p' L1 s; }& P
%>) y* l; A0 ]5 n
===============================================" H8 Q% a, u8 R5 z- r/ x

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下* [% s# Q9 L( G2 J

<%
function Encryptstr(Message)
Dim LngKeyE 4 ^* T# Y4 w, o0 N( R% ^
Dim LngKeyD & Y+ b9 I6 j4 Y  E8 o2 }
Dim LngKeyN
Dim StrMessage & f: j# N2 m# K* p9 w; \2 D' {
Dim ObjRSA
LngKeyE = "32823" ( `, n+ a8 B7 W
LngKeyD = "20643"
LngKeyN = "29893" ( p( u5 G' @" A! u! v) J5 |7 e/ \
StrMessage = Message 8 }" ?6 n5 o8 ~. a$ g6 }
Set ObjRSA = New clsRSA 0 `; K. B8 s! i/ d8 ?- V7 S1 R' r! K& \
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 0 {. e% [* K! {. ?0 `
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing / m1 v& \$ B  o5 Z, g
end function
function decryptstr(Message)
Dim LngKeyE 4 l2 C  o6 A$ p! i" U% u: Y
Dim LngKeyD
Dim LngKeyN : T5 D0 v8 p) U
Dim StrMessage , \: |2 p$ `4 ?  w5 A
Dim ObjRSA
LngKeyE = "32823" 4 z' z2 b" }7 ^, V% F
LngKeyD = "20643" * D, s* U' D7 k( N  V- w
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA % F8 l* Q1 J! w- C) H# j
ObjRSA.PrivateKey =LngKeyD : b8 l0 M0 x, @( l& M
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ! H# C( l0 H4 k
end function 3 p! G( o' ~7 E1 L! c, E/ c  S
dim last,first ! f+ V. w2 N" C  ?* c& f6 G! b$ y
first="!@#$%^&*()" 1 C5 Z& w9 b* Y) `: {) B
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 8 p7 U. E  \( w/ p, o4 Z
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB$ z8 z" \" F; ?. u3 G
2_____5C1F/ Z# J3 ~# C+ ]
3_____4D75" U! m+ g8 Z+ b
4_____26CC
5_____4F88
6_____3F4E# U! n4 v4 G5 v( X; d$ [' V
7_____0A9D
8_____1A1C
9_____6D20, h: A) u( m6 Y+ z
0_____1089/ }- y; M, x& B% U& f3 P7 v. f
a_____0F3E) d$ p' j5 {6 N
b_____3159
c_____3517( e! _5 j5 Y3 f# w  r1 [8 K
d_____419C
e_____615C2 \  _3 v( K$ I
f_____556F7 z- Z- L2 o2 Y  M
g_____2B7F% a4 H3 e3 Z) i1 m% p, H8 ~% L  }
h_____0F9C
i_____00FA* @+ u; b% e6 N! p+ h8 d" Y' Y3 g. }
j_____5A50: N; }3 b2 f8 X( _/ W# `  [! p  y: z% z6 w
k_____28507 b) |- F7 U/ r/ U  V
l_____3E7B" b% H; }- s% p& ~6 G$ r
m_____71C5
n_____1FC8* c! z' w  t0 F" p# T
o_____74C1
p_____5FB8
q_____6085
r_____3AC4  _6 ^+ b/ x& ~
s_____2F50
t_____36F8& d( b9 m. ]4 [9 |# |& Q  o
u_____7010. E8 d0 |( G8 l. i$ _6 i' T! f
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7  o4 O  {5 x) q# i" u
z_____5CF3+ h' r: j( C& p: }: G3 b2 h
!_____6233
@_____3A45
#_____2291, K/ y9 W! G; A. g2 ?$ E
$_____5D5C
%_____09B9& k; n% L# N* Z; S+ D7 P  n
^_____43EA8 S: |: |4 D7 @# x& }- f5 z6 i
&_____62B9% G( b: L- F; d1 z, o: o7 c! O
*_____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 分享给朋友]