Indetectables

Mire la funcion StringInStr que hizo pink en este hilo http://www.indetectables.net/viewtopic. ... 02&t=50388
asi que le hice la traduccion a pascal practicamente es el mismo codigo

function StringInStr(Cadena,Buscar:string):integer;
var
i,pos,fin:shortint;
begin
  pos:=1; fin:=-1;
  if length(Cadena)>=length(Buscar) then
  begin
    for i :=1  to length(Cadena) do
    begin
      if  Cadena[i]=Buscar[pos] then
      begin

        if pos=length(Buscar) then
        begin
           fin:=i-length(Buscar)+1;
           Break;
        end;
        inc(pos);
      end;

    end;
  end;
result:=fin;
end;

Buena esa

En lugar de ShortInt casi mejor usar Integer para evitar errores en cadenas largas.

Saludos

gracias Bro

Buena :clap;

Te quedo Excelente.

Saludos