如何加密INI文件中的密码！

Question

请给出一个详细的可行代码！谢谢！！本人菜鸟！

Answer 1

unit PNPCore;interfaceconst
  WinSize = 6;procedure Encrypt (SName, TName, Password: string);
procedure Decrypt (SName, TName, Password: string);implementationtype
  TKey = array[1..WinSize, 1..WinSize] of Boolean;var
  Key: TKey;
  SFile, TFile: file;
  FSize: LongInt;procedure InitKey (Password: string);
const
  CodeSize = WinSize*(WinSize+2) shr 3;
var
  Code: array[1..CodeSize] of 0..3;
  PassL: Integer;
  Max, Half, Bit, Start, Sum, X, Y: Integer;
  A, B: Integer;
begin
  PassL:= Length(Password);
  Max:= 2*PassL-3;
  if Max>CodeSize then Max:=CodeSize;
  Half:= Max div 2;
  Start:= PassL-Half;
  for Bit:= 1 to Half do
    begin
      Y:= Start+Bit; X:= 1; Sum:= 0;
      repeat
        Inc (Sum, Abs(Ord(Password[X])-Ord(Password[Y])));
        Inc (X); Dec (Y);
      until X>=Y;
      Code[Bit]:= Sum;
    end;
  for Bit:= Half+1 to Max do
    begin
      Y:= PassL; X:= Bit-Half+1; Sum:= 0;
      repeat
        Inc (Sum, Abs(Ord(Password[X])-Ord(Password[Y])));
        Inc (X); Dec (Y);
      until X>=Y;
      Code[Bit]:=Sum;
    end;
  for Bit:= Max+1 to CodeSize do
    Code[Bit]:= Code[Bit-Max];
  Y:= 1; Bit:= 0;
  FillChar (Key, SizeOf(Key), False);
  for Y:= 1 to WinSize shr 1 do
    for X:= Y to WinSize shr 1 do
     begin
       Inc (Bit);
       B:=Code[Bit] mod 4;
       A:=Code[Bit] shr 2 mod 4;
       case B of
         0:Key[X, Y]:= True;
         1:Key[WinSize+1-Y, X]:= True;
         2:Key[WinSize+1-X, WinSize+1-Y]:= True;
         3:Key[Y, WinSize+1-X]:= True;
       end;
       if not ((X=Y) or (X+Y=WinSize+1)) then
         case A of
           0:Key[Y, X]:= True;
           1:Key[X, WinSize+1-Y]:= True;
           2:Key[WinSize+1-Y, WinSize+1-X]:= True;
           3:Key[WinSize+1-X, Y]:= True;
         end;
     end;
end;procedure TurnKey (var Key: TKey);
var
  TempKey: TKey;
  I, J: Integer;
begin
  for I:=1 to WinSize do
    for J:=1 to WinSize do
      TempKey[J, WinSize+1-I]:= Key[I, J];
  Key:= TempKey;
end;procedure Encrypt (SName, TName, Password: string);
const
  Count = WinSize*WinSize;
var
  Buf: array[1..Count] of Byte;
  Matrix: array[1..WinSize, 1..WinSize] of Byte;
  CurKey: TKey;
  I, J, X, Y, PassL, Result, PassD: Integer;
begin
  InitKey (Password);
  Assign (SFile, SName);
  Assign (TFile, TName);
  Reset (SFile, 1);
  Rewrite (TFile, 1);
  PassL:= Length(Password); PassD:= PassL; CurKey:= Key;
  FSize:= FileSize(SFile);
  BlockWrite (TFile, FSize, SizeOf(FSize));
  FillChar (Buf, SizeOf(Buf), 0);
  BlockRead (SFile, Buf, Count, Result);
  while Result>0 do
   begin
     if Result<Count then
       for I:= Result+1 to Count do
        begin
          RandSeed:= MaxAvail;
          Buf[I]:= Random(256);
        end;
     for I:= 1 to Count do
      begin
        Inc (PassD);
        if PassD>PassL then PassD:= 1;
        Buf[I]:= Buf[I] xor Byte(Password[PassD]);
      end;
     J:= 0;
     for I:= 1 to 4 do
      begin
        for X:= 1 to WinSize do
          for Y:= 1 to WinSize do
            if CurKey[X, Y] then
             begin
               Inc (J);
               Matrix[X, Y]:= Buf[J];
             end;
        TurnKey (CurKey);
      end;
     BlockWrite (TFile, Matrix, Count);
     FillChar (Buf, SizeOf(Buf), 0);
     BlockRead (SFile, Buf, Count, Result);
   end;
  Close (TFile);
  Close (SFile);
end;procedure Decrypt (SName, TName, Password: string);
const
  Count = WinSize*WinSize;
var
  Buf: array[1..Count] of Byte;
  Matrix: array[1..WinSize, 1..WinSize] of Byte;
  CurKey: TKey;
  I, J, X, Y, PassL, Result, PassD: Integer;
  Readed, EofSign: LongInt;
begin
  InitKey (Password);
  Assign (SFile, SName);
  Assign (TFile, TName);
  Reset (SFile, 1);
  Rewrite (TFile, 1);
  PassL:= Length(Password); PassD:= PassL; CurKey:= Key;
  FSize:= 0;
  BlockRead (SFile, FSize, SizeOf(FSize));
  FillChar (Matrix, SizeOf(Matrix), 0);
  BlockRead (SFile, Matrix, Count, Result);
  Readed:= 0;
  while Result>0 do
   begin
     J:= 0;
     EofSign:= FSize-Readed;
     for I:= 1 to 4 do
      begin
        for X:= 1 to WinSize do
          for Y:= 1 to WinSize do
            if CurKey[X, Y] then
             begin
               Inc (J);
               Buf[J]:= Matrix[X, Y];
             end;
        TurnKey (CurKey);
      end;
     for I:= 1 to Count do
      begin
        Inc (PassD);
        if PassD>PassL then PassD:= 1;
        Buf[I]:= Buf[I] xor Byte(Password[PassD]);
        if I=EofSign then
         begin
           BlockWrite (TFile, Buf, I);
           Close (TFile);
           Close (SFile);
           Exit;
         end;
      end;
     BlockWrite (TFile, Buf, Count);
     FillChar (Matrix, SizeOf(Matrix), 0);
     BlockRead (SFile, Matrix, Count, Result);
     Inc (Readed, Count);
   end;
  Close (TFile);
  Close (SFile);
end;end.

Answer 2

unit Rsa;interfaceuses SysUtils,Windows;
 function password_out(S : string) : shortstring;stdcall;
 function password_in(S : variant) : shortstring;stdcall;implementationfunction password_out(S : string) : shortstring;stdcall;  //將轉換后的密碼轉換
type
    PWORD = ^WORD;
var
    Buffer : variant;
    PW  : shortstring;
    P   : PWORD;
    I   : Integer;
    V   : Integer;
begin
    PW := '                                                                                                                                                                ';
    P := PWORD(@PW[0]);
    I := 1;
    while I <= Length(S) do begin
        Buffer := Copy(S, I, 5);
        I   := I + 5;
        V   := StrToInt(Buffer) - 34567;
        P^  := V;
        Inc(P);
    end;
    Result := pw;
end;
function password_in(S : variant) :shortstring;stdcall; //將字符轉換成密碼
type
    PWORD = ^WORD;
var
    Len    : Integer;
    I      : Integer;
    V      : DWORD;
    P      : PChar;
    Buffer : string[255];
    a:string[100];
    b:string[100];
begin
    Buffer := S;
    Len := Length(Buffer) + 1;
    if (Len mod 2) <> 0 then
        Inc(Len);
    if Len < 10 then
        Len := 10;
    I := Length(Buffer);
    if I = 0 then
        Buffer := IntToStr(GetTickCount)
    else
        while Length(Buffer) < 10 do
            Buffer := Buffer + Buffer;
   SetLength(Buffer, I);
   P := PChar(@Buffer[0]);
    for I := 1 to Len div 2 do begin
        V := 34567 + PWORD(P)^;
        P := P + 2;
        a:=a+ Format('%5.5d', [V]);
    end;
 Result := a ;
end;
end.

Answer 3

我不知道在DELPHI中怎么使用外面的函数。

Answer 4

算法有很多：http://218.56.11.178:8020/web/index.aspx-》软件基地-》 源码-》delphi/kylix -》RSA加密算法/aes加密算法演示原码储存的是加密后的结果，将结果读出解密后即可使用

Answer 5

给你一个动态链接库：
http://go.6to23.com/byteartsoftware/related/endec.dll
这个库是我编写的，你可以用到你的软件中，只要给出声明就可以了：
function EncryptString(Source, Password:PChar):PChar;stdcall;external 'endec.dll';
function DecryptString(Source, Password:PChar):PChar;stdcall;external 'endec.dll';
procedure EncryptFile(InFileName, OutFileName, Password:PChar);stdcall;external 'endec.dll';
procedure DecryptFile(InFileName, OutFileName, Password:PChar);stdcall;external 'endec.dll';

Answer 6

slipsun(程序&鸟人) ( ) 信誉：94  2003-11-13 19:51:00  得分:0 
 
 
  我不知道在DELPHI中怎么使用外面的函数。
  
 
搂主依赖性那么强，一辈子都甭想学好编程。不知道是你懒还是对自己没信心，这么基础的问题随便找本书看看就知道了！CSDN是大家交流编程经验和讨论问题的地方，不是教你怎么走路的幼儿园!