MySpace Downloader 1.0.0

Si lo quieres, enviame un MP.

Saludos ;D

Los expertos descartan que se elimine el intercambio de archivos como consecuencia del cierre de Megaupload, pero estiman que la forma de hacerlo cambiará.

Pese al rechazo mundial y la reacción de grupos como Anonymous, la decisión del FBI estadounidense de clausurar el sitio Megaupload ha tenido un claro impacto en la distribución ilegal del contenido digital protegido por derecho de autor.

Claro, porque muchas páginas y portales que tenían alojados sus archivos (legales e ilegales) en los servidores de la empresa del denominado ‘Kim Dotcom’, quedaron simplemente sin ningún contenido que ofrecer, obligándolas a cerrar sus operaciones. Ese el caso de Megavideo, Megapix, Megalive y Megabox, entre otras.

Efecto dominó

Pero la complejidad para acceder a los archivos alojados en Megaupload (que también sub arrienda servidores, lo que complica el asunto) ha provocado además que muchas otras populares páginas para ver contenido por streamming, como Cuevana o SeriesiD, por ejemplo, tengan serias dificultades para funcionar. Muchas películas sencillamente no cargan.

Pero no sólo eso. El golpe que dio el FBI infundió temor en otros sitios similares que pese a aumentar el tráfico en sus servidores, tomaron resguardos inmediatos o incluso decidieron cerrar de manera voluntaria para no correr la misma suerte que el dueño de Megaupload, quien actualmente se encuentra preso en Nueva Zelanda.

En Fileserve la primera medida que tomaron tras conocerse el caso fue terminar con su programa de recompensas a los usuarios que más archivos compartieran. La alemana Rapidshare (con base en Suiza) tomó otro camino y decidió distanciar su imagen de la compañía propiedad de Kit Dotcom, declarando que su oferta “es diferente”.

BT Junkie, el motor de búsqueda de ficheros torrents, cerró después de siete años. “La decisión no fue fácil, pero hemos decidido cerrar voluntariamente nuestro sitio. Hemos estado luchando durante años por su derecho a comunicarse, pero es la hora de seguir adelante”, dijeron sus sueños en su popular página.

Aún cuando no puede atribuirse como causa-efecto, el fin de semana que siguió a la clausura del sitio se observó un incremento de 32% en la asistencia a los cines en Estados Unidos. Este aumento fue destacado en varios medios de ese país ya que fue inusual considerando los pocos estrenos y películas taquilleras en cartelera.

El futuro de la red

La duda que surge ahora es si la decisión del FBI de cerrar Megaupload representa un punto de inflexión en el uso de Internet para ver películas, conciertos o series de televisión sin pagar por ello.

“La única forma que tienen los gobiernos para acabar realmente con el intercambio de archivos es poner fin directamente a Internet”, dijo el abogado español y experto en temas de propiedad intelectual, Javier de la Cueva, al diario Proceso de México.

Las declaraciones del jurista se suman a otras voces que coinciden en que es muy probable que la medida del FBI no tenga incidencia en el mundo del copyright debido a que surgirán nuevos sitios similares a Megaupload.

Para Constanza Sturm, editora del blog especializado en tecnología, FayerWayer, los archivos seguirán compartiéndose en Internet. Y aunque reconoce que “es difícil saber cómo”, advierte que la forma de compartirlos “cambiará”.

Les presento mi version sencilla para usar en Delphi XE / Later

type
  TMatches = Array of Array of String;

function RegExMatchAll(Pattern, Subject: String; out Matches: TMatches): integer;
var D, sD: integer; RegEx: TRegEx; RegGroupColl: TGroupCollection; RegColl: TMatchCollection;
begin
  {
    Autor: Jhonjhon_123
    Licencia: GPL
    Versión: 1.0
    Esta función emula la función 'preg_match_all' de php
    Actualmente Matches solo es devuelto emulando el Flag 'PREG_SET_ORDER'
    Retorna -1 si se produjo un error, o un numero mayor o igual a 0 que determina el numero de coincidencias halladas
  }
  try
    RegEx := TRegEx.Create(Pattern);
    RegColl := RegEx.Matches(Subject);

    SetLength(Matches, RegColl.Count); // Numero de coincidencias [array [X]]

    for D := 0 to RegColl.Count - 1 do begin
      RegGroupColl := RegColl.Item[D].Groups;
      SetLength(Matches[D], RegGroupColl.Count); // Numero de grupos [array [D][sD]]
      for sD := 0 to RegGroupColl.Count - 1 do Matches[D][sD] := RegGroupColl.Item[sD].Value;
    end;

    Result := High(Matches) + 1;

  except Result := -1;
  end;

end;

Saludos ;D

{
     Split Function For Delphi XE / Later
     By Jhonjhon_123
}
procedure Split(s: String; Del: String; sList: TStringList);
var lLen: integer; lLen2: integer; lPos: integer; lPos2: integer; bFlag: boolean;
begin
  lLen := Length(s);
  lLen2 := Length(Del);

  lPos := 1;
  bFlag := false;
  repeat
    lPos := PosEx(Del, s, lPos);

    if (lPos = 0) then exit; // No encontramos ni uno

    if (bFlag = false) then begin // Para el primer split [LBound]
      bFlag := true;
      if (lPos > 1) then sList.Add(LeftStr(s, lPos - 1));
    end;

    lPos2 := PosEx(Del, s, lPos + lLen2 + 1);

    if (lPos2 <> 0) then begin // Para los Split del medio [(LBound + 1)..(UBound - 1)]
      sList.Add(MidStr(s, lPos + lLen2, lPos2 - lPos - lLen2));
      lPos := lPos2;
    end else begin // Para el ultimo Split [UBound]
      if (lPos + lLen2 - 1 = lLen) then exit;
      sList.Add(RightStr(s, lLen - lPos - (lLen2 - 1)));
      exit; // Ya no encontramos mas delimitadores
    end;
  until lPos >= lLen;
end;

Saludos ;D!

Bueno señores, se nos va otra gran mente, hace unos días cayó ar3sw0rmed, unos polis lo cogieron en su propia casa, ahora espera su pena, que mal realmente, espero que salga librado de todo esto.

A Continuación les dejo su propio escrito:

Saludos :c

De cierta forma siempre supe que no quedaría impune, pero siento que las ganas de ser el mejor, y de seguir aprendiendo, rompieron la barrera de la ética y la realidad, y paso lo que tenia que pasar. Este martes 31 llegaron tres chicos tocando mi puerta a eso de las 7:30 AM, preguntando en voz baja sobre mi nombre, por instinto supe que el juego había acabado, eran tres investigadores del departamento del cibercrimen. No pensé que llegaría ese momento, para mi era un juego desde el 30 hacia atrás. No sabia que pensar ni que decir, pero que mas da, ya el juego había terminado. Al menos fue gratificante conversar con los investigadores, no fue nada del otro mundo, al contrario me llamo la atención uno en particular, que es el que ha tomado mi causa, ya sabían todo acerca de mi y sobre la detención de mi ex compañero Pablo alias failroot. Yo sé que en algún momento tendré que rendir cuentas a la justicia, pero es una lastima que tuviera que pasar por un proceso legal para poner los pies en la tierra. Pero el momento llega, y fue mi turno. Después de todo este no es un país donde la piratería queda impune, “somos un país que intenta copiar todo lo que USA hace”, quien sabe cual es la razón, la S.O.P.A?, No lo sé. Lo que me ha causado mas gracia, es que aqui en mi país Chile, por lo pequeño que es en comparación a las naciones de mis compañeros, es que uno pensaría que no pasa nada, al contrario. Al entrar a la brigada del cibercrimen, me he encontrado con muchas personas que nos siguen el rastro desde bien temprano, bastantes horas al día.

Pero bueno… no creo que sea necesario que me incauten en un futuro mis otros discos duros, creo que llego el momento de madurar, y abandonar mi seudónimo “ar3sw0rmed”, para empezar a utilizar mi nombre real, en trabajos de investigaciones forenses y auditorias, que es lo que me apasiona. En estos momentos solo pienso en dejar mi blog como un recuerdo, y parte de mi esencia, de todas formas fue un buen recuerdo, tuve la oportunidad de conocer a los mejores intrusos y gente que vale demasiado, algunas que en estos momentos estan cumpliendo pena de carcel, saludos a la gente en Algeria, Turquia, Tunisian, Arabia, amigos españoles, mexicanos, colombianos y argentinos. Recuerdos memorables, gente excelente Killermind, V1per, Psycho, FailRoot, kifo, bo3la, stpid hacker, dr crz, xt3mp, per1c0, Shak, B4nz0k, Traigar, Pink Spider, Pwd-dz, x1d, g0d. disculpen si se me va alguno. los chicos del dz, comunidades, alboraaq, hxc, sec-dz Pakistan Cyber Army, V4-team. Dejare parte de mi esencia estampada en este Blog. Por ultimo, espero que no sea necesario que otros chicos con buenas capacidades pasen por el camino que en estos momentos tengo que cruzar, no soy quien para aconsejarlos, pero ojala lo tomen como leccion.

Salam!
http://www.zone-h.org/archive/notifier=ar3sw0rmed

Original: http://www.ar3sw0rmed.com.ar/2012/02/game-over.html

Bueno señores, el dia de hoy rete a ar3sw0rmed para  que rootee este lindo server ;D

Veremos si es tan capaz.

Felix Rooting Ar3s !!!

—————————————————————–

Bueno parese que el señor se metio O: ajaj, miremos una captura:

El tio sabe, eso no se niego, pero me deja un poco aburrido que no logro o no quiso entrar al login de mi web [ya tenia la cookie].

Quien gano? pues yo jajaja, dijiste total owned pero bueno dejaste inconcluso XD

Saudos ;D

Hola gente!

Pues andaba un poco aburrido ayer y me desidi a crear una shell local, con unas modificaiones podran meterla en un subproseso, una socket, o lo que se les ocurra

Les dejo el codigo y un ejemplo de uso

' ****************************************************************************************************************************** '
'
' --- Autor: Jhonjhon_123 (Jhon Jairo Pro Developer)
' --- Versión: 1.0
' --- Descripción: Shell a nivel local en windows
' --- Fallos y Mejoras: MSN; j.j.g.p@hotmail.com
' --- Licencia: GNU General Public License
'
' ****************************************************************************************************************************** '
Option Explicit

Private Declare Function PeekNamedPipe Lib "kernel32" (ByVal hNamedPipe As Long, lpBuffer As Any, ByVal nBufferSize As Long, lpBytesRead As Long, lpTotalBytesAvail As Long, lpBytesLeftThisMessage As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long

Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As Any, ByVal nSize As Long) As Long
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function DuplicateHandle Lib "kernel32" (ByVal hSourceProcessHandle As Long, ByVal hSourceHandle As Long, ByVal hTargetProcessHandle As Long, lpTargetHandle As Long, ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwOptions As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Const STARTF_USESTDHANDLES          As Long = &H100
Private Const STARTF_USESHOWWINDOW          As Long = &H1
Private Const DUPLICATE_SAME_ACCESS         As Long = &H2
Private Const NORMAL_PRIORITY_CLASS         As Long = &H20

Private Type SECURITY_ATTRIBUTES
    nLength                                As Long
    lpSecurityDescriptor                   As Long
    bInheritHandle                         As Long
End Type

Private Type STARTUPINFO
    cb                                     As Long
    lpReserved                             As String
    lpDesktop                              As String
    lpTitle                                As String
    dwX                                    As Long
    dwY                                    As Long
    dwXSize                                As Long
    dwYSize                                As Long
    dwXCountChars                          As Long
    dwYCountChars                          As Long
    dwFillAttribute                        As Long
    dwFlags                                As Long
    wShowWindow                            As Integer
    cbReserved2                            As Integer
    lpReserved2                            As Long
    hStdInput                              As Long
    hStdOutput                             As Long
    hStdError                              As Long
End Type

Private Type PROCESS_INFORMATION
    hProcess                               As Long
    hThread                                As Long
    dwProcessID                            As Long
    dwThreadId                             As Long
End Type

Dim lHInput As Long
Dim lHOutput As Long
Dim lCmdID As Long

Public Sub StopShell()

If lHInput > 0 Then Call CloseHandle(lHInput)

If lHOutput > 0 Then Call CloseHandle(lHOutput)

If lCmdID > 0 Then Call TerminateProcess(lCmdID, ByVal 0&): Call CloseHandle(lCmdID)

End Sub

Public Function GetOutTextShell(sOut As String) As Boolean
Dim bBuffer() As Byte
Dim lLen As Long
Dim bRes As Boolean
Dim lLenBuff As Long

bRes = CBool(PeekNamedPipe(lHOutput, 0&, 0&, 0&, lLen, 0&))

If Not bRes Then Exit Function

If lLen <= 0 Then Exit Function

ReDim bBuffer(lLen)

If ReadFile(lHOutput, bBuffer(0), lLen, lLenBuff, ByVal 0&) = 0 Then Exit Function

sOut = Left(StrConv(bBuffer, vbUnicode), lLenBuff)

GetOutTextShell = True

End Function

Public Sub SendToShell(sCMD As String)
Dim sBytes() As Byte
Dim BytesWritten As Long

If lHInput = 0 Then Exit Sub
sCMD = sCMD & vbNewLine
sBytes = StrConv(sCMD, vbFromUnicode)

If WriteFile(lHInput, ByVal sCMD, Len(sCMD), BytesWritten, 0&) = 0 Then
    Exit Sub
End If

End Sub

Public Function StartShell() As Boolean
On Error GoTo Error

Dim tSecurityAttributes As SECURITY_ATTRIBUTES
Dim tStartInfo          As STARTUPINFO
Dim tProcessInfo        As PROCESS_INFORMATION
Dim lCurrentID          As Long

lCurrentID = GetCurrentProcess()

With tStartInfo
    .cb = Len(tStartInfo)
    .dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
End With

With tSecurityAttributes
    .nLength = Len(tSecurityAttributes)
    .bInheritHandle = 1
End With

If CreatePipe(lHOutput, tStartInfo.hStdOutput, tSecurityAttributes, 0) = 0 Then
    GoTo Error
End If

If CreatePipe(tStartInfo.hStdInput, lHInput, tSecurityAttributes, 0) = 0 Then
    GoTo Error
End If

If DuplicateHandle(lCurrentID, tStartInfo.hStdOutput, lCurrentID, tStartInfo.hStdError, 0&, True, DUPLICATE_SAME_ACCESS) = 0 Then
    GoTo Error
End If

If CreateProcess(vbNullString, "cmd", tSecurityAttributes, tSecurityAttributes, 1, NORMAL_PRIORITY_CLASS, ByVal 0&, vbNullString, tStartInfo, tProcessInfo) = 0 Then
    GoTo Error
End If

With tProcessInfo
    Call CloseHandle(.hThread)

    lCmdID = .hProcess

    If .dwProcessID > 0 And .hProcess > 0 Then
        StartShell = True
    Else
        GoTo Error
    End If
End With

Exit Function
Error:
Call StopShell
StartShell = False

End Function

Descarga Ejemplo: http://www.multiupload.com/1NVDU8LZSP

Saludos

Valla mierda! …

Age of Empires Online es el próximo capítulo de la exitosa franquicia para PC Age of Empires. El juego incluye dos de las mayores civilizaciones de la Antigüedad, la griega y la egipcia, y ofrece más de 40 horas de juego gratuito.

¡Pero eso es solo el principio! A medida que los jugadores expandan su imperio y busquen nuevas aventuras, Age of Empires Online les ofrecerá la oportunidad de comprar nuevos paquetes de contenido superior, que incluyen desde civilizaciones totalmente nuevas hasta expansiones con nuevos modos de juego. Se trata del mayor Age of Empires hasta la fecha.

Y por si eso fuera poco, Age of Empires Online añade nuevas opciones de interacción social, personalización y funciones de rol masivo dentro de un mundo persistente en constante evolución. Juega de forma cooperativa o competitiva, fabrica y comercia objetos y sube de nivel completando misiones… ¡todo de manera gratuita! Además, Age of Empires Online sigue ofreciendo el estilo de juego de estrategia en tiempo real, en el que los jugadores podrán construir poderosos imperios, gestionar recursos, conseguir recompensas y conquistar nuevos mundos llenos de laboriosos aldeanos, guerreros épicos y edificios históricos.

En Age of Empires Online, TÚ MANDAS.
Descargar