Голова кипит помогите.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

22.01.2008, 21:50

LEE_ROY

Постоянный

Регистрация: 09.11.2006

Сообщений: 639

Провел на форуме:
1917742

Репутация: 541

Вот тож накидал чуток, кидаеш exe в папку с картинками, запускаеш... прога создаст файлы HTML в той же папке с названием - название.картинки.HTML.
В страничку допишед вот такое -

PHP код:


		
			
<html><body></a><img src="' + имя.картинки + '"></body></html>

Что вроде и требовалось

Вот экзе - http://dump.ru/files/o/o1403731592/
А вот код (делфе):

PHP код:


		
			
program sorter;



//{$APPTYPE CONSOLE}



uses

    Windows, SysUtils,  Classes;



function ExtractFilePath(const FileName: string): string;

var i: longint;

begin

i := Length(FileName);

while (i > 0) and not (FileName[i] in ['/', '\', ':']) do Dec(i);

If I>0 then

  Result := Copy(FileName, 1, i)

else

  Result:='';

end;





var

SR:TSearchRec;

FindRes:Integer;

Str: String;

begin

FindRes:=FindFirst(ExtractFilePath(paramstr(0))+'*.jpg',faAnyFile,SR);

While FindRes=0 do

   begin

   Str:= '<html><body></a><img src="' + SR.Name + '"></body></html>';



   with TFileStream.Create(pchar(SR.Name + '.html'), fmCreate) do

   try

      Write(Str[1], Length(Str));

   finally

   Free;

   end;

      FindRes:=FindNext(SR);

   end;

FindClose(SR);

end.