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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm0 U/ r6 J! ^7 j/ J+ o' O4 |

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
8 E6 h* E) n+ k# M* e
============================================4 b, I6 `& z, x' X( v
上面是当时自己校内的心情。现在已经解破出来了，分享给大家% Y& Y8 }; j5 M0 t: S7 T! i7 a
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件6 x% O4 ]2 s6 G: a
( P; X: \6 F; `0 E/ P: m7 K/ o
文件名RSA.ASP
===============================================
<% " x/ Y/ m$ j# Z  m) U
Class clsRSA
Public PrivateKey
Public PublicKey $ G, A; o) [5 p/ a  w
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 2 A8 w! d* N# ^2 h& z5 ~. R
Dim lLngMod ( e& b" k7 L  V* `. i& w- P
Dim lLngResult
Dim lLngIndex 8 i9 p! i# W% S) J' `2 d0 g6 _/ I
If pLngKey Mod 2 = 0 Then ' a. [+ z, b4 m  o  j3 M
lLngResult = 1 # G+ `/ {3 g( t/ u4 K, c( A
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus   L% y# [. s2 }" P, x
' Mod may error on key generation 6 _7 }7 M* b% p" v
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next % @  s3 l" [0 Y4 q8 w+ v3 m
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation / F4 V1 y1 C: U: v' t* ^
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function9 i/ U  L# @* z* u( G/ q% ]
* A# f; z* @! m7 ~" d# ]
Public Function Encode(ByVal pStrMessage) 2 ]/ ~: j5 i6 _. j9 W, b
Dim lLngIndex ' H, q+ F, a$ N4 \
Dim lLngMaxIndex
Dim lBytAscii ) W$ h  |4 T* @( r& q7 G2 j
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 4 w# C9 Q, r. _6 J: A# V( @2 z
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function ' v5 v9 m, M  {1 ]
Public Function Decode(ByVal pStrMessage) 0 S) _# }% y. U+ Q% l
Dim lBytAscii / y8 O2 i1 R! r9 J* U" r4 p4 i
Dim lLngIndex
Dim lLngMaxIndex 0 c' f# A7 C" K; Z9 Z
Dim lLngEncryptedData
Decode = "" ; I9 J7 L5 N2 }* E: Z: E
lLngMaxIndex = Len(pStrMessage) $ Q. v( D! B3 z  C0 i9 R) N
For lLngIndex = 1 To lLngMaxIndex Step 4 4 x4 f  o2 K2 X8 w( E+ r0 K
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) % q+ j8 X  A' m. m* p& Z
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 6 ?! l0 G% ~! k! T0 p3 q" g3 y9 [
Decode = Decode & Chr(lBytAscii) $ K/ _! S6 [) U% n
Next " t8 H) C3 @9 s3 q6 s3 W  g: U
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) , ?8 `- W9 l6 }) Q# B. w, M
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 3 ?2 @& H  [1 q' b$ H0 P
End Function
Private Function HexToNumber(ByRef pStrHex) 2 f) j$ A4 ~; S# h; `
HexToNumber = CLng("&h" & pStrHex) 7 f" m8 j$ m) r7 A5 G- a7 F
End Function
End Class
function Encryptstr(Message) 2 g$ t2 i# c+ F/ f+ Y
Dim LngKeyE 6 g2 d) Q  ]  g7 k/ z% I( b
Dim LngKeyD
Dim LngKeyN ( o" T* [; T  L' s3 ~
Dim StrMessage
Dim ObjRSA   l/ \5 n$ R. s: G1 x/ d9 U
LngKeyE = "32823"
LngKeyD = "20643" / d5 k( `! A/ k4 ^& F1 ^
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 2 w% r: r, T" p! |5 J' Q
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing / r/ p/ Y& R8 a2 I$ n
end function7 h/ E  a7 l+ g. c# p4 x8 H4 }
Function Decryptstr(Message)
Dim LngKeyE 1 F4 a! N' h9 P/ s  R5 M5 C4 B, I
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 9 n8 m" N" m: J$ X, ]6 s/ s' W
Dim ObjRSA
LngKeyE = "32823" ( b7 X; U0 m. S+ q$ }
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message & g* M0 B" U( m! A' G6 H8 b
Set ObjRSA = New clsRSA 1 ]! R: ~& A  D8 N6 M
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN + O* Q& J- p7 R1 J% {1 C) |  _  i
decryptstr=ObjRSA.Decode(StrMessage) 6 R  M) O. z7 @$ }; F
Set ObjRSA = Nothing
end function ) ?, X" F( p7 j& A4 K. Z2 X; a
%>" S0 Z# c# [2 p( x2 u- I" {
===============================================
. ~" ~( z8 E6 c: N
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下! @( c# O9 y  ~' d$ N& s( h0 {+ ]
 . Q8 e* i: _% c0 b3 N+ a
<%- m7 R: j$ m7 b
function Encryptstr(Message) - w/ g+ I; G- J" F, h0 ?
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 0 }! [# M7 s3 `9 r1 o5 X
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ! ?5 c2 T( p5 L8 P/ r
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 3 B8 l* v; Z, r1 h  `" ^3 I
Set ObjRSA = Nothing
end function ' v9 J3 h3 ?! d
function decryptstr(Message)
Dim LngKeyE ) ^' y* ~* K9 {
Dim LngKeyD
Dim LngKeyN 1 X9 ?; u, G! X/ S. m
Dim StrMessage # M  r% l" `; f! m. [9 m' Y4 R
Dim ObjRSA 9 R: e* \8 @! x* @
LngKeyE = "32823"
LngKeyD = "20643" 1 `7 a/ u# ?# ^
LngKeyN = "29893" " I+ p" F8 e, A( M5 p
StrMessage = Message % B, O/ [: t* {6 {
Set ObjRSA = New clsRSA 8 `' C6 t/ T2 t; Y
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) * d% T# A, Z# [5 ~  g7 G: N5 t0 y' g
Set ObjRSA = Nothing
end function 8 Z0 x( z2 w1 s8 t, \( U" B* X7 v
dim last,first " R. E  _: d: H0 W; O. w" k
first="!@#$%^&*()" 8 m8 N7 p1 D# D: e$ V( |+ r3 V3 r
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last 2 ~# |" n: R+ {8 m0 c; @3 M
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E6 J4 F6 f) o- s1 V$ `4 j/ A6 d
7_____0A9D) G' d; c( S( ~' F! r
8_____1A1C
9_____6D20; G& L( ~6 V7 J0 w
0_____10890 e4 ~; J8 a) s, u5 C$ L* ^7 v% d
a_____0F3E! D7 h9 ]8 y3 ~9 e7 v2 ^' z4 w8 d
b_____3159
c_____3517& x3 U2 I! P5 ^, P, q  m
d_____419C
e_____615C
f_____556F( B; Q" Z4 ^! j$ ^) K$ G
g_____2B7F
h_____0F9C
i_____00FA, `5 n9 w. b% B0 s
j_____5A504 l, K, y1 \- n
k_____2850$ X! a$ ~! c! {
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1* T; A( ~. Y0 G% n7 P3 y
p_____5FB8
q_____6085
r_____3AC4
s_____2F505 E4 Z* L# p, v+ w
t_____36F8
u_____7010% D: W  v' E% U! t2 P( u
v_____0B42
w_____1C7A- j+ }4 S6 k$ I1 p! b
x_____16F8
y_____2EE7; \6 |* q3 P- ]) D* c" P0 i
z_____5CF3
!_____6233  a( F% y- L6 u! E. s. I& @
@_____3A45% e8 Y' j+ V1 C, i, s& N" Y
#_____2291
$_____5D5C+ I1 r4 G! x$ r% ?  X" ]6 V
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____4659% T5 J0 c# V3 _4 o4 ]
)_____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 分享给朋友]