Foro de elhacker.net

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

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

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

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

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

From As String '?
Ended As String '?

o_O
Serían Long según las utilizas.

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

DoEvents! :P

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

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

DoEvents! :P

jum pues asi como esta me funciono Bien...

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.