暗淡我壹樣長
Dim databuff() As Byte '定義了壹個用於存儲文件內容的數組。
Dim addbuff() As Byte '定義了壹個用於存儲加密文件內容的數組。
Dim password() As Byte '定義了用於存儲密碼的數組的ASCII值。
將文件名標註為字符串
私子Check1_Click()?
If check1.value然後控制是否顯示所有文件。
文件1。模式= "*。*"
其他
文件1。模式= "。txt "
如果…就會結束
末端接頭
私有子命令1_Click()?
Dim j為整數
Dim password_len為整數
password_len = Len(Text2。正文)
ReDim密碼(password_len)為字節
對於i = 0到password_len-1 '將密碼轉換成ASCII碼。
密碼(i)= Asc(Mid(Text2。Text,i + 1,1))
然後
如果文件名= " "則退出Sub
open filename for binary as # 1 '讀取要加密的文件的內容。
ReDim數據緩沖區(LOF(1))
獲取#1,,數據緩沖區
關閉#1
ReDim addbuff(UBound(databuff))作為字節
對於i = 0至UBound(數據緩沖)
如果j & gt= password_len Then '回收密碼。
j = 0
其他
j = j + 1
如果…就會結束
Addbuff (I) = databuff (I) xor密碼(j)'進行xor運算。
然後
open filename for binary as # 1 '將加密的內容寫入文件。
Put #1,,addbuff
關閉#1
' text 1 = strconv(add buff VB unicode)'顯示加密的文件內容。
文本2。文本= " "
末端接頭
Private Sub命令2_Click()?
。結束
末端接頭
私有Sub Dir1_Change()?
“文件1.path = DIR1.path”與文件列表框相關聯。
末端接頭
私有子驅動1_Change()?
出錯時轉到a0
“目錄1 .路徑=驅動器1 .驅動器”與目錄列表框相關聯。
A0:如果err那麽msgbox (error (err))'有錯誤,提示錯誤內容。
末端接頭
Private Sub File1_Click()'單擊文件時,會顯示文件的內容。
文件名= Dir1。路徑+文件1 .文件名
如果文件名= " "則退出Sub
將二進制文件的文件名打開為#1
ReDim數據緩沖區(LOF(1))
獲取#1,,數據緩沖區
關閉#1
Text1 = StrConv(databuff,vbUnicode)
末端接頭