Wyniki wyszukiwania

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...

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...

Witam, od pewnego czasu zainteresowały mnie programy typu: UPX, no i rodzi się pytanie w jaki sposób są te programy pisane?

Witam, udostępniam wam funkcję na sprawdzenie połączenia internetowego, skuteczniejszą niż popularna funkcja: // Dlaczego nie jest zbyt dobra? Ponieważ nie zawsze // wynik funkcji jest prawdziwy function Connected: Boolean; var Flags: DWORD; begin Flags := INTERNET_CONNECTION_MODEM or...

KacoZONE v1.3 Funkcje: // Żeby nie było wątpliwości, KacoZONE został napisany w Delphi, a dokładniej w aplikacji konsolowej Wykrywalność z dnia 22.12.2007: Jak chcecie mieć go mało wykrywalnego, lepiej nie skanujcie tymi online skanerami. Co do wykrywalności mnie to jest obojętne...

Witam, mam dość uciążliwy problem z funkcją kodującą/dekodującą zakodowany plik execa: Procedura kodująca: function Koduj(NumerSzyfru:Integer;S:Char):Char; begin S:=char(Ord(S)+NumerSzyfru); Result := S; end; procedure Zakoduj(Plik,Zapisz:String); var   Src, Dst : File;   Buffer ...

Udostępniam wam funkcje do wysyłania wiadomości na GG: function Podziel(Co:String;Max:Integer=1988) : TStringList; var i:integer; S:String; begin Result := TStringList.Create; if Length(Co) <= Max then begin Result.Add(Co); Exit; end; repeat S := Co; Delete(S, Max, Length(Co))...

KacoZONE Funkcje: Instalacja: Program instaluje się do: C:Windowsgg.exe Dodaje sie do rejestru: HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun Wykrywalność: 4/32: Logi TUTAJ Zapraszam do downloadu wersji 1.1 Tutaj

Witam Dlaczego na forum nie ma tagów BBCode [size] ? Można by było np. ładniejsze nagłówki tematów tworzyć...

Witam Czy ktoś z szanownych użytkowników wie przypadkiem jak dodać nową czcionkę o rozszerzeniu: TIF ? Bo próbowałem tak: AddFontResource('typek.TIF'); SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0); // Oczywiscie plik z czcionka: typek.TIF jest w tym samym katalogu co program FAILED //...

Witam Pisze sobie backdoora którego opublikuje i mam takie komendy jak na razie: No i moim zdaniem co nieco bym wam sie przydało, tylko co ? ( Za ciekawe odpowiedzi "Pomógł ) // Edit Na liście powyżej nie ma ale jest jeszcze keylogger...

Witam ;] Udostępniam wam program "domowej roboty" pod tytułem: "Gadu-Gadu Pionowy Opis" ( Twórczym jak ... ) Waga: ~100 kb Screen: Download: Tutaj

Witam Udostępniam wam funkcję pobierającą screena za pomocą schowka, mojego autorstwa: Do uses: ClipBrd // Obsluga schowka JPEG // Obsluga formatu JPEG Funkcja: function ZapiszTenShit(Sciezka:String):Boolean; var Schowek : TClipboard; J : TJPEGIMAGE; B : TBitmap; begin ZapiszTenShit...

Witam, mam do zaoferowania Binder plików. Program binduje do rozszerzeń: Binder nosi wdzięczną nazwę: "Fucking Files Binder" ( FFB ) Screeny: #1: #2: #3: #4: Program został testowany, w razie problemów służę pomocą, choć uważam oraz mam nadzieję że tak nie będzie. Uwaga! Z...

Witam. Udostepniam wam zrodlo mojego programu, w aplikacji konsolowej. Jedyne co potrzebne to Indy 9.** {Program GGStealer via FTP by T$cr!pt3r v1.0                                  } {Program sluzy do kradziezy configow + archwium +                             } {Liste uzytkownikow od...

Witam Poniżej napisałem jak obsłużyć zdarzenia w Socketach, a mianowicie w aplikacji konsolowej. Przede wszystkim do uses ScktComp; Następnie dodajemy classe Event, jak jej sama nazwa wskazuje będzie ona odpowiedzialna za zdarzenia: type Event = class public procedure...

Witam. Poniżej napisze jak obłożyć obsługę wyjątków w GGLite w aplikacji konsolowej na przykładzie Eventu OnRecvMsg. Na początek dodajemy classe: Event oraz dopisujemy do uses GGLite Jeśli już ja mamy dodajemy do Public procedurę: procedure OnMessage(Sender: TObject; MsgBody: String...

Witam Napisalem program ktory: Po odpaleniu wysyla na Maila: Wszystkie configi, Wszystkie archiwa oraz Wszystkie listy uzytkownikow z Gadu-Gadu! Program jest prawie ze nie wykrywalny : Skanowane 26.07.07 - wykryly go 2 Av - NOD32 oraz Authentium Jest to wersja testowa, wiec prosze o...

Witam Daje wam linka do programu mojego autorstwa, nic wielkiego, Program ma za zadanie dodanie nowego uzytkownika Gadu-Gadu, wraz z configami, achwiwami oraz listami kontaktow ktore wybierzemy. Screen: #Wyglad przy otwarciu: #Gdy nacisniemy buttona "Config": #Gdy wybralismy juz Config...

Witam Jak juz zapowiadalem udostepniam wam mojego kalkulatora :peace: Jest on napisany w Delphi a dokladniej w aplikacji konsolowej, dlatego zajmuje on 9,50 KB ! :jezor: [center:215a154144]Download[/center:215a154144] if what_to_do = 'help' then begin WriteLn; WriteLn('Aby dzielic...