 |
|
30.08.2008, 16:51
|
|
Новичок
Регистрация: 04.06.2008
Сообщений: 24
С нами:
9438885
Репутация:
16
|
|
Сообщение от mr.The
Как на дельфи прочитать в переменную файл в котором есть переносы строк? например картинку или exe'шник... Файл изначально неизвестного размера и формата.
http://delphibasics.ru/BlockRead.php - раскуривай 
|
|
|
01.09.2008, 01:58
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
С нами:
9619229
Репутация:
445
|
|
Народ киньте плз исходник (делфи) проги типо PassSave(аля сохранялка пассов к определенным сайтам)
спасибо!
|
|
|
|
01.09.2008, 12:54
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
С нами:
9619229
Репутация:
445
|
|
А по проще не куда?
|
|
|
|
01.09.2008, 15:13
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами:
9423746
Репутация:
2399
|
|
mr.The:
Код:
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;
и тепер например делает так:
Код:
var s:string;
begin
l2f('c:\windows\explorer.exe',s);
end;
|
|
|
|
02.09.2008, 14:11
|
|
Banned
Регистрация: 11.10.2007
Сообщений: 54
С нами:
9781091
Репутация:
84
|
|
Дело в том что ты не открываешь, а пытаешся сохранить,
или думаешь что открываешь а на самом деле есть попытка перезаписать файл.
Сообщение переводится {Имя файла} уже существует. Перезаписать.
Всё успехов тебе в этих открытиях.
Кстати да Open это открыть, Save ass - сохранить как, на это урок английского закончим.
Как вариант ты можешь открывать файл .pas блокнотом, и копировать в окно паскаля.
Но как это делать я объясню, на следующем уроке, мною и так проделана огромная умственная работа по написанию этого поста.
|
|
|
|
03.09.2008, 18:54
|
|
Участник форума
Регистрация: 30.08.2008
Сообщений: 128
С нами:
9314823
Репутация:
106
|
|
есть скомпиленный exe на Pascal, а файла-исходника *.pas нету.
как .exe вернуть в *.pas , чтобы получить исходный код??
|
|
|
|
03.09.2008, 19:58
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
С нами:
10182506
Репутация:
1393
|
|
Сообщение от UnPazz
есть скомпиленный exe на Pascal, а файла-исходника *.pas нету.
как .exe вернуть в *.pas , чтобы получить исходный код??
После компиляции, получить исходный код, невозможно! Можно лишь декомпилировать, но в итоге ты получишь асм код, причем очень мутный...
|
|
|
|
04.09.2008, 15:13
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами:
9423746
Репутация:
2399
|
|
Можно лишь декомпилировать, но в итоге ты получишь асм код, причем очень мутный...
есть прога DeDe, которая дает возможнось декомпилировать бинарки (которие били скомпилирование с помощью Delphi)
DeDe: www.xakep.ru/post/18513/default.asp
скачать DeDe3.50 www.runweloads.com/cod/gen/4551prog.html
|
|
|
|
04.09.2008, 15:21
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами:
9423746
Репутация:
2399
|
|
нужна помощь..))
что посоветуете (какой компонент, а ЛУЧШЕ самописную функцию/процедуру) для шифрования текстових строчек в проекте?
тоесть, например есть проект:
Код:
program Project1;
uses
windows;
var s:string;
begin
s:='hello world';
messagebox(0,pchar(s),pchar(s),0);
end.
нужно закодировать строчку 'hello world'..
но не нужно предлагать крипт, типа base64, xor.. ето очень легко при реверсе получить обратно.. а нужно сделать так, чтоб при риверсинге било оооочень сложно получить исходную строчку..
--------------------------
заранее извиняюсь за много орф ошибок, т.к. я не из россии..)) |
|
|
|
04.09.2008, 15:51
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
Вот когдато давно написанный мною алгоритм. Работает быстро, хорошие результаты.
И главное есть ключ, который можно уже и прятать
Код:
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;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
