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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: 1 ... 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [22] 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 ... 64
211  Programación / Programación Visual Basic / [SRC] Self CRC32 Check 0.1 (POC) en: 25 Enero 2012, 02:54 am
Antes que nada, esto es POC. Proof Of Concept
Es una mera prueba para ver si es posible. Es medio dificil de implementar en software de terceros o que no esten hechos en vb.
El codigo que lo hace funcionar es basicamente esto:
(REQUIERE UNA CLS APARTE, QUE CALCULA EL CRC32!!!)
Código
  1. Option Explicit
  2.  
  3. 'Code by Elemental Code
  4. 'Proof of concept
  5. 'SELF CRC32 CHECK
  6. 'Make sure nobody tampers with your software
  7. 'Dedicated, as always, to my Girlfriend <3
  8. 'Argentina 24/1/2012
  9.  
  10. Sub Main()
  11.    Dim bArray() As Byte 'Byte Array With the code.
  12.    Dim MySelf As String 'My exe file
  13.    Dim mymixedcode As String 'all the bin together
  14.    Dim MyCode() As String ' The splitted code
  15.    Dim lCrC32 As Long 'the CRC32
  16.    Dim clsCRC32 As New cCRC32
  17.  
  18.    'Get my own exe file in a way invisible to kaspersky (Fuck you)
  19.    MySelf = Chr$(101) & Chr$(120) & Chr$(101) & Chr$(46) & StrReverse(App.EXEName) & Chr$(92) & StrReverse(App.Path)
  20.  
  21.    'Get my Binary code
  22.    Open StrReverse(MySelf) For Binary As #1
  23.    mymixedcode = Space(LOF(1))
  24.    Get #1, , mymixedcode
  25.    Close #1
  26.  
  27.    'Split My code
  28.    MyCode() = Split(mymixedcode, "[#@$|$@#]")
  29.    '0 My file | 1 Right CRC32
  30.  
  31.    'Convert to Byte array
  32.    bArray() = StrConv(MyCode(0), vbFromUnicode)
  33.  
  34.    'Get CRC32
  35.    lCrC32 = clsCRC32.GetByteArrayCrc32(bArray)
  36.  
  37.    'Compare CRC32
  38.    If Hex(lCrC32) = MyCode(1) Then
  39.        MsgBox "Success!!" & vbCrLf & "CRC32 Match, You are using the ORIGINAL Software" & vbCrLf & "Press OK to launch the application", vbExclamation, "SELF CRC32 Checker v 0.1"
  40.        'Show your Form HERE!!
  41.    Else
  42.        MsgBox "ERROR: CRC32 MISSMATCH!!" & vbCrLf & "CRC32 Missmatch means this file was edited!!" & vbCrLf & "GET THE ORIGINAL ONE NOW!!", vbCritical, "SELF CRC32 Checker v 0.1"
  43.    End If
  44. End Sub


Para hacer funcionar esto, tendrias que abrir con algun editor tipo notepad ++ tu ejecutable final y agregarle ahi el crc32 correcto.
Para hacer esto, busca el final del archivo y agregale el SEPARADOR + el CRC32 Correcto.

Separador
Código:
[#@$|$@#]

Ejemplo
Código:
[#@$|$@#]5186AC9D

YO SE QUE ESTO ES MUUUUY RUSTICO, pero ya aclare, es una prueba de concepto y salio bien :D

Descarga Source completo + Binario de CRC32 Correcto + Binario de CRC32 INCORRECTO.

Código:
http://www.mediafire.com/?2qb7tnzkt9gu159



Intente hacer una version que tuviera una especie de stub para que sirviera para cualquier exe ya compilado pero me trabe, ya que necesitaria hacer un RUN PE del archivo original despues de verificar que el CRC32 fuera correcto y no se nada sobre la estructura PE :S
212  Programación / Programación Visual Basic / Re: Sugerencias para hacer dificil el crackeo Help en: 23 Enero 2012, 04:34 am
consegui el crc32 y agregaselo al final con un separador

despues abrite como binary, hace un split asi obtenes el crc32 y el codigo y despues le sacas el crc al codigo original. y los comparas

EDIT:
http://foro.elhacker.net/programacion_visual_basic/src_self_crc32_check_01_poc-t351610.0.html
213  Programación / Programación Visual Basic / Re: Redirección Web en: 11 Enero 2012, 20:21 pm
y que tiene de malo el archivo host de windows?  :rolleyes:
214  Programación / Programación Visual Basic / Re: Ayuda con captura de panalla en: 11 Enero 2012, 20:19 pm
busca de limpiar el portapapeles primero.
Deberia haber un comando paran eso.
215  Programación / Programación Visual Basic / Re: Poner espacio entre textbox en: 9 Enero 2012, 06:22 am
el punto y aparte es

VBCRLF

Car Return, Line Feed
216  Programación / Programación Visual Basic / Re: [RETO] + Funcion Extraer Numeros de Cadenas! en: 7 Enero 2012, 04:36 am
Rustico Fails :'(
217  Programación / Programación Visual Basic / Re: [SC] Simple Local Shell en: 6 Enero 2012, 21:36 pm
mmm pipes....

Nunca entendi que son o como funcionan  :-(
218  Seguridad Informática / Seguridad / Re: Seguridad en red con WPA // protección frente a ataque de desconexión en: 6 Enero 2012, 21:33 pm
y ocultar el ESSID?
osea el nombre de tu red?
219  Programación / Programación Visual Basic / Re: [RETO] + Funcion Extraer Numeros de Cadenas! en: 5 Enero 2012, 18:18 pm
RUSTICO MODE ON!


Código
  1. Function RUSTICOnumbers_eCode(ByRef sSTR As String) As String
  2.    Dim i As Integer
  3.    Dim x As String * 1
  4.    For i = 1 To Len(sSTR)
  5.    x = Mid(sSTR, i, 1)
  6.        Select Case x
  7.            Case 0 To 9
  8.                RUSTICOnumbers_eCode = RUSTICOnumbers_eCode & x
  9.        End Select
  10.    Next
  11. End Function
220  Programación / Programación Visual Basic / Re: Impedir eliminación de aplicación en: 2 Enero 2012, 00:09 am
para evitar que te la eliminen abrela como binary as 1
cuando la quieran borrar dira que el archivo esta en uso :D

PD: Caen con un unlocker y cagaste
Páginas: 1 ... 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [22] 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 ... 64
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines