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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
( y5 b/ u2 @  a  S* K9 q% t原始出处：http://www.3ast.com.cm) @' l9 W0 A$ h9 V3 u5 G% d
( H1 p; k! `' M& }; o
看不懂的直接绕过! @2 U, C" x1 O0 F
加密前为:hwy123456  ?* l' [3 g$ @  A  q% k( v6 w- ?$ {
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
7 l% \/ G" u6 p% j1 d+ ]% J. e6 Q! ~7 h* e/ X7 @( v
============================================
2 ?/ }; v; _5 K. G" j上面是当时自己校内的心情。现在已经解破出来了，分享给大家
+ G$ V; q2 g; S: `, }2 W也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法# ~( G' w! }& D$ ?% f( F$ a: |
以下是RSA算法文件. m% }! C8 }5 Y9 h/ @

6 T" {/ H- B% a, c% h8 S% {$ w文件名RSA.ASP% |/ s# S, G4 F
===============================================9 @& k( d1 k2 V  y7 q; q4 b
<% ; H0 T$ D& H: y! O/ D
Class clsRSA
  g# Q2 f: P/ kPublic PrivateKey
, u" J% B- Y, @3 wPublic PublicKey
- \. B* Z  G8 E) D& @2 sPublic Modulus 8 y1 k+ E, o8 Y
Public Function Crypt(pLngMessage, pLngKey)
- n+ {" J% c  O: ^/ {On Error Resume Next
1 h  K6 ]; W4 c  v1 P, n! b9 ZDim lLngMod
& o0 C) _0 y: HDim lLngResult $ X; c5 S6 e1 f9 {" B4 M7 F3 R6 K9 P
Dim lLngIndex
; Q( ~0 G. P" {/ T4 E; c# AIf pLngKey Mod 2 = 0 Then
' X0 d7 {0 B& E6 m! ?: plLngResult = 1
4 T' @! k5 L: v# S/ v+ x6 KFor lLngIndex = 1 To pLngKey / 2
& J2 ?- `; d  F5 z: X8 C; C" N: i" OlLngMod = (pLngMessage ^ 2) Mod Modulus
- x/ c, F) j1 E5 G! E! B# z2 N' Mod may error on key generation
% F4 Q* j  U, F, s1 ?2 q7 A1 flLngResult = (lLngMod * lLngResult) Mod Modulus
  s: o( E# H, TIf Err Then Exit Function 8 Y2 K+ V, ?( P/ I
Next
) K/ L6 Y, }, c+ y- BElse
9 g* b% D# N' c* e1 `* z: _lLngResult = pLngMessage ; _7 s' J; E% i
For lLngIndex = 1 To pLngKey / 2
; c9 g3 m$ A" q* PlLngMod = (pLngMessage ^ 2) Mod Modulus 0 {0 |+ W& v& R* ^4 y  B: o8 A" M/ E
On Error Resume Next : h, I* g) h; [: {0 |
' Mod may error on key generation ( r8 n2 I4 K, P. w
lLngResult = (lLngMod * lLngResult) Mod Modulus
- G4 R4 @1 Q& A5 T  G8 K7 ]6 e0 c$ kIf Err Then Exit Function
* U( s2 q& {; g& S! }4 ANext
* s* O% b* f# h% \" _$ KEnd If * q/ L* u2 Q' |' n/ D
Crypt = lLngResult
% C1 N6 d' r; AEnd Function& ~" N4 I# }& `; P
& X2 e2 z" e9 _! G' N/ a
Public Function Encode(ByVal pStrMessage) & y5 D8 T; s& e( I/ |, G0 t4 ~1 [
Dim lLngIndex - ?0 m8 O" d% ]0 ^" E
Dim lLngMaxIndex ! d6 t( W. {$ ~0 o
Dim lBytAscii
1 a/ c/ A, T" H4 x6 {+ CDim lLngEncrypted
( u' @9 P- i0 \$ xlLngMaxIndex = Len(pStrMessage) ; x  Z1 L+ F% ~7 I
If lLngMaxIndex = 0 Then Exit Function
2 B! N( I2 _* \- n+ k$ eFor lLngIndex = 1 To lLngMaxIndex
5 u! a% u/ a/ Z4 b/ [* U  hlBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
  u' `) t$ r) P4 l& NlLngEncrypted = Crypt(lBytAscii, PublicKey)   B5 a' c5 t9 ?7 Q& w% o1 `- q1 w# _
Encode = Encode & NumberToHex(lLngEncrypted, 4)
. U1 K8 U/ [7 }  V$ wNext " n- s4 ~9 ]: G: p
End Function
, C$ H% E. c  oPublic Function Decode(ByVal pStrMessage)
8 }5 n8 c( p! C- v7 [Dim lBytAscii
8 u2 c4 F1 t& zDim lLngIndex ! q, y0 @  G* G
Dim lLngMaxIndex % L- b+ T& @. I3 ?* I
Dim lLngEncryptedData ! @5 N7 r/ l' h2 u2 L) K
Decode = ""
; h  x9 o& G$ A4 e* g! r$ C: tlLngMaxIndex = Len(pStrMessage)
/ ^& L( y' B- L7 nFor lLngIndex = 1 To lLngMaxIndex Step 4
. j7 M5 h6 I; v$ h6 ?8 ClLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ) n$ w: m+ |- H/ z$ s
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
& }; H/ {! Y. k7 P* j# t) HDecode = Decode & Chr(lBytAscii) / y! J# U6 n% X# T$ b" f
Next : B6 O: h" v% r
End Function
% x8 N( `3 _( F* `: m7 n- EPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 8 y: \8 {* S* S. O: l8 D. K" Y( A0 Y
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 7 n1 K7 p1 _) z+ {8 Q
End Function
) k) v# \% v; pPrivate Function HexToNumber(ByRef pStrHex)
3 L& q& l  I) s9 M& `8 c' Z% P7 `HexToNumber = CLng("&h" & pStrHex)
0 Q- W% a+ b' T- I! L! gEnd Function
( s& |5 X1 L1 @- z9 c/ vEnd Class 8 T! `4 E4 W. r# [/ q
function Encryptstr(Message) 1 w9 Y* ^2 t% J2 @" Q
Dim LngKeyE & C9 g5 Q0 J- v( X
Dim LngKeyD
6 |' e! {1 Q: ^, ZDim LngKeyN
5 U/ y8 n1 s- @% S% B  `, z% [( |Dim StrMessage 1 s6 T, l: x  J5 X; `0 X
Dim ObjRSA % G& L' t! p% B0 s$ a
LngKeyE = "32823" # |/ H! i& t  I* B6 m
LngKeyD = "20643" / K+ F1 K& o6 c9 w- k
LngKeyN = "29893"
+ t* q  c- s* g- qStrMessage = Message   z" W. ~9 S& d' v8 o& C: k1 I
Set ObjRSA = New clsRSA # I, r1 Y; s" p* J
ObjRSA.PublicKey = LngKeyE : ^3 c' b* O! A1 n: v) C& x. _
ObjRSA.Modulus = LngKeyN - J7 t- S7 C# Y5 p+ Y
Encryptstr = ObjRSA.Encode(StrMessage)
3 |) o# T, c+ I( ^$ pSet ObjRSA = Nothing
7 y- t8 o) `$ ]/ r0 L: xend function
7 u& L4 a9 q7 X$ `: |Function Decryptstr(Message)
* w; d, G" w8 m' fDim LngKeyE
) N& x- B6 d5 u" _# ]" TDim LngKeyD ; }  }* |/ t. W) K0 l% a
Dim LngKeyN 4 y' Y; ?! G3 n, h: W
Dim StrMessage 7 ~" W4 P6 r  O* i3 ]& _
Dim ObjRSA
. S/ s+ H9 a/ f8 [LngKeyE = "32823" * ?2 d" `/ a$ o
LngKeyD = "20643"
/ N; {" O0 j/ R6 w9 [9 F8 ?LngKeyN = "29893"
" b; U8 e( {3 o, ?StrMessage = Message ! x* D: F. d- v
Set ObjRSA = New clsRSA
( i0 U9 U1 D8 G6 n  CObjRSA.PrivateKey =LngKeyD # T3 r- m& ?1 Q: }: B7 e0 r0 f
ObjRSA.Modulus=LngKeyN
$ S+ L$ c$ ], I- ]decryptstr=ObjRSA.Decode(StrMessage) . h; A) ]  d5 Y# {% D- j' i4 r1 `
Set ObjRSA = Nothing $ _( q) {, A6 A" h8 a& _, U  G
end function
; O+ F/ q. y1 B" s1 u6 l" e- S%>
0 w) j, L/ H5 [, t5 |; ^1 r* d9 E===============================================
, F8 n' n0 y6 G: }* n; G1 t4 w1 h
6 J- Z: n/ O( @6 u还有一个用于测试这段代码的test.asp
6 S/ w  K; |$ S8 o2 ?: ~: d有兴趣的自己搭建个IIS测试下) X9 B% ?# G7 Y, c: m
<!--#INCLUDE FILE="RSA.asp"-->
. V. Z1 N* Q) B! L9 I<%6 ?( Q& @* S9 R, C9 z4 k1 c
function Encryptstr(Message)
& K+ b% u- }% o. M" v/ |3 z- iDim LngKeyE / k. u( H) P  b! v& W  J
Dim LngKeyD ; x; }8 v, w1 f: }
Dim LngKeyN
- C8 ^: r1 o& ?. o. T1 ]  s7 jDim StrMessage & b2 [, o8 v, X- Y
Dim ObjRSA
1 S4 n1 ~' C" s6 qLngKeyE = "32823" . p2 E) D8 z3 h4 X8 }
LngKeyD = "20643"
6 i+ T, u% I% ULngKeyN = "29893" : g* G- w# E) c
StrMessage = Message 4 t9 g& o. b7 D' r; t7 \
Set ObjRSA = New clsRSA % Q- u9 I4 m+ j) Z& d% Q) Y
ObjRSA.PublicKey = LngKeyE
% I; e. V( F- W- _% J3 VObjRSA.Modulus = LngKeyN 9 v" Z. K- @, Z+ [, n* ~# i
Encryptstr = ObjRSA.Encode(StrMessage) 5 d7 {4 d# v) `
Set ObjRSA = Nothing   C" }0 }3 G% p0 e3 r# M: Y
end function 5 f  e' Y6 J# [$ }0 S  W
function decryptstr(Message)
* r2 t! |; f0 H- k2 c( J+ z9 d0 CDim LngKeyE 7 z0 Z* T  J: w+ _6 P! O
Dim LngKeyD ! D% a- L3 R! m. H; k# S
Dim LngKeyN # @# w3 Z5 e6 P
Dim StrMessage 5 {  R7 [  t9 u6 D8 g: @/ K# A
Dim ObjRSA 4 _8 Y6 @2 w& M" r& K7 |/ ^
LngKeyE = "32823"
6 o; q# ?: o6 b0 @# H; a3 ~LngKeyD = "20643"
4 S8 q3 p- }- _( k' nLngKeyN = "29893" & O) u- s4 s' n- f
StrMessage = Message & _: t+ L8 p/ i5 i9 |  ]8 u
Set ObjRSA = New clsRSA 8 T: F8 k# T" l
ObjRSA.PrivateKey =LngKeyD
) F7 r# J; @  w, }. eObjRSA.Modulus=LngKeyN
# C4 A( y% q; o: X3 Vdecryptstr=ObjRSA.Decode(StrMessage) 8 }: p3 _8 D; y; r5 v5 j+ J
Set ObjRSA = Nothing / `& Z- r* n3 |1 ^8 S" t
end function
8 W9 t: l) i1 Y, y: U5 ]dim last,first
: e- ~- G& X4 _first="!@#$%^&*()"
$ f: C) s7 Y% q+ r2 a3 @  w+ y+ U1 oResponse.Write "加密前为:"&first
. k6 S& C; I6 H* c9 ~last=Encryptstr(first) 1 l9 o1 l0 X; g3 Q" X! U9 \
Response.Write "加密后为"&last : T% r0 }6 t7 W% o5 O
Response.Write "解密后为" &decryptstr(last) / q5 v8 E8 m5 U, k# Z
%> ==============================================3 }4 Q. @1 _/ }$ x- s7 _+ s0 {
剩下的就是字符的对照表了: @8 ~7 k% s! ~0 e; k. d% b
===================字符集================% }! ?' b5 ~; N8 B4 ?
1_____6EBB
1 B4 O( ^$ R3 q% I. e2_____5C1F3 s# V  ]* ^( T. E' r, O+ |7 Z
3_____4D75
$ h5 _8 w- [0 E$ w. G4_____26CC( h! G# G; b6 V% ?/ P
5_____4F88
/ o, {7 D* B0 x8 T! _: {6_____3F4E
' m7 h9 [  L) w+ v/ D; B6 A7_____0A9D+ R& p7 \+ G/ s6 b
8_____1A1C* |2 U/ f7 }$ z) K8 T9 S, G6 ]
9_____6D20/ V! D+ v4 o& o3 S
0_____1089, A& K$ ]2 V  l! H
a_____0F3E
& [, J! m! p8 Q1 Z' A( ~1 Ob_____3159' s& a+ F) U# P, z4 ?
c_____3517
; h# j9 k# {* C1 td_____419C& l5 ], C# g% j( w0 n; q
e_____615C: o0 x( M1 d- d4 Y, C) B0 n: S
f_____556F
6 r& {+ V! T, F6 g( U4 S5 {g_____2B7F
, L2 b3 P. v/ M+ th_____0F9C6 h6 I. Q; y$ w4 o. h
i_____00FA3 n" e- s9 U6 S
j_____5A50' `& t+ _2 T; ^4 L% I+ h+ t# l7 V
k_____2850
( m; X* a9 g- N/ }0 y( ^l_____3E7B
" r( {* n( t/ e& A; m* I3 T. \) }m_____71C56 G- R2 r2 K3 B$ D+ _
n_____1FC8
8 m1 p5 ^- I! [3 S! l# eo_____74C1
! i( v  u; i4 K  ^3 T1 T6 W3 lp_____5FB86 f7 v: l- {! z% _& |
q_____6085
, h$ z0 h# W; [2 A  ?2 z" tr_____3AC4
5 k4 c7 r  g/ U4 c% U6 M+ Y: ks_____2F50  o8 N" M4 i3 W. q. p9 G3 m, ~; s
t_____36F8: U( V4 @% J: j3 o) P  v9 j+ Y
u_____7010; z( j4 E2 @* ^! Y
v_____0B426 m- T. K7 P, v8 |* _
w_____1C7A
5 V: Q" H+ x3 ~. ?1 }3 s! S: lx_____16F8
6 G. Z# S  u3 I, Z" \y_____2EE7/ ?0 J. D) L5 c% u9 o
z_____5CF3
2 [9 y5 X  U" c/ N. f9 `1 J' \& @!_____6233
: l- W( Z# r% x9 x1 I@_____3A45* |: j" r3 Y7 z3 x
#_____22914 A/ ^* a+ r- a8 O; R3 R
$_____5D5C
1 E7 Z) s9 w6 g%_____09B9  ^$ `  W6 K0 Z+ H% y3 k
^_____43EA
! Z7 u9 j3 q" K1 }' N( Y- |- @: \&_____62B9
2 `2 {9 f$ R2 M*_____6301
" z- B/ a% S* b/ y(_____4659
) j! D3 g2 X: b; R" `$ J8 O)_____5C82

鱼儿无心

收藏了。。。。。。。。