Código: Seleccionar todo

(*

  Unit uEscribirKBytes
  ********************
  Autor: D@rB-15
  Fecha: 14/02/10
  Hora: 7:45 p.m.
  Sitio Web: http://indetectables.net/
  ********************
  Esta unit puede ser usada para agregar
  peso "extra" a los ejecutables o a
  cualquier tipo de archivos.

  Si va a usar esta unit en su proyecto
  por favor de créditos! :D

*)

Unit uEscribirKBytes;

Interface
  Procedure EscribirKBytes(Archivo: String; Cantidad: Integer);

Implementation

Procedure EscribirKBytes(Archivo: String; Cantidad: Integer);
  Var
    UnKByte: String;
    X, I: Integer;
    ElArchivo: Text;

Begin
  UnKByte := '          ';
  Assign(ElArchivo, Archivo);
  Append(ElArchivo);
  For I := 0 To 7 - 1 Do
    Begin
      UnKByte := UnKByte + UnKByte;
      For X := 0 To Cantidad -1 Do
        Begin
          WriteLn(ElArchivo, UnKByte);
        End;
    End;
  Close(ElArchivo);
End;

End.

Código: Seleccionar todo

'  Módulo mEscribirKBytes
'  ********************
'  Autor: D@rB-15
'  Fecha: 14/02/10
'  Hora: 7:45 p.m.
'  Sitio Web: http://indetectables.net/
'  ********************
'  Este módulo puede ser usada para agregar
'  peso "extra" a los ejecutables o a
'  cualquier tipo de archivos.
'
'  Si va a usar esta módulo en su proyecto
'  por favor de créditos! :D

Public Function EscribirKBytes(Archivo As String, Cantidad As Integer)
  Dim UnKByte As String
  Dim X, I As Integer
  Dim ElArchivo As Long

UnKByte = "          "
ElArchivo = FreeFile()
Open Archivo For Append As #ElArchivo
For I = 1 To 7
  UnKByte = UnKByte & UnKByte
Next I
For X = 1 To Cantidad
  Print #ElArchivo, UnKByte
Next X
Close #ElArchivo
End Function

Código: Seleccionar todo

{ Unit uEscribirKBytes
  ********************
  Autor: D@rB-15
  Original: http://indetectables.net/foro/viewtopic.php?f=14&t=18371
  Website: http://indetectables.net/
  ********************
  Modificada por: .:WindHack:.
  Website: http://foro.latinohack.com - http://latinohack.com }

Unit uEscribirKBytes;

Interface
  function EscribirKBytes(Archivo: String; Cantidad: Integer):Boolean;

Implementation

function EscribirKBytes(Archivo: String; Cantidad: Integer):Boolean;
  Var
    UnKByte: String;
    X, I: Integer;
    ElArchivo: Text;

Begin
  Result := False;
    try
      UnKByte := '          ';
      Assign(ElArchivo, Archivo);
      Append(ElArchivo);
        For I := 0 To 7 - 1 Do
          Begin
            UnKByte := UnKByte + UnKByte;
              For X := 0 To Cantidad -1 Do
                Begin
                  WriteLn(ElArchivo, UnKByte);
                End;
          End;
      Close(ElArchivo);
   finally
      Result := True;
    end;
End;

End.

Código: Seleccionar todo

if EscribirKBytes('C:\Mi archivo.exe',1000) = True then
  ShowMessage('Èxito.')
    else ShowMessage('Algo sucedió...');