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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm, N# U0 Z# A; t. n7 |! s- j
原始出处：http://www.3ast.com.cm
2 Y4 g; J' u+ ]( O% l, {9 R7 _
5 ^# A% z5 z" Z- x看不懂的直接绕过. g4 O4 _+ h7 [
加密前为:hwy123456+ S7 x2 u% T; J* S
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
6 x8 P3 f) s+ p: m0 V* M* n: V1 s5 g/ X+ b8 e5 B( h
============================================
0 L* u8 O9 Z* R2 _+ [上面是当时自己校内的心情。现在已经解破出来了，分享给大家% I" R8 H% |% L! u
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法9 H9 j7 `; ~. `
以下是RSA算法文件
" W! X0 J# r+ [$ w6 X( d: v; k+ V% P! e, O9 o/ m$ Q) U' q
文件名RSA.ASP
7 `( C2 T9 A2 o( R* m. R% |) f===============================================
7 o9 B5 r" o( ~$ y+ ^( q* M<% : W: G, T' y6 q8 D+ D4 E" P) V
Class clsRSA 8 X/ _" Z5 l6 V5 m
Public PrivateKey - W6 T4 t/ Z% a/ F* @
Public PublicKey
0 T( ?* i; B$ `7 b4 o. P7 wPublic Modulus
8 M% j: @, _! k* uPublic Function Crypt(pLngMessage, pLngKey)
+ r/ Z6 r7 K- V: j' dOn Error Resume Next $ I' r3 }! H  ~/ \
Dim lLngMod ! ~4 K1 Q1 L) }; [0 g* P; s& N
Dim lLngResult 3 }8 D- Z3 g/ Q0 V! ]9 L4 `( t& y
Dim lLngIndex : V3 I; ]( w  S& l
If pLngKey Mod 2 = 0 Then
$ `' F  q' J$ {* ], g& X% olLngResult = 1 : r- b3 x9 C3 [, }$ v6 i" b
For lLngIndex = 1 To pLngKey / 2 ( v3 {: \: E/ ?8 n5 H9 R  ]  g; x
lLngMod = (pLngMessage ^ 2) Mod Modulus
) d$ S8 f( p# J4 y' Mod may error on key generation
$ M- q7 r0 k0 b6 S" _5 KlLngResult = (lLngMod * lLngResult) Mod Modulus ; G* ~1 v$ U2 ~9 F+ B$ d
If Err Then Exit Function
8 P7 l9 }+ M" a9 ]! ?7 d$ v3 r0 [Next 4 Y5 |' @2 w  D1 E! G* X0 y; U
Else ! X: o4 w9 J8 a( i2 I2 Y9 I) t
lLngResult = pLngMessage 5 @( |( R+ b5 ^
For lLngIndex = 1 To pLngKey / 2
) x9 _; o2 F% k+ i) ~lLngMod = (pLngMessage ^ 2) Mod Modulus $ b3 r% M( \8 T
On Error Resume Next
$ }# L4 u% @8 x- c/ M4 P' Mod may error on key generation
8 C" r+ L8 s1 ?' G+ N/ |5 AlLngResult = (lLngMod * lLngResult) Mod Modulus
- l) S4 i+ L9 D* fIf Err Then Exit Function
4 y, C: `3 p3 y0 D* \8 k" B5 j  \Next ) z2 e+ C' i' _! }& J  s
End If 7 \7 @1 Z# a' I
Crypt = lLngResult 0 c8 O0 \4 r% L) {: Q" R
End Function. H6 H! u) }& L2 k9 h

! X5 i3 h$ `" h1 ?( A  \! DPublic Function Encode(ByVal pStrMessage) 8 R+ s) u& K: F& r, k3 C
Dim lLngIndex
  X/ j) A# W# G0 C7 cDim lLngMaxIndex
' L2 z0 K, ?8 n+ |Dim lBytAscii 9 a) a. j0 f5 V' t5 r* j: q
Dim lLngEncrypted / Z' ^9 }# L: v7 B4 ]& Q
lLngMaxIndex = Len(pStrMessage) 8 u6 M" n: F6 P; M
If lLngMaxIndex = 0 Then Exit Function . K1 v/ z! S; e( O: W
For lLngIndex = 1 To lLngMaxIndex
3 _! c! M  V' @lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 8 L* z0 ^" n; `
lLngEncrypted = Crypt(lBytAscii, PublicKey)
8 a1 w5 v" q( W  k2 }7 z- t. qEncode = Encode & NumberToHex(lLngEncrypted, 4)
# l/ W" \7 y# b( B0 w6 d9 A! {' W! {Next " _5 R) S7 }+ D% o% a; Z, @
End Function 8 c- ]8 m* o/ `
Public Function Decode(ByVal pStrMessage) 8 ]8 ], N  C$ i5 N1 |$ |$ R
Dim lBytAscii
0 S$ A" T* p5 SDim lLngIndex
" a0 q+ i: m! lDim lLngMaxIndex ) T6 x4 Q) _! b0 P
Dim lLngEncryptedData 2 X' a& I8 X- D. i
Decode = ""
7 c2 `( M# u; R7 j, B+ z! n6 s, BlLngMaxIndex = Len(pStrMessage)
4 U) ]* ?/ @  G6 U5 v9 M: O& QFor lLngIndex = 1 To lLngMaxIndex Step 4
/ R  c8 E1 }2 d; h3 g  rlLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
  m. K* A) M1 Y3 q3 elBytAscii = Crypt(lLngEncryptedData, PrivateKey) . T9 c7 X# l. m" g
Decode = Decode & Chr(lBytAscii) 9 X) N( }+ Z  S
Next
+ T6 G0 }  L. `( d7 \2 {; h* DEnd Function " y1 {5 j% F4 m1 Q) ?
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
( q8 R; c/ G$ Q; ^% n/ O, ^8 yNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) $ C9 L. O, r! L" m# l. |4 ]8 t! Q
End Function & Y$ S  {2 a* i, e* {3 a- y) P
Private Function HexToNumber(ByRef pStrHex)
0 k4 v' e6 e- f( A, oHexToNumber = CLng("&h" & pStrHex) " b! W1 {3 E. t& n1 |8 i
End Function
" l. }% n# _8 Q5 D9 M  d* MEnd Class
' c( Y+ q2 ~& w. M7 _function Encryptstr(Message) 1 |9 S7 V( \. j" a0 x, T5 I# Q
Dim LngKeyE
. x/ Z7 y+ M  i$ \5 r  [Dim LngKeyD
* Y& a9 r' |& y0 j& \; b. VDim LngKeyN - l0 v) u0 N) q* _7 c6 T
Dim StrMessage
3 Q0 Y7 X: M$ RDim ObjRSA 9 h1 T0 W6 a5 W: r1 ~
LngKeyE = "32823" , X) v7 V. j+ X2 P4 Q
LngKeyD = "20643" 7 n7 h% T# a. x5 V/ f7 P6 `: Z
LngKeyN = "29893" : n! V9 p" t$ ~( ?% t  q
StrMessage = Message
. g: z2 D3 b/ K4 b6 ?# n& p! xSet ObjRSA = New clsRSA
. C0 p  g1 m6 E5 Y% n5 HObjRSA.PublicKey = LngKeyE + h; Q: ~6 n) o3 \. E
ObjRSA.Modulus = LngKeyN
- `5 p7 R$ J) v# k+ DEncryptstr = ObjRSA.Encode(StrMessage) 8 t" V1 a4 u" C0 Z8 P. d
Set ObjRSA = Nothing
% q; g5 t. N# X/ Zend function* B+ f( D7 A! [; A
Function Decryptstr(Message)
0 D( ?) ^! M% `Dim LngKeyE 2 o* e& f/ ?/ ]4 E, q8 H- J
Dim LngKeyD 8 z. |7 }' W4 U4 w( B, x
Dim LngKeyN , S8 _5 j. V8 N# r1 m
Dim StrMessage
1 S" \0 ^/ E+ J  {* s: u" w( C( VDim ObjRSA
( l7 |$ [' I! r9 Q' D% w* s1 CLngKeyE = "32823"
; U  L5 z+ c8 ~& F( aLngKeyD = "20643"
# d$ D$ f. s" R2 B7 i. z; OLngKeyN = "29893" * u+ Q5 t0 \. j, K4 A
StrMessage = Message 7 h" t5 t6 l( x" o- @) U
Set ObjRSA = New clsRSA
; o; J3 ~2 K. W$ rObjRSA.PrivateKey =LngKeyD
; d& ^* E% ]" D$ d9 z; d1 D2 LObjRSA.Modulus=LngKeyN
$ N7 H! o% u/ u' udecryptstr=ObjRSA.Decode(StrMessage) 1 X! A! I! v$ @; D5 ~; r3 ]
Set ObjRSA = Nothing # q# m7 o5 ~/ \, g2 U0 ~$ ^
end function
! s2 c2 O5 i9 I0 k( i$ P# C%>' A5 M7 ]5 a4 o7 C4 V/ D" W& O& h: r
===============================================$ ?% \) ]0 r3 l3 @. U$ r
; e) w" F) i) ^# c
还有一个用于测试这段代码的test.asp
# T- U$ s# L6 |7 _9 q% }. o有兴趣的自己搭建个IIS测试下
; {9 k: e# ], S5 b2 J% q% B, g+ _9 H<!--#INCLUDE FILE="RSA.asp"-->
. i0 V6 A+ {1 @" C* I. e<%
7 q3 q) o8 H  ]9 x8 Gfunction Encryptstr(Message)
% P  e& d, R0 j7 CDim LngKeyE
; @$ ]& t; p# z( _7 }- EDim LngKeyD , @& e+ }9 q, l* h
Dim LngKeyN 0 y9 ]" {7 h" N% w
Dim StrMessage
/ |7 ?  k$ s$ V0 a9 c  Y) zDim ObjRSA / _, F4 P% T& G
LngKeyE = "32823"
9 ~3 F% t: r% }/ I7 ~4 qLngKeyD = "20643" . _$ ^8 Q: _3 o- l# K0 R
LngKeyN = "29893" # n) A- O( C% I, c
StrMessage = Message
# `1 ]; H" ]) G1 A- TSet ObjRSA = New clsRSA / H4 w1 o; R/ m" K2 Z
ObjRSA.PublicKey = LngKeyE 2 p; @6 y1 n# }' ~+ r
ObjRSA.Modulus = LngKeyN . H, @' ?( z/ K' a' E% r8 Z1 F, O9 ?
Encryptstr = ObjRSA.Encode(StrMessage) 8 C3 h4 T! n/ u; z- e3 ^
Set ObjRSA = Nothing
1 q( {% n( I$ R. L+ k; k/ N, l7 zend function
6 q4 R* c; G7 H3 d/ Ifunction decryptstr(Message)
7 @1 o1 A; I0 u) x( y! B' M% rDim LngKeyE
1 m& C' J. Z& p4 G. oDim LngKeyD
% V+ _3 R7 x8 _" }' }0 l/ E+ bDim LngKeyN $ g9 Q& ]/ I( V2 v$ X' o
Dim StrMessage
, m' m; E, H- o! R! o% R7 VDim ObjRSA 8 h* ^2 A% _6 e: r4 C
LngKeyE = "32823"
* p4 o# L0 _& Y# ]0 l+ K! N$ _LngKeyD = "20643" ! Q$ B9 s4 Z: w9 [- L7 i- x
LngKeyN = "29893"
! {1 j  b" D0 lStrMessage = Message
  X$ p5 N5 C' M' ^Set ObjRSA = New clsRSA ! i8 ?% x) I3 u9 Y! X6 J  k
ObjRSA.PrivateKey =LngKeyD
- n, Z% v! V* m2 f- n2 z6 eObjRSA.Modulus=LngKeyN 5 w' B2 m' ^" M7 V: c* }
decryptstr=ObjRSA.Decode(StrMessage)
$ Z, e  a# d7 t0 _6 @Set ObjRSA = Nothing
5 E, A% T$ X2 ]* {2 `end function 7 W6 `, f( w# ^; \" a0 J7 s6 B
dim last,first 0 ]4 i0 A: Q3 ^: A3 m  M) k/ l
first="!@#$%^&*()"
8 T, H! p) y) t3 [, e3 O% p7 Z7 m  lResponse.Write "加密前为:"&first 2 J9 }$ I& z! Z& s- y( R& k* J
last=Encryptstr(first)
" M' }$ Q/ ~( BResponse.Write "加密后为"&last % p) @! K3 P3 U0 ]
Response.Write "解密后为" &decryptstr(last)
% ]6 z* R! K* F% f%> ==============================================$ l# Z1 T9 c; k; G6 P
剩下的就是字符的对照表了1 B$ w  u  y9 S9 w, W
===================字符集================. M8 a: _- C# h
1_____6EBB
1 M. j% ?) ]8 A- T# ?0 |0 `2_____5C1F
5 g8 f) N+ |4 `2 n! z: {2 d2 j1 h: i3_____4D75$ w1 K& d  Z2 G- E, Z  E$ p, _+ b$ i6 w
4_____26CC
: t) I# G* K' @; k* l3 W" B6 D- ~5_____4F88. t. n" J( M. T$ f" c: c
6_____3F4E
3 \0 B  ]7 m( ]* d4 v9 D  U1 V7_____0A9D
0 k7 D$ u" B+ N- t) h$ k  n6 `8_____1A1C7 N. s5 F+ i3 [& e" d  |
9_____6D20& v7 F& x7 |9 r& b
0_____1089
0 m5 Z  d$ z% ?* l5 W- _a_____0F3E
% G" B1 {1 z# C7 g0 W: ?1 @  i$ Z# s( kb_____3159
% a  w# U0 t+ \c_____3517( A. i5 r/ m% }
d_____419C2 W) a9 {1 f; Y
e_____615C
" I& U' o/ |: s# J, q  w8 Df_____556F# R0 K; l+ ~8 w7 ~5 Q+ I0 M; A
g_____2B7F6 x0 z! W- i0 C6 Q3 a
h_____0F9C
( G; Y' P  {" B2 E( C4 Z9 ?" Wi_____00FA
) z1 U8 j) I; U, l9 w3 ?! N' ]! M0 _j_____5A507 a# `( R* M- c- K8 y
k_____2850
6 F1 C& ^. `$ A. }, a+ |6 q- Z# ]( Hl_____3E7B( g% g7 u  j  i% y
m_____71C5
  a: O+ v5 S2 }n_____1FC8
- v  H& U8 z: ?$ N2 k# ro_____74C1  f3 Z$ ?' z  R0 Z7 J+ `7 p
p_____5FB8: l. R/ Y- c: t( @2 M/ _
q_____60856 @! a" Q8 \1 H5 f/ F1 W
r_____3AC4
  b# b. p7 ]/ w+ L* |8 @8 Ds_____2F503 [) ]- w  M" E
t_____36F8
) y, w, \" `) g1 G+ {! uu_____7010. }% E8 E& `4 @. M1 ^
v_____0B42  b: H) j% l: K6 x0 _1 e( I
w_____1C7A
3 y& p% ~8 D+ `2 h! t3 hx_____16F8
' N! ?8 P- x% I3 Z& \/ gy_____2EE7( d1 ^; H) |( P3 G9 E$ ?
z_____5CF3
4 Y# A" v* B1 `' b* G!_____6233
0 _" G5 z8 [' @& P% L@_____3A45" L. U/ M) e8 W
#_____22916 E9 m# Y4 t+ {& P$ W  d
$_____5D5C
1 \5 X4 K$ A$ p( p%_____09B9. o4 X+ n4 E; P: c
^_____43EA
6 P* S5 e& Q0 i, w&_____62B9; s( k2 L" X& @4 C" |$ N3 U+ Q
*_____63018 W8 G0 \0 \3 |  G: [( ]
(_____46595 i& ^" x0 q! d5 @
)_____5C82

鱼儿无心

收藏了。。。。。。。。