Заепали продавать, у всех уже есть, пусть будет и у вас.
http://ushiro.us/delphi.rar
Все я разобрался в чем проблема
Можешь плюнуть тому человеку в глаз....Мне говорили что этот трой обходит потверждения перевода денег
Но это все клевета
Ты не прав, ..о.о , автор просто хитрый черт, и предпринял дополнительные меры защиты от вирей эвристиков при написании проги (как в сорсе MyDoom'а, там похожая хрень).У автора были явно проблемы с кодировкой т.к там в коде очень много }ќј:=Gё‹b3/ шХ№•lZ"эпФЄ•}Y"йыШё‹tZ шЩЇ•tBф такой шняги.
Мое имхо трой этот не актуален и уже очень давно...
function shifr(a: string): string;
var
I,h,k,q:integer;
str:string;
begin
h:=18;
q:=-7;
k:=10;
setlength(str,length(a));
for i:= 1 to length(a) do begin
str[i]:=chr(ord(a[i])-(h+q+k)*2);
h:=h*2;
k:=k-10;
q:=q-6;
end;
result:=str;
end;
Могут, но не будут )Врядли среди нас найдется такой кодер, который способен на такое (Убедите меня в обратном!!!)