elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
61  Programación / Ingeniería Inversa / Re: [Keygenme] Scarlett Swordfish - Softdat CLS en: 16 Enero 2019, 16:27 pm
MCKSys Argentina lo hizo Checkmate en su primer post

Máximo ahora es reproducir su código en otros lenguajes

algo como Linux.....

Código
  1. #!/bin/bash
  2.  
  3. alfa1=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
  4. alfa2=AHyukjsdfkjsdfnPQU5xWERY67345aq9nFyR
  5. alfa3=o3zYzaI1982Tv2FasgjkkjhkjlJt5Dpe32Ax
  6.  
  7. username=`echo "${1}" | tr '[a-z]' '[A-Z]'`
  8. ini=0
  9. size=${#1}
  10.  
  11.           serial="${username:$ini:1}"
  12.           serial=`echo "${serial}" | tr '[0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ]' '[AHyukjsdfkjsdfnPQU5xWERY67345aq9nFyR]'`
  13.           let ini=$ini+1
  14.           serial="${username:$ini:1}"
  15.           serial=`echo "${serial}" | tr '[0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ]' '[o3zYzaI1982Tv2FasgjkkjhkjlJt5Dpe32Ax]'`


Pero creo que ha terminado el desafío
Felicitaciones

Saludos
62  Programación / Ingeniería Inversa / Re: [Keygenme] Scarlett Swordfish - Softdat CLS en: 16 Enero 2019, 02:07 am
¡Hola Sr. MCKSys Argentina.

Lo que define el final del lazo  while vuelta >= 0: ?
No estoy entendiendo


Saludos

63  Programación / Ingeniería Inversa / Re: [Keygenme] Scarlett Swordfish - Softdat CLS en: 15 Enero 2019, 21:00 pm
Geovane = snj92YF-1211005067 = Good Boy :)

Saludos
64  Programación / Ingeniería Inversa / Re: Multiplicar llaves usb por cable o programa. en: 15 Enero 2019, 19:28 pm
¡Hola

¿Qué modelo de clave?
Windows?
32 o 64?


Saludos
65  Programación / Ingeniería Inversa / Re: Algún experto con IDA en: 15 Enero 2019, 19:24 pm
Te recomiendo debuggear con x64dbg


Ola, también te recomiendo p52sarup .

tengo una amplia experiencia con IDA en binarios .ELF (Linux), sin embargo, x64dbg es mi elección cuando se trata de binarios PE.

saludos
66  Foros Generales / Noticias / Re: ¿Podría WhatsApp estar exponiendo tus mensajes? en: 15 Enero 2019, 05:09 am
   ¿Podría WhatsApp estar exponiendo tus mensajes?

        Sí, este es el propósito principal de las redes sociales, poseer y vender información.


La información es poder
El poder es dinero

Saludos y cuidado con las redes  :o
67  Foros Generales / Foro Libre / Re: ¿Remedio gatuno? en: 14 Enero 2019, 23:01 pm
¡Hola

Solución muy simple

Puesto que su gato también quiere programar, basta con dar una computadora a él.
Usted sólo tiene que poner una mesa, un poco lejos, a causa del cigarrillo.


Saludos
68  Programación / Ingeniería Inversa / Re: KeyGenME fary - v1.0 en: 14 Enero 2019, 22:21 pm
Hello friends

Hasta ahora tenemos un keygen que busca el primer serial válido.
Tenemos uno que busca mediante fuerza bruta


¿Dónde está lo que busca la contraseña correcta?

Recuerda a los amigos (ver los bits !!!)


Tengo la solución, voy a publicar si nadie encuentra.

Saludos.

69  Programación / Ingeniería Inversa / Re: Eliminar datos permanentes de disco. (Conceptos básicos) en: 13 Enero 2019, 22:03 pm
Un adversario con los conocimientos y el equipamiento necesario podría llegar a reconstruir parte de la información gracias a técnicas que permiten distinguir entre si el dato era un 0 o un 1 convertido a 0"

Muchas gracias
No lo sabía, esta información es muy importante.


Saludos
70  Programación / Ingeniería Inversa / Re: KeyGenME fary - v1.0 en: 13 Enero 2019, 19:13 pm
Gracias karmany por compartir, realmente tiempo es un problema, cuando el desafío exige mucho tiempo de nosotros

Aquí esta Keygen
Parece que "reinventó la rueda", con las funciones ....

El propósito y analizar lo más profundo posible en la lógica
Pero tiene como mejorar mucho el código.
Agradecimientos especiales a todos los que participaron en este desafío.
Aprendí mucho, con todos.

¿Quién puede mejorar el código, favor dice

Código
  1. function HexToBin(Hex: String): String;
  2. var
  3.   Bin: String;
  4.   k: Byte;
  5. Begin
  6.   Bin:='';
  7.   For k:=1 to Length(Hex) do
  8.      if      Hex[k]='0' then Bin:=Bin+'0000'
  9.      else if Hex[k]='1' then Bin:=Bin+'0001'
  10.      else if Hex[k]='2' then Bin:=Bin+'0010'
  11.      else if Hex[k]='3' then Bin:=Bin+'0011'
  12.      else if Hex[k]='4' then Bin:=Bin+'0100'
  13.      else if Hex[k]='5' then Bin:=Bin+'0101'
  14.      else if Hex[k]='6' then Bin:=Bin+'0110'
  15.      else if Hex[k]='7' then Bin:=Bin+'0111'
  16.      else if Hex[k]='8' then Bin:=Bin+'1000'
  17.      else if Hex[k]='9' then Bin:=Bin+'1001'
  18.      else if Hex[k]='A' then Bin:=Bin+'1010'
  19.      else if Hex[k]='B' then Bin:=Bin+'1011'
  20.      else if Hex[k]='C' then Bin:=Bin+'1100'
  21.      else if Hex[k]='D' then Bin:=Bin+'1101'
  22.      else if Hex[k]='E' then Bin:=Bin+'1110'
  23.      else if Hex[k]='F' then Bin:=Bin+'1111';
  24.   HexToBin:=Bin;
  25. End;
  26.  
  27. function BinToHex(Bin: String): String;
  28.  
  29. var
  30.   k: Byte;
  31.   s: String;
  32.   Hex: String;
  33. Begin
  34.   Hex:='';
  35.   While Length(Bin) mod 4<>0 do Bin:='0'+Bin;
  36.   For k:=0 to Length(Bin) div 4 -1 do
  37.   Begin
  38.      s:=Copy(Bin,k*4+1,4);
  39.      if      s='0000' then s:='0'
  40.      else if s='0001' then s:='1'
  41.      else if s='0010' then s:='2'
  42.      else if s='0011' then s:='3'
  43.      else if s='0100' then s:='4'
  44.      else if s='0101' then s:='5'
  45.      else if s='0110' then s:='6'
  46.      else if s='0111' then s:='7'
  47.      else if s='1000' then s:='8'
  48.      else if s='1001' then s:='9'
  49.      else if s='1010' then s:='A'
  50.      else if s='1011' then s:='B'
  51.      else if s='1100' then s:='C'
  52.      else if s='1101' then s:='D'
  53.      else if s='1110' then s:='E'
  54.      else if s='1111' then s:='F';
  55.      Hex:=Hex+s;
  56.   End;
  57.   BinToHex:=Hex;
  58. End;
  59.  
  60. function StrToHex(Str: String): Integer;
  61. var
  62.   Hex:Integer;
  63. Begin
  64.  
  65.   if (str.Length=7) Then
  66.   Begin
  67.        str:='0' + str;
  68.   end;
  69.  
  70.   if (str.Length=6) Then
  71.   Begin
  72.        str:='00' + str;
  73.   end;
  74.  
  75.   Hex:=       (strToInt(copy(Str,1,1))*128);
  76.   Hex:= Hex + (strToInt(copy(Str,2,1))*64);
  77.   Hex:= Hex + (strToInt(copy(Str,3,1))*32);
  78.   Hex:= Hex + (strToInt(copy(Str,4,1))*16);
  79.   Hex:= Hex + (strToInt(copy(Str,5,1))*8);
  80.   Hex:= Hex + (strToInt(copy(Str,6,1))*4);
  81.   Hex:= Hex + (strToInt(copy(Str,7,1))*2);
  82.   Hex:= Hex + (strToInt(copy(Str,8,1))*1);
  83.   StrToHex:=Hex;
  84. end;
  85.  
  86. function shLeft(Str:String;N:integer): String;
  87. var
  88.   s:String;
  89. Begin
  90.         s:=copy(Str,N+1,32-N)+copy(Str,1,N);
  91.         shLeft:=s;
  92.   end;
  93.  
  94. procedure TForm1.Button1Click(Sender: TObject);
  95.      var
  96.         A,B:String;
  97.         C:Integer;
  98. Label
  99. rotacionar,ciclo;
  100.                      //F6C53333    Caractere >=32 <=126  $20 $7E
  101. begin
  102.      A:= 'F6C53333';
  103.      B:= HexToBin(A);
  104.  
  105.      ciclo:
  106.      // 8 bits
  107.      C:= strToHex(copy(B,25,8));
  108.      IF (C>31) and (C<127) Then
  109.      Begin
  110.        Edit1.text:= (intTohex(C,2)) + Edit1.text ;
  111.        B:= (Copy(B,1,24)) + '00000000';
  112.        GOTO rotacionar;
  113.      end;  // fin 8 bits
  114.  
  115.  
  116.      //7 bits
  117.      C:= strToHex(copy(B,26,7));
  118.      IF (C>31) and (C<127) Then
  119.      Begin
  120.        Edit1.text:= (intTohex(C,2)) + Edit1.text;
  121.        B:= (Copy(B,1,25)) + '0000000';
  122.        GOTO rotacionar;
  123.      end;   //fin 7 bits
  124.  
  125.  
  126.      //6 bits  (Con 6 bits positivos no passa valor $7E  No precisa testar con 5)
  127.      C:= strToHex(copy(B,27,6));
  128.      IF (C>31) and (C<127) Then
  129.      Begin
  130.        Edit1.text:=  (intTohex(C,2)) + Edit1.text;
  131.        B:= (Copy(B,1,26)) + '000000';
  132.        GOTO rotacionar;
  133.      end;    //fin 6 bits
  134.  
  135.  
  136.      rotacionar:
  137.      IF ((Copy(B,1,32)) <> '00000000000000000000000000000000') Then
  138.      begin
  139.        B:=shLeft(B,13);
  140.        goto ciclo;
  141.       //Showmessage(B);
  142.      end;
  143. end;                        

Esto se basa en la lógica que ya he posteado

F6C53333      11110110110001010011001100110011
                                                                          110011 33---3
                      11110110110001010011001100000000
                      10100110011000000001111011011000 58---X
                                                                
                      10100110011000000001111010000000
                      00000011110100000001010011001100 4C---L
                                                                  
                      00000011110100000001010010000000
                      00000010100100000000000001111010 7A---z
                                                      
                      00000010100100000000000000000000
                                                            0000001010010 52---R  

RzLX3


En texto, función, después al final .......

Código
  1. Function HexToStr(s: String): String;
  2. Var i: Integer;
  3. Begin
  4.  Result:=''; i:=1;
  5.  While i<Length(s) Do Begin
  6.    Result:=Result+Chr(StrToIntDef('$'+Copy(s,i,2),0));
  7.    Inc(i,2);
  8.  End;
  9. End;

Código
  1. Showmessage(hexTostr(Edit1.text));

Fary ¡Muy bueno su codigo, excelente desafío !!!!!

Actualización 1

Usted puede intentar con otro valor.
Pero el valor necesita estar correctamente construido, mediante función inversa!


Para evitar este error, antes rotacionar:
¿Por qué con 6 bits no encontró valor válido !!!!



Código
  1.     Showmessage('¡Hummmm, valor incorrecto !!!!!');
  2.     rotacionar:
  3.      IF ((Copy(B,1,32)) <> '00000000000000000000000000000000') Then
  4.      begin
  5.        B:=shLeft(B,13);
  6.        goto ciclo;
  7.       //Showmessage(B);
  8.      end;



Gracias, Saludos
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines