Jhonjhon_123

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