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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm% A% }5 }7 L' S$ `; L

看不懂的直接绕过' `$ ^; e6 u+ l# ]6 j5 S% |# Y
加密前为:hwy123456* S  K# N/ b0 P  b
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
" ^& h* ~8 X' ~+ M: n8 J
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, q* o8 D! L1 [+ R5 y" R) N
以下是RSA算法文件
% Y& _" H0 H8 {& k8 U( R
文件名RSA.ASP. C* X5 H2 d2 A( F4 N
===============================================
<% / I. x: p: C! q
Class clsRSA
Public PrivateKey ( I/ v- i7 y0 e& {% o! T: ^
Public PublicKey
Public Modulus ' T3 ]" ~1 p8 p0 f5 n
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 0 e9 B  \  {% q0 b
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then ' T* s8 j7 {4 L+ d( w3 O
lLngResult = 1 ( ]( }. V3 R, y5 S2 u2 C6 i
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation # D3 C# |% N, x
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage " Z; J  a% T! m- a* B
For lLngIndex = 1 To pLngKey / 2 / \4 M0 I# b" i* {4 ]
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 p) T  T; d  p" W4 b; z) a0 \
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function9 ?2 c& L8 [% B
* {" X2 d/ h3 I( o6 G" L7 P$ o
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) , o4 Y3 A$ A& d+ \
If lLngMaxIndex = 0 Then Exit Function   `$ ^4 m% d' p8 R; e
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) : r: r2 J! R$ U# k% \. Y
lLngEncrypted = Crypt(lBytAscii, PublicKey) ! o  A% z2 T% G$ _6 |8 Y
Encode = Encode & NumberToHex(lLngEncrypted, 4) . s9 s: {2 [3 u: {3 D1 G
Next 1 L- l: |+ g6 p1 `4 h1 L+ Q
End Function # h/ \# y3 v9 @2 f7 M/ A6 p+ d
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex   K  j. o6 [, Z8 g, R6 w% {9 ~' ]
Dim lLngMaxIndex 9 d# L& Q. H1 H. Y3 ]
Dim lLngEncryptedData 1 Z; S. `/ T' ~# R) s' v% T! c
Decode = ""
lLngMaxIndex = Len(pStrMessage) ) \! b% n. o: y! p. ?0 G/ s
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) , [6 D% z/ F* m, h' {
Decode = Decode & Chr(lBytAscii) : b$ R2 N, Z8 l9 e' B
Next % u( k. l; I$ L
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function ) @% _! J' }+ I& M# ]7 W) u
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 1 b0 L! H3 D6 t: C5 P* ~: J: z
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 4 W3 g' C  L6 ?
Dim StrMessage ) {) q* f" j$ G7 U# h/ p; h1 u+ h3 }
Dim ObjRSA 6 m. w( |7 j; C7 k/ S) w5 d+ o
LngKeyE = "32823" 9 |( m/ y* m2 u+ z( K* g
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   ?0 X, C+ [. A: o: D% N
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN , S5 X' ^9 t, B+ j+ p. b5 D( n% V
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function- f! v7 i" X, }$ r+ _4 r3 k" |; o
Function Decryptstr(Message) 2 r) }$ I. h0 e+ s0 f. I
Dim LngKeyE
Dim LngKeyD $ I; R6 S5 `. j8 [8 r
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 5 ~1 \7 ]- n( C/ Y' f; s
LngKeyD = "20643" : v" G# Y0 [* G. C7 A: ]: p/ @
LngKeyN = "29893" ' @$ F% k2 C& n( I* h
StrMessage = Message 6 O. g7 ^: G$ H$ r' ]
Set ObjRSA = New clsRSA + R. s0 Z. h# j1 y- d4 ?
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN , x) I5 e4 V/ \5 Z  F: V( ^: \
decryptstr=ObjRSA.Decode(StrMessage) 6 X" X- _& r/ R$ [! s" k
Set ObjRSA = Nothing 8 u8 S$ [- F2 a; `
end function * ^5 _" `7 V3 k; {) T# R$ ?3 z! L7 p
%>
===============================================: m- c/ w4 ]$ Y7 S  ^/ }

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下' }8 Y( l: ~& |

<%; m, B" \( K& G7 e* P, P+ n
function Encryptstr(Message)
Dim LngKeyE & J0 X4 k# O- s/ e
Dim LngKeyD 9 Y, [' A9 Z9 R: X/ @- b0 w
Dim LngKeyN % }. E/ V  S1 y3 a7 s+ f
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA   E( t5 x  d. |: h/ \
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD . I5 i# `$ a; c
Dim LngKeyN - U, v! F; W0 o: h3 J" C. W
Dim StrMessage . Z& x. ]2 i# n+ M. e$ |3 Z) R
Dim ObjRSA % }% i3 K& k) S1 T8 c  [
LngKeyE = "32823" 8 R! h; I& h. F, T% [1 M
LngKeyD = "20643" ; a$ t/ F% h6 `( p& W$ x
LngKeyN = "29893"
StrMessage = Message : j( v) v0 S5 l; o- G
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD & G# n: S7 b: ~( e) g. {4 V
ObjRSA.Modulus=LngKeyN   v, t- k% V6 V- |9 Z
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 2 m7 Q, m. F  Q/ K9 O: l: L0 t( K. g
dim last,first
first="!@#$%^&*()" + A3 h* D( k* r
Response.Write "加密前为:"&first 9 g7 T# P7 [7 b& [
last=Encryptstr(first) # r/ Y1 i1 g9 \$ M4 h7 L) V
Response.Write "加密后为"&last ! w; E2 I9 A2 n3 y7 H: {& Z, ]
Response.Write "解密后为" &decryptstr(last) % G$ U( V9 H3 k; A( [4 J8 T0 a2 E
%> ==============================================- o9 b$ B! z. v/ l! h2 L. D1 m
剩下的就是字符的对照表了
===================字符集================" z6 F2 r! f4 I  P0 ?4 ~2 s
1_____6EBB1 ]# n# @! Z4 d: s% q; l
2_____5C1F
3_____4D75
4_____26CC1 [- {* z1 k+ v! $ H# E
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C5 U+ m+ b5 n: L7 c3 w, n! R
9_____6D200 ?% @0 n- w6 A- Q$ Y7 `2 e
0_____1089- e" J' e& b3 `" s& v* I+ H
a_____0F3E  U4 W6 t2 S5 n  g6 V1 Y
b_____31599 ^4 N4 \1 b1 ^0 B/ M! r
c_____3517& B# v; $ f  Z, i
d_____419C5 Z/ g/ l  \4 g- |
e_____615C+ e" f8 E, a4 Q4 \  {/ o
f_____556F% ]( K; o$ K( d8 {2 C' p! c
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50$ e2 ?  n2 L7 b  i; W
k_____2850% D. P8 s/ I- P& `
l_____3E7B
m_____71C5" \2 r! b2 O1 v+ e6 X. B; m
n_____1FC8
o_____74C1; r7 M; y4 W( Z
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____70101 |% O# b7 Y6 i& F
v_____0B42' \# p( `. g# z- s5 i
w_____1C7A0 V4 j4 ~! g- F/ M0 m6 W- i1 _
x_____16F84 P/ ~0 A2 E  X3 {! b( T
y_____2EE7) e/ \* g) @) q4 I
z_____5CF35 ~; a) L( p1 O* i0 g; A
!_____6233
@_____3A45# G1 q' q" ]1 R, A  @- x. ?# I7 @: d
#_____22915 L$ S6 n0 U0 b+ R* u
$_____5D5C
%_____09B9: L1 H' f7 T# S1 G5 |
^_____43EA* F2 Z, v9 Y- X0 X6 b
&_____62B9
*_____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 分享给朋友]