![]() | ![]() |
|
![]() |
|
|
|
||||
|
well i have to admit im not a delphi programer when it comes down to delphi i have the brain of a melon but this looks mighty inpressive for a delphi rat code (downloaded and compiled with delphi 2007 lite.)
im looking forward to seeing more keep up the good work slayer |
|
||||
|
Code:
BlockList :Array[0..99] Of String;
Public
SocketList :Array[0..99] Of TSocket;
Port :Integer;
Count :Integer;
ReturnError :Integer;
Function Listen: Integer;
Function AcceptNew(SSock: TSocket): Integer;
Function GetFreeHandle(VAR Int: Integer): Integer;
Function ReCount: Integer;
Function Disconnect(dAddress, dPort: String): Boolean;
Procedure ResolveStatus(Int: Integer);
End;
var
TransferInfo: TTransferInfo;
rSocket: RemoteSock;
Password: String;
HandleList: Array[0..99] Of THandle;
TransferList: Array[0..99] Of THandle;
__________________
I look up to Krippler, Wez(Protocol), and XoreDev
|
|
||||
|
@mjrod: Sry i forgot to remove them, if you look into the whole Socket Accept Handling you should see that i dont use the Array anymore!
@others: I found several Bugs, which got fixed :P |
|
||||
|
Ok i am working on a safe threaded File Transfer since the access to the listview in the Transferview can cause problems...
With the safe-threaded Function this RAT will be pretty stable... |
|
||||
|
I changed my mind, since some guys gave me some advice to stop doing that opensource, the next releases will be just aviable as binaries...
|
![]() |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| MiniRAT 0.5c | slayer616 | RAT source | 14 | 04-01-2010 08:15 |
| MiniRAT 0.5b | LttCoder | RAT source | 40 | 25-11-2009 13:43 |
| MiniRAT 0.5b Filetransfer explaination plz? | Nuffe | Delphi help | 3 | 10-10-2007 10:51 |
| p0ke's miniRAT 0.5b help | Kill3r7 | Source Code help | 2 | 23-09-2007 12:52 |
| MiniRat / Sockets | Previous Encounter | Delphi help | 2 | 16-01-2007 13:50 |