Últimos Temas de: |||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:

'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:

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