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

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

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

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

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

jum pues asi como esta me funciono Bien...