編程文件加密
❶ 編程實現文件的加密，將t X T文件F i l e1中的每每個字元與0X4c異或變成另一字元顯示
文件1 名字存於 namein， 輸出文件名 nameout。
用2進制方法打開文件，用2進制方法讀寫文件。讀1個字元，輸出 1個它的異或字元，直到文件結束。 c 語言程序如下。
#include <stdio.h>
int main(){
FILE *fp, *fout;
char namein[80]="in.txt", nameout[80]="out.txt";
static char c,c2;
fp = fopen(namein,"rb");
fout = fopen(nameout,"wb");
while(1){
if (fread (&c,1,1,fp)!=1) break;
c2= c ^ 0x4c;
fwrite(&c2,1,1,fout);
}
fclose(fp); fclose(fout);
return 0;
}
❷ python編程實現加密解密讀取文件
對Python加密時可能會有兩種形式，一種是對Python轉成的exe進行保護，另一種是直接對.py或者.pyc文件進行保護，下面將列舉兩種形式的保護流程。
1、對python轉exe加殼
下載最新版VirboxProtector加殼工具，使用加殼工具直接對demo.exe進行加殼操作
2、對.py/.pyc加密
第一步，使用加殼工具對python安裝目錄下的python.exe進行加殼，將python.exe拖入到加殼工具VirboxProtector中，配置後直接點擊加殼。
第二步，對.py/.pyc進行加密，使用DSProtector對.py/.pyc進行保護。
安全技術：
l虛擬機外殼：精銳5的外殼保護工具，創新性的引入了預分析和自動優化引擎，有效的解決了虛擬化保護代碼時的安全性和性能平衡問題。
l碎片代碼執行：利用自身成熟的外殼中的代碼提取技術，抽取大量、大段代碼，加密混淆後在安全環境中執行，最大程度上減少加密鎖底層技術和功能的依賴，同時大量大段地移植又保證了更高的安全性。
lVirbox加密編譯引擎：集編譯、混淆等安全功能於一身，由於在編譯階段介入，可優化空間是普遍虛擬化技術無法比擬的，對代碼、變數的混淆程度也有了根本的提升。
l反黑引擎：內置R0級核心態反黑引擎，基於黑客行為特徵 的（反黑資料庫）反制手段。精準打擊調試、注入、內存修改等黑客行為，由被動挨打到主動防護。
加密效果：
加密之前
以pyinstall 的打包方式為例，使用pyinstxtractor.py文件對log_322.exe進行反編譯，執行後會生成log_322.exe_extracted文件夾，文件夾內會生成pyc文件。
成功之後會在同目錄下生成一個文件夾
❸ 怎麼編程把電腦文件鎖起來
這個不太容易啊，因為你需要學習《加密與解密》，先把文件讀入程序通過演算法加密，生成自己後綴的文件，刪除源文件（如果讓文件完全上鎖，這一步必須完全刪除，至於怎麼完全刪除，看看文件恢復技術吧），在操作系統注冊自己的文件……雙擊你的文件時會打開你的軟體
❹ step7編程軟體中如何給編好的FC,FB進行加密
這樣加密好像有點煩得嘛，我看同事打開一個文件就可以了，就是不知道那是西門子裡面的那個文件
❺ 怎樣用VB編寫一個文件加密程序
位元組逐位倒排序加密法是以比特為單位的換位加密方法，用VB實現的具體演算法是：
(1) 以二進制模式打開源文件；
(2) 從源文件第I位讀取一個位元組，假設為字母「A」，得到「A」的ASCII值為65；
(3) 將65轉換成八位二進制串為「01000001」；
(4) 將「01000001」按位元組逐位倒排序得另一個八位二進制串「10000010」；
(5) 將「10000010」轉換成十進制再寫回源文件第I位置，完成一個位元組的加密；
(6) 重復(2)、(3)、(4)和(5)，直到所有位元組加密結束。
為了使程序模塊化，我們用函數過程ByteToBin完成將位元組型數據轉換成二進制串（其實質就是將十進制數轉換成八位二進制串）；用函數過程BinToByte將二進制串轉換成位元組型數據（實質是將八位二進制串轉換成十進制數）：用函數過程Reverse將八位二進制串逐位倒排序。具體程序如下：
Function ByteToBin(m As Byte) As String ' 將位元組型數據轉換成八位二進制字元串
Dim c$
c$ = ""
Do While m <> 0
r = m Mod 2
m = m \ 2
c$ = r & c$
Loop
c$ = Right("00000000" & c$, 8)
ByteToBin = c$
End Function
Function Reverse(m As String) As String ' 將八位二進制字元串顛倒順序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) & x
Next i
Reverse = x
End Function
Function BinToByte(m As String) As Byte ' 將八位二進制串轉換成十進制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
BinToByte = z
End Function
Private Sub Command1_Click()
Dim x As Byte, i%, fname$
fname = InputBox("請輸入要加密的文件名！注意加上路徑名：")
If Dir(fname) = "" Then
MsgBox "文件不存在！"
Exit Sub
End If
Open fname For Binary As #1 ' 以二進制訪問模式打開待加密文件
For i = 1 To LOF(1) ' LOF函數是求文件長度的內部函數
Get #1, i, x ' 取出第i個位元組
x = BinToByte(Reverse(ByteToBin(x))) ' 這里調用了三個自定義函數
Put #1, i, x ' 將加密後的這個位元組寫回到文件原位置
Next i
Close
MsgBox "任務完成！"
End Sub
本例可以完成對任意文件的加密與解密，對同一文件作第一次處理為加密，第二次處理為解密。要調試本程序，可用記事本在C盤根目錄下任意建立一個文本文件（假設為文件名為aaa.txt），其中的內容任意（可以包括字母、漢字、數字、回車符、換行符等）。運行本程序後，在輸入文件名的對話框中輸入文件名（如：「C:\aaa.txt」）後回車，即可完成對文件的加密。文件加密後，可以在記事本中打開該文件查看加密效果。如果想解密，可再次運行該程序並輸入相同文件名。