文件加密，用异或实现 ( 积分: 50 )

#include<stdio.h>
#include<stdlib.h>
#include<conio.h>
#include<string.h>

void dofile(char *in_fname,char *pwd,char *out_fname);/*对文件进行加密的具体函数*/

void main(int argc,char *argv[])/*定义main()函数的命令行参数*/
char in_fname[30];/*用户输入的要加密的文件名*/
char out_fname[30];
char pwd[8];/*用来保存密码*/

if(argc!=4){/*容错处理*/
printf("/nIn-fname:/n"
gets(in_fname);/*得到要加密的文件名*/

printf("Password:/n"
gets(pwd);/*得到密码*/

printf("Out-file:/n"
gets(out_fname);/*得到加密后你要的文件名*/


dofile(in_fname,pwd,out_fname);
}
else{/*如果命令行参数正确,便直接运行程序*/
strcpy(in_fname,argv[1]);
strcpy(pwd,argv[2]);
strcpy(out_fname,argv[3]);
dofile(in_fname,pwd,out_fname);
}

}


/*加密子函数开始*/
void dofile(char *in_fname,char *pwd,char *out_file)
{
FILE *fp1,*fp2;
register char ch;
int j=0;
int j0=0;

fp1=fopen(in_fname,"rb"
if(fp1==NULL){
printf("cannot open in-file./n"
exit(1);/*如果不能打开要加密的文件,便退出程序*/
}
fp2=fopen(out_file,"wb"
if(fp2==NULL){
printf("cannot open or create out-file./n"
exit(1);/*如果不能建立加密后的文件,便退出*/
}
while(pwd[++j0]);
ch=fgetc(fp1);

/*加密算法开始*/
while(!feof(fp1)){
fputc(ch^pwd[j>=j0?j=0:j++],fp2);/*异或后写入fp2文件*/
ch=fgetc(fp1);
}
fclose(fp1);/*关闭源文件*/
fclose(fp2);/*关闭目标文件*/
}


这是以前用C写的一个加文件加密的程序，把文件异或后达到加密的效果。用DELPHI关建的地方不知道怎么写，怎么打开文件，又怎么达到异或的效果呢？

procedure XorFile(fn: string; key: Byte);
var
ff: TMemoryStream;
Buf: PByteArray;
i: Integer;
begin
ff:= TMemoryStream.Create;
ff.LoadFromFile(fn);
Buf:= ff.Memory;

for i:= 0 to ff.Size - 1 do
Buf:= Buf xor Key;

ff.SaveToFile(fn);
ff.Free;
end;

给你一个参考:
function PassWMaker(AStr: string): string;
var
I : Integer;
Key : Integer;
S : string;
StrLen : Integer;
begin
result := '';
AStr := AStr;
Key := 1;
StrLen := Length(AStr);
SetLength(S, StrLen);
for I := 1 to StrLen do
begin
S := Char(Ord(AStr) xor Key);
end;
result := S;
end;

多人接受答案了。