用Delphi制作文本文档程序，在文本中内容加密，我的思路是把文本内容打成乱码，在点击“解密”变回原来的

Posted 2023-04-16

谁能给我给思路，最好相应的程序，谢谢了

我以前也做过这种小程序。这个算法你可以自己设计，也可以用像什么MD5之类的加解密算法咯。

但因为不能粘贴附件，所以就贴点代码。

procedure TForm1.N2Click(Sender: TObject);//打开文件
var
tl:string;
begin
if OpenDialog1.Execute then
begin
ListBox1.Clear;
Caption:='文件加密解密器'+OpenDialog1.FileName;
AssignFile(ATextFile,OpenDialog1.FileName);
Reset(ATextFile);
while not eof(ATextFile) do
begin
Readln(ATextFile,tl);
ListBox1.Items.Add(tl);
end;
CloseFile(ATextFile);
end;
end;

function Encode(s:string):string;//加密的核心部分
var
n,i:integer;
str:string;
begin
n:=length(s);
str:='';
for i:=1 to n do
begin
str:=str+char(ord(s[i])+10);
end;
Encode:=str;
end;

function Decode(s:string):string;//解密的核心部分
var
n,i:integer;
str:string;
begin
n:=length(s);
str:='';
for i:=1 to n do
begin
str:=str+char(ord(s[i])-10);
end;
Decode:=str;
end;

procedure TForm1.N3Click(Sender: TObject);//加密
var
ln:integer;
tl,nl:string;
begin
if SaveDialog1.Execute then
begin
AssignFile(ATextFile,SaveDialog1.FileName);
Rewrite(ATextFile);
for ln:=0 to ListBox1.Items.Count-1 do
begin
tl:=ListBox1.Items[ln];
nl:=Encode(tl);//加密
Writeln(ATextFile,nl);
end;
CloseFile(ATextFile);
end;
end;

procedure TForm1.N4Click(Sender: TObject);//解密
var
ln:integer;
tl,nl:string;
begin
if SaveDialog1.Execute then
begin
AssignFile(AtextFile,SaveDialog1.FileName);
Rewrite(ATextFile);
for ln:=0 to ListBox1.Items.Count-1 do
begin
tl:=ListBox1.Items[ln];
nl:=Decode(tl);//解密
Writeln(ATextFile,nl);
end;
CloseFile(ATextFile);
end;
end; 参考技术A 这是简繁的问题,
你可以在你的窗体代码下
implementation 下 写入 resourcestring 定义 文字,的变量，数据要取就取那个变量;
例如
implementation

resourcestring
Sfor='青春XXXX';

你要拷贝到记事本的时候就 考这个变量就可以了。 参考技术B 简单举例，从参数尾字符开始，与1进行异或。反过来也是一样的，加密和解密都是同样的函数。

function jm(Str:String):String;
var
i:Integer;
Temp:Char;
begin
Result:=Str;
for i:=1 to Length(Str) div 2 do
begin
Temp:=Chr(Ord(Str[Length(Str)-i+1]) xor 1);
Result[Length(Str)-i+1]:=Chr(Ord(Str[i]) xor 1);
Result[i]:=Temp;
end;
end; 参考技术C 有两种方式。
第一，把txt文件生成后，对文件进行加密。也就是用TFILE函数，以字节的方式读取文件，每个字节加密，简单点就是加上一个值。当你用这个文件时，再以字节的方式读取文件，再恢复每个字节里的内容。这样不太方便。
第二，读取文件里的字符，对字符加密，简单的做法是把每个字符的ASIIC码加上一个数，再强转为PCHAR类型。你自己用时，再把字符还原就可以了。
这是加密基本原理，要是想再安全些，可以附加安全算法。
最近忙，有空帮你敲一个。

VB关于搜索文本的代码···

我的可能比较特殊，TXT里的数据是一行一行的，在text1里输入东东，如果和文本里的某一行相匹配，那么就把这一行和下一行显示在text2里。如果多个匹配，那么久都显示在text2里。如果没有，就显示没有。
PS:文本并不在固定位置，而是在与exe同一目录的文件夹里，应该用什么path吧···
有没有比较简单的易懂的，最好用 ‘ 添上注释，谢谢了。

Public Function FindString(pathStr As String, findStr As String)
Dim textStr As String, textTemp As Variant  ' 定义变量，用于储存文本内容
On Error GoTo ErrCode:
    ' 获取文件内容
    Open pathStr For Input As #1
        textStr = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    ' 按行存入数组
    textTemp = Split(textStr, vbNewLine)
    ' 清空字符串内容
    textStr = ""
    ' 开始获取数组内容
    For i = 0 To UBound(textTemp)
        DoEvents
        If textTemp(i) = findStr Then   ' 检测当前行内容是否匹配
            ' 获取当前行和下一行的内容并自动添加换行符
            textStr = textStr & textTemp(i) & vbNewLine & textTemp(i + 1) & vbNewLine
        End If
    Next i
    ' 当没有找到匹配内容时设置textStr为Not Found,你也可以改为"没有找到"
    If textStr = "" Then textStr = "Not Found"
    ' 设置返回值为textStr
    FindString = textStr
    Exit Function
ErrCode:
    ' 当发生错误时(如下标越界)返回Error
    FindString = "Error"
    Exit Function
End Function

先将上面的函数写入模块中

    Text2.Text = FindString(App.Path & "\\1.txt", Text1.Text)

再用以上代码达到你的目的，并且添加了模块后以后都可以用FindString()函数来获取内容了

追问

这样显示的是txt里的两行在text里显示成1行了，有什么解决办法吗？

追答

这和我的代码无关，是控件属性设置的问题，把Text控件的MultiLine设置为True就可以多行显示了

参考技术A '我这个程序比较简单.测试正确.相信你能看懂的.朋友.
Private Sub Command1_Click()
x = InputBox("请输入文件名(含完整的路径,如d:/temp01.txt)")
Open x For Input As #1
End Sub
Private Sub Command2_Click()
Dim s As String, s1 As String
If Not EOF(1) Then
Line Input #1, s
If Not EOF(1) And s Like "*" & Text1 & "*" Then
Line Input #1, s1 '如果上一次读出后仍没到文件尾,并且所查内容在那行中,则再读一行
Text2 = s & s1
Else
Text2 = "没有"
End If
Else
Text2 = "文件已读完.要继续请重新输入"
End If
End Sub
Private Sub Command3_Click()
Close
End
End Sub