Форум в топку

f0gg0t (f0gg0t@gmail.ru)

Хакер, номер #088, стр. 088-108-5

//Если цвет пикселя равен цвету эталона, то…

inc(n) //увеличиваем количество совпавших пикселей

end;

end;

if Nums[x]<n then begin

Nums[x]:=n;

Cifr[x]:=i;

end;

n:=0;

end;

end;

For i:=1 to 6 do Result :=Result+ IntToStr(Cifr[i]);

for i:=0 to 9 do bmps[i].Free;

Img.Free;

end;

функции получения ключей защиты

function GetKey(Repl:string;isAuth:boolean):string;

const

k = #39;

AuthKey = 'name='+k+'auth_key'+k;

PostKey = 'name='+k+'post_key'+k;

var

z:integer;

Fnd,Tmp:string;

begin

if isAuth then

Fnd :=AuthKey

else

Fnd:=PostKey;

z:=pos(Fnd,Repl)+Length(Fnd);

Tmp:=Copy(Repl,z,Length(Repl));

z:=pos(k,Tmp)+Length(k);

Tmp:=Copy(Tmp,z,Length(Tmp));

z:=pos(k,Tmp)-Length(k);

Tmp:=Copy(Tmp,1,z);

Result:=Tmp;

end;