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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
# s( s0 l( H3 y$ U
看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E5 b- x8 |9 U6 z7 w* i/ V" s

============================================* A7 Y) X. [" J! P: I/ ^: T
上面是当时自己校内的心情。现在已经解破出来了，分享给大家1 B( H6 f: _: H: z) u; j
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, R( x/ D0 Y! E* \- S
以下是RSA算法文件

文件名RSA.ASP- K4 w2 ~. _8 E5 B# s2 R
===============================================
<% " j% c  v  }9 A2 K: h- c& b8 S7 \
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus   z1 p  j: e# h: o5 o
Public Function Crypt(pLngMessage, pLngKey) 9 f' A9 }+ z% d* ?
On Error Resume Next 9 d/ b4 C5 b& F6 B- r
Dim lLngMod . ^; O5 B1 |/ J
Dim lLngResult
Dim lLngIndex : M/ E( m% L& o, F3 e/ X
If pLngKey Mod 2 = 0 Then
lLngResult = 1 $ }) M2 r( M/ _2 [2 s) g
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function : F  {$ D) s0 ~' ?, w
Next / @" \! n+ l1 _/ A3 X
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 9 m" R. }, {. v; D9 m$ i. ]
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next * f* z# F  h" H4 ?
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) , v% t0 u- H  f* B% Y
Dim lLngIndex 0 |3 i# o4 Z3 B9 e+ C
Dim lLngMaxIndex   S! H. Y2 i5 F) ~/ h: c9 z# W' n
Dim lBytAscii 8 d9 d0 Y$ p( N1 z
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 8 ?5 L! t! l- j- Z0 _# U1 q# `
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 9 q! y2 ]& u2 H. `: N
Next * E) z* s9 v" Q1 X3 l! @  `7 X$ D
End Function 3 {# Y9 G( D8 [$ f: L9 E7 U2 e( ^
Public Function Decode(ByVal pStrMessage) 6 H1 q# @& p4 N( j
Dim lBytAscii
Dim lLngIndex , F. M8 _6 J- y# F/ y
Dim lLngMaxIndex 4 X, v; c% Z  _" L+ _/ Z
Dim lLngEncryptedData
Decode = "" 7 D: @% N7 H4 G6 M
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 1 K7 t) R& c( T7 @+ k
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ! d9 |% C# k0 k! |2 I
Decode = Decode & Chr(lBytAscii) 2 V1 H  ]) a1 C5 t$ {- p
Next
End Function ' c" ~: I) x5 |4 g$ R  z
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) - V4 T. L5 m2 \, I$ @
End Function ) Y& U0 g2 E9 p3 b, W) d
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) . D) |; Y  x. a& v4 U2 I2 F/ y
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE 0 ~3 P2 y; `, T6 T
Dim LngKeyD
Dim LngKeyN # k( O: ~: x( G1 X% x
Dim StrMessage 1 u3 }1 [, m1 _1 X) ~( q. {8 _" \
Dim ObjRSA
LngKeyE = "32823" 4 ^& f1 e, L' E" O
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 6 u( @! Z: [: W% d3 V
ObjRSA.PublicKey = LngKeyE ; y9 |; |; m+ U$ U
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing % p, j- k# v! v" g& d1 Q
end function1 t# }$ M% C( d& o2 V
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD ! L" G. S5 r  e( h
Dim LngKeyN
Dim StrMessage + ^' `0 e. o& q# H# _
Dim ObjRSA
LngKeyE = "32823" ) z8 _! W1 h1 K" b: ?
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ( ^" N, M. z+ I- h; a1 R
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN - \8 y" y% U9 l2 S/ g2 u% H( S
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing " c4 E8 r3 N3 `
end function
%>
===============================================  q$ Q( x, z2 o& X+ N

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) 4 W% Z  S4 |  {8 r2 G
Dim LngKeyE , K% q9 x- m' ]1 n: N
Dim LngKeyD
Dim LngKeyN 0 R$ ~- r$ |$ g2 j: [3 ~" S* g
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ' }1 R% v8 R- Y' a. `9 M) B" \
LngKeyN = "29893" / S  L- ~; N! d6 |: M
StrMessage = Message ; V9 V7 p, g) X" [2 m
Set ObjRSA = New clsRSA ( g1 f  F( k3 P2 Z0 k2 l
ObjRSA.PublicKey = LngKeyE + X5 V. w* ^7 }7 Q+ l
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) / P" ?+ \3 g6 F
Set ObjRSA = Nothing
end function $ G* C! @, C. y  e3 S2 @
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD , s+ D7 ~1 I6 ~! ?! ?" V
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" " Y& H7 j' f0 a, z( d6 d; x8 c
LngKeyD = "20643" ; ?* N. V5 T0 h( s) q& K6 ]2 o, u
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ' y7 J) a6 `( {2 y
decryptstr=ObjRSA.Decode(StrMessage) + Z& p: S: l1 b  q
Set ObjRSA = Nothing
end function # L( D! u+ P1 x+ ]) L
dim last,first 6 e9 z0 f7 d: K; y" U6 y8 O
first="!@#$%^&*()"
Response.Write "加密前为:"&first $ n: W$ D3 k5 }- O. [4 m
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了" }( S3 C7 K% |/ g# ]# F
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75, y$ R; @( k$ ]
4_____26CC  Y' J  e8 j" g, [9 \) {+ H' x
5_____4F88
6_____3F4E
7_____0A9D6 v" Y; e% }$ d0 I( }% w* x
8_____1A1C* T, o1 t1 i' ?) |; \
9_____6D204 ~% A: }& i* R. T
0_____10891 o' ?* R5 X- t, E8 |/ ^. H
a_____0F3E
b_____3159
c_____3517
d_____419C! ^6 d2 L3 A2 g; O" j! e. J$ A
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50# z! }: b6 ?6 \1 I7 U3 L, j# G
k_____2850
l_____3E7B
m_____71C5
n_____1FC82 S7 S. P; ?* _, w7 S
o_____74C1
p_____5FB8+ c0 u5 c$ r, d, h* O
q_____6085
r_____3AC42 c: d! ^5 \, m* X$ T7 H) ?1 R
s_____2F50
t_____36F89 ^4 i. K- [' F8 Z6 V3 t8 W* d
u_____70109 S  B! J. K; }9 A" w# U4 D5 h* d
v_____0B42
w_____1C7A& H; s+ o8 |: P5 L6 x, D
x_____16F8! \. V+ p: C% H
y_____2EE7
z_____5CF37 X6 n) i- e2 u. k. {/ }
!_____62330 R5 o# q0 q- w1 q  |
@_____3A45& A7 \# @& R( U. M1 i
#_____2291  a6 i+ v6 J" P! z1 ]5 j/ M. N
$_____5D5C+ O0 g2 t9 Z  q# P8 \7 R
%_____09B97 `* M3 W: H9 d; @
^_____43EA
&_____62B9
*_____63016 `+ T) u9 y% ?- b/ k+ ^. ^) q
(_____46597 Y" ^1 l4 ^" C0 X5 \
)_____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 分享给朋友]