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
