Decrypt Brute Force xD [c0d3d L1v3H] [Dedicated To: p0is0n]
Publicado: 19 Nov 2010, 23:34
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
Modo de uso
Donde:
Ab = Variable que contiene los datos
1 = Numero desde que comenzara el brute Force
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
Código: Seleccionar todo
'Function c0d3d L1v3H
'Gracias A: DuNeD@i - Franvb - DrHack93
'Dedicated To: p0is0n-123
' 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 FunctionCódigo: Seleccionar todo
Call DeCrypter(Ab, 1, 20, Text2.Text)Ab = Variable que contiene los datos
1 = Numero desde que comenzara el brute Force
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