怎样给文本文件加密？

Question

我就做过一个软件，
要三个密码，如果忘了密码，谁都没办法，包括我自己和CIA

Answer 1

const
  cKey = '我是密钥我是密钥我是密钥我是密钥我是密钥我是密钥我是密钥我是密钥';function Encrypt(mStr: string; mKey: string): string;
var
  I, J: Integer;
begin
  J := 1;
  Result := '';
  for I := 1 to Length(mStr) do begin
    Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
    if J + 1 <= Length(mKey) then
      Inc(J)
    else J := 1;
  end;
  {自己加步骤}
end;function Decrypt(mStr: string; mKey: string): string;
var
  I, J: Integer;
begin
  J := 1;
  Result := '';
  {自己加步骤}
  for I := 1 to Length(mStr) do begin
    Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
    if J + 1 <= Length(mKey) then
      Inc(J)
    else J := 1;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := Decrypt(Encrypt(Memo1.Text, cKey), cKey);
end;

Answer 2

to leeky(雅痞·千年虫)　
真的这么牛，能不能给一份源码我看看？
[email protected]

Answer 3

在文本文件里存储了一些信息，在程序中使用。比如...LoadFromFile(filename),不希望不输入口令时用户用能编辑文本文件的工具(记事本、WORD、EXCEL...)打开,怎么做啊?

Answer 4

to ：　joney1(守才奴)　
不是我牛，是人家现在的算法。
只是如果自己忘了密码的话，程序员也是没办法的。
我用这算法做了个小程序给自己写加密日记。明天给代码今天不早了，要吃饭

Answer 5

暂先拿这个来试试
  http://go6.163.com/dica/LeewaReader.exe
 （特别注意，请使用NetAnt等软件下载。原因：网易免费空间不再提供直接下载——“很抱歉，目前网易免费个人主页系统暂停从其他主页系统对本系统非html页面的引用。”）
  使用说明：
  http://go6.163.com/dica/reader.txt
代码等我今天的工作告一段落时再给。

Answer 6

去网上下几个关于实现DES/IDEA加密的原代码就OK了嘛

Answer 7

我刚做了一个文件加密/解密的小程序。
包含源代码、所有开发文档（任务书、需求分析、概要设计、详细设计、测试计划）。
（不过程序正在进行系统测试，不能保证没有Bug，但绝对好用）
如果想要，请给我发邮件：[email protected]

Answer 8

对于TreeView中的数据，想用SaveToFile存为TXT文件，为防止用户用普通的编辑文本文件的工具打开，所以在生成TXT文件时需要加密，在LoadFromFile时需要解密。请问这样的解决方法跟把TreeView中的数据与数据库（ACCESS，有密码）关联的方法，哪种好？

Answer 9

757365730D0A2020547970496E666F3B0D0A0D0A66756E6374696F6E20496E746567657253657428636F6E7374206D56616C75653B206D53697A653A20576F7264293A2054496E74656765725365743B0D0A7661720D0A2020493A20496E74656765723B0D0A626567696E0D0A2020526573756C74203A3D205B5D3B0D0A2020666F722049203A3D203020746F206D53697A65202D203120646F0D0A20202020496E746567657228526573756C7429203A3D20496E746567657228526573756C7429202B2054427974654172726179286D56616C7565295B495D0D0A656E643B207B20496E7465676572536574207D0D0A0D0A66756E6374696F6E20476574536574537472286D54797065496E666F3A205054797065496E666F3B20636F6E7374206D56616C75653B206D53697A653A20576F72643B0D0A20206D427261636B6574733A20426F6F6C65616E203D2054727565293A20737472696E673B0D0A7661720D0A202076436F6D70547970653A205054797065496E666F3B0D0A2020493A20496E74656765723B0D0A2020533A2054496E74656765725365743B0D0A626567696E0D0A2020526573756C74203A3D2027273B0D0A202053203A3D20496E7465676572536574286D56616C75652C206D53697A65293B0D0A202076436F6D7054797065203A3D204765745479706544617461286D54797065496E666F295E2E436F6D70547970655E3B0D0A2020666F722049203A3D2047657454797065446174612876436F6D7054797065292E4D696E56616C756520746F2047657454797065446174612876436F6D7054797065292E4D617856616C756520646F0D0A202020206966204920696E2053207468656E0D0A202020202020526573756C74203A3D20526573756C74202B20272C27202B20476574456E756D4E616D652876436F6D70547970652C2049293B0D0A202044656C65746528526573756C742C20312C2031293B0D0A20206966206D427261636B657473207468656E20526573756C74203A3D20275B27202B20526573756C74202B20275D273B0D0A656E643B207B20476574536574537472207D0D0A

Answer 10

to leeky(雅痞·千年虫)　我正好也需要做一个,希望能给我来一份!
谢谢!

Answer 11

to leeky(雅痞·千年虫):
我也需要，150分换源代码，如何？
[email protected]

Answer 12

to leeky(雅痞·千年虫):
我也需要，[email protected]