[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Ты смеешься?! Или у тебя колёсико вниз не крутит =)
https://forum.antichat.ru/thread79328.html

 

Я не фейк прошу, а компонент под Delphi

 

Может ктонибудь дать пример создания 3D графики (OpenGL) с примером 3D кнопки тоесть на неё наводишь - анимация, на неё нажимаешь - какое то действие и все ето на OpenGL или другом 3D движке))))

p.s. не откажусь от совета хорошей (понятной, широко объясняемой... и т.п.) книги по этой теме.

Зарание благодарю!


------------------------------------------------------------------
<< ссылка на сервис
http://hash.ixces.ru/ On-line md5 сервис

 

OpenGL и Delphi на практике:
www.citforum.ru/programming/opengl/opengl&delphi/

Использование библиотеки OpenGL в Delphi:
www.codenet.ru/progr/opengl/delphi/

Примери на Делфи:
www.delphisources.ru/pages/sources.html

Графика, DirectX, OpenGL / Исходники:
sources.codenet.ru/?cid=11

ВСЕ ВМЕСТЕ ВЗЯТОЕ+много много ещо:
www.gOOgle.com

 

Dober'man.рупутация++

 

Как на дельфи прочитать в переменную файл в котором есть переносы строк? например картинку или exe'шник... Файл изначально неизвестного размера и формата.

 

Просто присвой содержимое файла переменной и все...

 

http://delphibasics.ru/BlockRead.php - раскуривай

 

Народ киньте плз исходник (делфи) проги типо PassSave(аля сохранялка пассов к определенным сайтам)

спасибо!

 

А по проще не куда?

 

mr.The:

Code:

function L2F(const FileName:string; var Kyda:string):Boolean;
var fp:File;
begin
 if FileExists(filename) then
  begin
   Result:=True;
   try
    FileMode:=fmOpenRead;
    AssignFile(fp,filename);
    Reset(fp,1);
    try
     SetLength(kyda,FileSize(fp));
     BlockRead(fp,Pointer(kyda)^,Length(kyda));
    finally
     CloseFile(fp);
    end
   except
    Result:=False;
   end;
  end
 else Result:=False;
end;

и тепер например делает так:

Code:

var s:string;
begin
l2f('c:\windows\explorer.exe',s);
end;

 

Дело в том что ты не открываешь, а пытаешся сохранить,
или думаешь что открываешь а на самом деле есть попытка перезаписать файл.

Сообщение переводится {Имя файла} уже существует. Перезаписать.
Всё успехов тебе в этих открытиях.

Кстати да Open это открыть, Save ass - сохранить как, на это урок английского закончим.

Как вариант ты можешь открывать файл .pas блокнотом, и копировать в окно паскаля.
Но как это делать я объясню, на следующем уроке, мною и так проделана огромная умственная работа по написанию этого поста.

 

есть скомпиленный exe на Pascal, а файла-исходника *.pas нету.

как .exe вернуть в *.pas , чтобы получить исходный код??

 

После компиляции, получить исходный код, невозможно! Можно лишь декомпилировать, но в итоге ты получишь асм код, причем очень мутный...

 

есть прога DeDe, которая дает возможнось декомпилировать бинарки (которие били скомпилирование с помощью Delphi)
DeDe: www.xakep.ru/post/18513/default.asp
скачать DeDe3.50 www.runweloads.com/cod/gen/4551prog.html

 

нужна помощь..))

что посоветуете (какой компонент, а ЛУЧШЕ самописную функцию/процедуру) для шифрования текстових строчек в проекте?

тоесть, например есть проект:

Code:

program Project1;
uses
  windows;
var s:string;
begin
s:='hello world';
messagebox(0,pchar(s),pchar(s),0);
end.

нужно закодировать строчку 'hello world'..
но не нужно предлагать крипт, типа base64, xor.. ето очень легко при реверсе получить обратно.. а нужно сделать так, чтоб при риверсинге било оооочень сложно получить исходную строчку..

--------------------------
заранее извиняюсь за много орф ошибок, т.к. я не из россии..))

 

Вот когдато давно написанный мною алгоритм. Работает быстро, хорошие результаты.
И главное есть ключ, который можно уже и прятать

Code:

procedure deCryptMem(adr:pointer;size:dword;key:dword);assembler;stdcall;
asm
pushad
 xor ecx,ecx
 mov edi,adr
 mov ebx,key
@m1:
 mov al,[edi+ecx]
 xor al,bl
 sub al,cl
 mov [edi+ecx],al
 ror ebx,3
 inc ecx
 cmp ecx,size
 jb @m1
popad
end;

procedure CryptMem(adr:pointer;size:dword;key:dword);assembler;stdcall;
asm
pushad
 xor ecx,ecx
 mov edi,adr
 mov ebx,key
@m1:
 mov al,[edi+ecx]
 add al,cl
 xor al,bl
 mov [edi+ecx],al
 ror ebx,3
 inc ecx
 cmp ecx,size
 jb @m1
popad
end;

 

p.s. Удобство в том, что без ключа текст не расшифруешь, а вот вот ключь можно ужа самому генерировать спец образом.

 

slesh, можеш пример использования твоево крипта показать?

 

Что ты знаешь о xor'e ?!?!?! Каким макаром ты вскроешь двойной, тройной и т.д. xor !!!!!! Не слышал про правила итерации?!?!!!!

Надо вещью сперва попользоваться, прежде чем расхваливать!