[prorokk]

Вот функция которая тормозит но выдает нужный результат...

Код:

function CheckSum2(file:string; blockStrpos,blockEndPos:Integer):string;
VAR
  i,b,c:Integer;
  a:string;
 begin
    result:='';
    for i:=1 to 1769472 do
      begin
      a:= a + IntToHex(ord(file[i]),2);
          if Length(a)=4 then
           begin
            c:= c + Strtoint('$'+a);
            a:='';
           end ;
      end;
      Result:=IntToHex(c,2);
      Result:=Copy(Result,Length(Result)-3,4);
      if Length(a)>0 then
      Result:='';
  end;

Админ: Пользуемся тегами для оформления кода!