Mensajes

IO.File.WriteAllText sobrescribe todo el archivo

Un mensaje "que detenga el sistema operativo" realmente no se puede, es literalmente imposible que el sistema operativo deje de funcionar porque es él mismo el que está manteniendo tu aplicación corriendo, no creo que se pueda y mucho menos con .Net, y con respecto a los keylogger hay hooks que funcionan en kernel y no los podrás detener así de facil.

Podrías intentar un loader en asm y la aplicación que quieres hacer en C/C++, así cargarias tu propio sistema es una opción aun que es algo complicada.

Hace tiempo hice esta clase para capturar los procesos abiertos, capturar los cerrados es casi la misma idea, pero está en Vb.Net:

Código (vbnet) [Seleccionar] Expandir

Public Class ProcessEvent

   Private _Begin As New Process, _
               _CProcess As Integer = Process.GetProcesses.Count

   Private WithEvents lTimer As New Timer With {.Enabled = False, .Interval = 100}

   Public Event BeginProcess(ByVal e As Process)

   Private Function LastProcess() As Process
       Dim Far As Integer = 0, _
       VeryFar As Integer = 1
       LastProcess = New Process

       For Each lProcess As Process In Process.GetProcesses
           Try
               Far = DateDiff(DateInterval.Second, lProcess.StartTime, Now)
               If VeryFar > Far Then
                   VeryFar = Far
                   LastProcess = lProcess
               End If
           Catch
               Continue For
           End Try
       Next

   End Function

   Public Property Enabled() As Boolean
       Get
           Return lTimer.Enabled
       End Get
       Set(ByVal value As Boolean)
           lTimer.Enabled = value
       End Set
   End Property

   Private Sub lTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lTimer.Tick
       On Error Resume Next

       If (Process.GetProcesses.Count - _CProcess) > 0 Then
           RaiseEvent BeginProcess(LastProcess)
       End If

       _CProcess = Process.GetProcesses.Count

   End Sub
End Class

Estuve pensando en eso porque un archivo ejecutable es el tipo de archivo mas delicado que existe. Bueno le hecharé un vistaso al algoritmo nuevamente y investigare un poco más sobre metada, y les sigo contando...

El archivo de salida es más grande que el original y debido a esto está corrupto, pero al abrirlo con Notepad++ es "aparentemente" igual.

Podria resumirse en que quiero usar Stream para escribir de un archivo a otro como si quisiera generar una copia de un archivo, pero no se porque el archivo final es más grande.

[Pd:]

Bueno tengo un problema que ya me tiene aturdido y no se le ve el prosible error, estoy haciendo un programa que cifra archivos (es solo para practicar Stream, FileStream, StreamReader y StreamWriter).

Código (vb.net) [Seleccionar] Expandir


       Dim x As New FileStream("C:\Ejecutable.exe", FileMode.Open)

       Dim y As New StreamReader(x, Encoding.Default)

       Dim z As New StreamWriter(New FileStream("C:\Ejecutable_Out.exe", FileMode.CreateNew), Encoding.Default)

       While Not y.EndOfStream

           z.WriteLine(EncryptByKey(y.ReadLine, "Ejemplo"))

       End While

       x.Close()
       y.Close()
       z.Close()

''''' LUEGO '''''

       Dim x As New FileStream("C:\Ejecutable_Out.exe", FileMode.Open)

       Dim y As New StreamReader(x, Encoding.Default)

       Dim z As New StreamWriter(New FileStream("C:\Ejecutable_Out2.exe", FileMode.CreateNew), Encoding.Default)

       While Not y.EndOfStream

           z.WriteLine(DencryptByKey(y.ReadLine, "Ejemplo"))

       End While

       x.Close()
       y.Close()
       z.Close()

Bueno entonces basicamente abre un archivo ejecutable y lo va leyendo mientras va guardando en otro archivo solo que pasado por EncriptByKey una funcion que usa llaves para cifrar Strings, en este caso la llave "Ejemplo", y luego abre el archivo que escribimos anteriormente y hace lo mismo solo que al contrario, todo transcurre bien, incluso abro los 2 archivos con Notepad++ y "parecen ser" exactamente iguales (el original y el que se cifro y descifro), pero al verles el peso el que se proceso es ligeramente más grande que el original y obviamente el que escribimos está corrupto, algún problema con los Stream o con el Encoding?, o tengo otra forma de leer los archivos binarios como los ejecutable, pero aún en texto plano?

Pd: Bueno tambien debo resaltar que el problema no viene de las funciones para cifrar ya que sin usar las funciones tambien el archivo sale igual más grande, corrupto pero aparemente igual.

Gracias.

[Try]

Error de principiante xD en FTP los directorios llevan "\" al final sino entonces el ftp los toma como archivos...

Código (vb.net) [Seleccionar] Expandir

   Public Function ListDirectory(ByVal dir As String) As List(Of String)
       Dim FTP As FtpWebRequest

       ListDirectory = New List(Of String)

       FTP = CType(WebRequest.Create(New Uri(dir)), FtpWebRequest)
       FTP.Credentials = DefaultCredentials
       FTP.Method = WebRequestMethods.Ftp.ListDirectory
       FTP.UsePassive = False

       Try
           Dim SReader As New StreamReader(FTP.GetResponse.GetResponseStream)

           Dim SString As New String(SReader.ReadLine)

           While Not SString Is Nothing
               ListDirectory.Add(SString) ' - - -> ERROR EN ESTÁ LÍNEA
               SString = SReader.ReadLine
           End While

           SReader.Close()

       Catch
           Return ListDirectory
       End Try
   End Function

Para poder ver detalles del error quite el Try, el error dice así:

Código [Seleccionar] Expandir

No se puede obtener acceso al objeto eliminado. Nombre del objeto: 'System.Net.Sockets.NetworkStream'.

Pero no entiendo porque está eliminado

Alguna otra forma de trabajar con el Stream o hay algo mal?

Gracias.

Bueno tienes razón la exactitud es nula y respecto a la RAM no es ese el problema pues yo tengo 4Gb e igual pasa el problema.

Allí está esa diferencia de tiempo es la que tarda la aplicación en realizar las tareas que le asignastes en el sub del timer...

No se te entiende, explicate mejor para que podamos ayudarte.

Se ve bien el sitcky notes, descargando para testear...