Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: OmarHack en 7 Julio 2013, 01:35 AM
Lo peor es que lo dije de broma pero a la web de ikillnukes le atacaron unos bots...
Ya van dos.
¿Quién será el siguiente?
program ExtractMemString;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes;
{/*******************************************\}
{ ExtractMemString @Por WARZ0N3 }
{ Explicacion: }
{ Extrae una palabra de un string defectuoso, }
{ muy util en programacion con Sockets. }
{ Pascal+ASM ejecuta el codigo mas optimo y }
{ mucho mas rapido... }
{/*******************************************\}
{ Uso: }
{ __ExtractMemString( }
{ 'Desde_char_a_remover', variable_defectuosa,}
{ 'Hasta_char_a_remover', Lista_strings); }
{\*******************************************/}
{ Ejemplo: }
{ __ExtractMemString('!', '&%!PALABRA-$@', '-', TStringList);}
{ devuelve: PALABRA }
{/*******************************************\}
function __ExtractMemString(from_s:Char; Param:pChar; to_s:Char; TsStrMem:TStringList):pChar;
var
tos, fms:integer;
lnStr:integer;
StrMem:pchar;
CpyStrMem:pchar;
allocStrMem:pchar;
lenStr:integer;
Delim:integer;
sPos:integer;
begin
StrNew(@StrMem);
StrMem:=Param; { palabra defectuosa }
lenStr:=StrLen(pChar(StrMem));
Delim:= LastDelimiter(from_s, StrMem); { desde }
sPos:=Pos(to_s, StrMem); { hasta }
asm
@@startup:
XOR EAX, EAX
MOV EAX, sPos
PUSH EAX
POP tos
DEC tos
CMP EAX, 00000000h
JZ @plSum
JMP @pSum
@plSum: ADD tos, EAX
@pSum:
XOR EBX, EBX
MOV EBX, lenStr
MOV lnStr, EBX
XOR ECX, ECX
MOV ECX, delim
MOV fms, ECX
SUB tos, ECX
end;
allocStrMem:=StrAlloc(lnStr);
StrLCopy(allocStrMem, fms+StrMem, tos); //-$00000003
TsStrMem.Add(allocStrMem);
StrDispose(allocStrMem);
end;
var TsStrMem:TStringList;
begin
TsStrMem:= TStringList.Create;
{*** Llamada a la funcion ***}
__ExtractMemString('!', '**-!PALABRA?**', '?', TsStrMem); { devuelve PALABRA }
WriteLn(TsStrMem[0]);
TsStrMem.Free;
sleep(3500);
end.
{$Optimization On}
{/*************************************\}
{ ExtractString Function @por WarZ0n3 }
{\*************************************/}
{ Explicación: }
{ Esta funcion es utilizada para extraer}
{ un string de una cadena determinada. }
{ Funcion muy util para rutinas de }
{ programación en sockets... }
{\*************************************/}
{ Mode de uso: }
{ Los parametros son los siguientes: }
{ __ExtractString( }
{ ListaDeStrings, Char(desde), }
{ string(Palabra), Char(hasta) }
{ ); }
{/*************************************\}
{ Ejemplo: }
{ __ExtractString(lStr, '&', '@%&Hola Mundo|#$', '|'); }
{ Devuelve: Hola Mundo }
{\*************************************/}
function __ExtractString(lStr:TStringList; from_s:Char; ExtractStr:string; to_s:Char): string;
var
reverse : integer;
PosStr : integer;
CpyStr : string;
StrRip : string;
sNull : string;
begin
reverse:= LastDelimiter(to_s, pChar(ExtractStr));
SetLength(ExtractStr, reverse);
PosStr:= Pos(from_s, pChar(ExtractStr));
CpyStr:= Copy(pChar(ExtractStr), PosStr+$1, reverse);
StrRip:= StringReplace(CpyStr, to_s, sNull, [rfReplaceAll, rfIgnoreCase]);
lStr.Add(StrRip);
end;
{ ***Ejemplo de uso en un Button1 del Form*** }
procedure TForm1.Button1Click(Sender: TObject);
var
lStr:TSTRINGLIST;
begin
lStr:= TstringList.Create;
{ Llamada de la función }
__ExtractString(lStr, '&', '@%&HOLA_MUNDO|#$', '|'); { Ejemplo de uso }
ShowMessage(lStr.GetText);
end;
end.
uses
SysUtils,
WinInet,
Windows,
IdHash,
IdHashMessageDigest;
{/*************************************\}
{ R-WEB @por WarZ0n3 }
{\*************************************/}
{ Explicación: }
{ Este robot . Aumenta los views de tu }
{ pagina web, facebook,Youtube,etc... }
{ (Para aumentar las visitas mas }
{ rapidamente. En sitios como youtube }
{ es necesario usar un proxy.) }
{\*************************************/}
{ Modo de uso: }
{ los parametros son los siguentes. }
{ -h <sitio> -t <Intervalo en segundos> }
{/*************************************\}
{ Ejemplo: }
{ -h www.youtube.com/mivideo -t 2 }
{/*************************************\}
function __rINET(URL:string; secs:string): boolean;
const
rnd: array[0..5] of Char=('A','B','C','D','E','F');
var
hINET : HINTERNET;
hURL : HINTERNET;
Buff : Array[1..1024] of byte;
BuffLen : DWORD;
tHash : string;
i : integer;
md5 : TIdHashMessageDigest5;
hash : T4x4LongWordRecord;
begin
ZeroMemory(@Buff, SizeOf(Buff));
md5:= TIdHashMessageDigest5.Create;
Result:=TRUE;
tHash:='';
for i:= 0 to length(rnd)-1 do begin
Randomize;
tHash:= tHash+Chr(Random(ord(rnd[i])+1));
end;
hINET:= InternetOpen(pChar(md5.AsHex(md5.HashValue(tHash))),
INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
hURL:= InternetOpenUrl(hINET, pChar(URL), nil, INTERNET_FLAG_NO_COOKIES,
INTERNET_FLAG_RELOAD,INTERNET_SERVICE_HTTP);
sleep(StrToInt(secs)*1000);
internetCloseHandle(hINET);
internetCloseHandle(hURL);
md5.Free;
end;
function StartsWithCmd(sParam:string):boolean;
var
i : integer;
delim :string;
begin
Result:=FALSE;
delim:='-';
for i:=1 to ParamCount do
begin
sParam:= ParamStr(i);
if (delim=sParam[i]) then
begin
Result:=TRUE;
end;
end;
end;
var
rURL : string;
cont : Integer;
begin
cont:=0;
if StartsWithCmd('-h') then
begin
if ParamStr(3)='-t' then
begin
While TRUE do begin
if __rINET( 'http://'+ParamStr(2), ParamStr(4) ) then
begin
INC(cont); rURL:= ParamStr(2);
WriteLn('[Servidor visitado]: ', rURL + #13#10+'[Numero de veces]: ', cont);
end
else begin
WriteLn('Se ha producido un error en la conexion..');
end;
end;
end;
end;
end.