Question

delphi字符的替换

http://www.xxx.net/@_new/@_new.exe

上面是XX的一个下载地址。 想暴力猜测。
生成一字典。。
{
11
22
33
44
...
}
分别替换上面 下载地址 的位置。

然后分别生成地址
http://www.xxx.net/11_new/11_new.exe

http://www.xxx.net/22_new/22_new.exe

http://www.xxx.net/33_new/33_new.exe

http://www.xxx.net/44_new/44_new.exe

....

要怎么做? 用DELphi怎么做
不一定是11 22 33
要包含 AA BB CC AR AQ 之类的
反正就是字典随机生成的2位字母..

Answer 1

var
sl,AddressList :TStringList;
i :integer;
const
Address = 'http://www.xxx.net/@_new/@_new.exe';
begin
sl := TStringList.Create;
AddressList := TStringList.Create;
try
sl.LoadFromFile('d:\1.txt'); //载入你的字典文件
for i := 0 to sl.Count - 1 do
AddressList.Add(StringReplace(Address,'@',sl.Strings[i],[rfReplaceAll]));
AddressList.SaveToFile('d:\2.txt'); //替换后的文件保存位置
finally
FreeAndNil(AddressList);
FreeAndNil(sl);
end;
end;