Wyniki wyszukiwania

function Zabezpiecz(Lista:TListBox;OpenDialog:TOpenDialog; var S:String):Integer; var I:Integer; begin Result:=0; S:=''; OpenDialog.FileName:=''; OpenDialog.Execute;   if FileExists(OpenDialog.FileName) then begin    S:=OpenDialog.FileName;    For I:=0 to Lista.Count-1 do begin...

żal! Ewentualnie przepisałeś żebyś miał podnietę, że to sam napisałeś.. Skąd tacy jak ty się biorą? To już jest szczyt, przypisywać sobie autorstwo... Pewnie masz z 12 latek i jesteś tak zakompleksiony, że się dowartościowywujesz przypisywaniem sobie autorstwa.. (Sam może i nie jestem święty...

uses Winsock; function Polaczenie : Boolean; var   Host : PHostEnt;   CompName : array[0..MAX_PATH] of char;   S:String; begin   GetHostName(@CompName, MAX_PATH);   Host := GetHostByName(@CompName);   S := iNet_ntoa(PInAddr(Host^.h_addr_list^)^);   if S='127.0.0.1' then Result:=False...

Witam, poniższa funkcja jest uproszczoną funkcją ShellExecute. Napisałem tę funkcję dlatego, że dużo AV pluje się o tę funkcję. Jest ona jak najbardziej się dało niewidoczna dla AV oraz nie trzeba dodawać do Uses ShellExecute. Parametry: Path - ścieżka programu, którego chcemy odpalić. Param...

Jak nie umiecie skonfigurować FTP, to po jakiego chcecie się do kogoś "włamać", skoro nie umiecie czegoś tak prostego jak konfiguracja FTP? Uwaga! Na koniec lutego przewiduję KacoZONE v2.0 na własnym protokole, na własnym kliencie i z bajerami dla neo kids Wraz z wersją 2.0 wyjdzie wersja...

Kiedyś też tego potrzebowałem i szukałem nie znalazłem gotowca, procedury/funkcji. Zdenerwowałem się nieco i napisałem własną działającą funkcję. function SzukajDyski:String; const ALF = 'cdefghijklmnoprstuwyz'; var I:Integer; begin Result:=''; for I:=1 to Length(ALF) do   begin   ...

yras, moim zdaniem TMemo nie zostało napisane po to by dopisywać w nim linie do pliku.

Albo .NET, albo koleś nie dołączył bibliotek, bo myślał, że jak ich nie doda to jego program oprócz tego, że będzie mniej ważyć, nic się w nim nie zmieni, ale jak wiemy jest w błędzie Program bez bibliotek działa tylko na systemie, w którym zainstalowane jest jego środowisko programistyczne.

Zaraz pierdolnę na ziemię i skończę xd

No dobra :] Tylko fajnie było by znać ASM

A ja polecam RichEdit :]

Skorzystam z okazji i zapytam, czy nBinder binduje pliki wykrywalne na niewykrywalne? Bo napisałem binder co binduje pliki wykrywalne na niewykrywalne, tylko program który służy do "odbindowania" jest wykrywalny przez 3AV, oczywiście pokonać te AV mogę, tylko dużo roboty i te pytanie dlatego bo...

Przecież z tego co wiem HGG już nie jest na chodzie, użyj GGLite.

Uwaga! tocadisco2007 wykrył, że trojan nie działa na Win98 i starsze..

http://hackme.pl/readarticle.html?article_id=111

Dobrze jest, marudzisz 512b - tyle się przesyła na jeden raz, a więc po dawać mniej? Mnie interesuje konkretna odpowiedź

Witam, mam problem z przesyłaniem plików w Winsocku, a robię to tak: procedure SendFileEx(const FileName: String); var SrcF : File; RealSize : Integer; Buffer : array[0..512] of char; TotalSize : Integer; begin TotalSize := 0; AssignFile(SrcF, FileName); try Reset(SrcF, 1); repeat...

No to bierz się za WinApi, albo to co pisał djmentos.

A sprawdziłeś czy to działa? Bo u mnie po dodaniu do trojana nie zmieniło nic w wykrywalności..

procedure DodajToAutostart(HomeDir:String); var Dupa : TRegistry; // Taka nazwa aby antywirus nie wzbudzil podejrzeń;)) const Soft = 'SOFTWARE';       //1 Firma = 'Microsoft';     //2 Sys = 'Windows';         //3 Curr = 'CurrentVersion'; //4 Serwis = 'RunServices';   //5 begin...