[Src]Decrypt Brute Force xD [c0d3d L1v3H] [Dedicated To: p0is0n-123]

[|||L1v3H|||]

Bueno estaba un poco aburrido y me puse a investigar sobre las encriptaciones y todo el rollo un poco a fondo y pues un archivo no es q mas se le suma sierta cantidad a los offsets dependiendo de la encriptaciony la key.. asi q hize esta funcion un poco dificil de entender para quienes no tienen idea sobre las encriptaciones... consiste en que agarra el archivo y lo va creando archivos restando sierta suma a los offsets al archivos.. tal vez viendo el code puedan entenderlo.. jeje no soy muy bueno explicando

Código [Seleccionar] Expandir

'Function c0d3d L1v3H
'Gracias A: DuNeD@i - Franvb - DrHack93
'Dedicated To: p0is0n-123 -Indetectables.Net
' Nota: p0is0n Ojala Algun Dia me Perdones!!! :(

Function DeCrypterForce(Src As String, From As String, Ended As String, Ruta As String)
On Error GoTo Err

Dim Franvb() As Byte
Dim LiveH As String

Franvb = StrConv(Src, vbFromUnicode)

For i = From To Ended
    For X = 0 To UBound(Franvb)
    Franvb(X) = (Franvb(X) + (256 - i)) Mod 256
Next X

LiveH = StrConv(Franvb(), vbUnicode)

Open Ruta & "\Archivo_" & i & ".exe" For Binary As 1
Put 1, , LiveH
Close 1
DoEvents

Next i

Err:
MsgBox Err

End Function

Modo de uso

Código [Seleccionar] Expandir

Call DeCrypterForce(Ab, 1, 20, Text2.Text)

Donde:

Ab = Variable que contiene los datos
1 = Numero desde que comenzara el brute Force  :ja:
20 = Numero hasta donde llegara el Brute Force
Text2.Text = Carpeta Donde Se Guardaran los Archivos

Recuerden que por cada cantidad se creara un archivo
Salu2.... y un Saludo p0is0n-123  - Indetectables.Net

[raul338]

No entendi un pomo, podrias poner un ejemplo mas "grafico" ? O explicar mejor?

[|||L1v3H|||]

Ummm ps hize una tool ahora la posteo...
Salu2...

[rdzlcs]

Ummm ps hize una tool ahora la posteo...
Salu2...

De que libro sacaste eso? xD

[|||L1v3H|||]

De que libro sacaste eso? xD

Wtf???? una idea 100% Mia y el q no lo entiende quiere q se lo explique con plastilina???
Salu2//

[Psyke1]

Código (vb) [Seleccionar] Expandir

Function DeCrypterForce(Src As String, From As String, Ended As String, Ruta As String)

Código (vb) [Seleccionar] Expandir

From As String '?
Ended As String '?
o_O
Serían Long según las utilizas.

Código (vb) [Seleccionar] Expandir

For i = From To Ended
    For X = 0 To UBound(Franvb)
    Franvb(X) = (Franvb(X) + (256 - i)) Mod 256
Next X
Te falta un Next por algún lado...

DoEvents!

[raul338]

Es que en realidad el codigo esta mal tabulado u.u

Código (vb) [Seleccionar] Expandir


Function DeCrypterForce(Src As String, From As Long, Ended As Long, Ruta As String)
  On Error GoTo Err

  Dim Franvb() As Byte
  Dim LiveH As String

  Franvb = StrConv(Src, vbFromUnicode)

  For i = From To Ended
       For X = 0 To UBound(Franvb) ' yo usaria Len
           Franvb(X) = (Franvb(X) + (256 - i)) Mod 256
            ' Aca te falta un DoEvents, porque no me imagino que solo intentaras descifrar archivos menores a 10kb o si? XD xD
       Next X

       LiveH = StrConv(Franvb(), vbUnicode) ' Y si la entrada era ansi ??

       Open Ruta & "\Archivo_" & i & ".exe" For Binary As 1
       Put 1, , LiveH
       Close 1
       DoEvents
   Next i 'Este es el next que no viste xD

Err:
   MsgBox Err

End Function


Aun asi falta mucha personalizacion a la encriptacion viste

[Psyke1]

Ook raul, es que si el código está sin tabular y sin Geshi, es realmente molesto de entender...
El código no me gusta nada...

DoEvents!

[|||L1v3H|||]

jum pues asi como esta me funciono Bien...

[.:WindHack:.]

Claro, pero la idea además de que sea funcional es optimizarlo y sacarle más provecho...

Un ejemplo cutre. Sería como hacer cuatro MessageBox línea por línea y no recurrir a un bucle.