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
'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
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
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...
Cita de: |||L1v3H||| en 16 Diciembre 2010, 23:02 PM
Ummm ps hize una tool ahora la posteo... :P :P
Salu2...
De que libro sacaste eso? xD
Cita de: CL1O en 17 Diciembre 2010, 00:13 AM
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.