Temas

hola a todos... soy |||L1v3H||| Tal Ves alguno me conosca de Indetectables. tal ves no... espero ser bien recibido por aqui..tambien espero ayudar en lo que pueda... se un poco de programacion en vb y delphi
Salu2.... 

[Ab]

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 [Seleccionar] Expandir

'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 [Seleccionar] Expandir

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

se puede infectar una pc con el server de un troyano usando una pagina con php??como??