Mensajes

Se agradece fary seguro a muchos les ayudara a entender el funcionamiento y no solo a copiar y pegar.

Muy buenos los videos a muchos les han servido, lastima que ahora no se tan "facil" modear crypters desde binario las cosas no estan como hace 3 o 4 años saludos...

Te da error porque no tienes declarado las variables ganancias,M,i,N ademas al  main le falta especificar el tipo de dato de retorno ejemplo: int main(){}

por ultimo revisate este ejemplo de como usar pow :http://www.cplusplus.com/reference/cmath/pow/

Bueno un ide decente es codeblocks el cual funciona de buena manera en ubuntu

[Funcion downloadFileBuffer]

Funcion downloadFileBuffer

Hola despues de lo comentado en el foro hermano indetectables.net sobre la funcion URLOpenBlockingStream he decicido hacer mi implementacion en Delphi
bueno esta funcion lo que hace es descargar un fichero pero en vez de escribirlo en disco lo guarda en un buffer en memoria.

Bueno el uso que le demos puede ser variado ya que si queremos podemos escribir el contenido de ese buffer o ejecutarlo en memoria sin que toque disco.
el ejemplo viene con un simple ejemplo, me imagino que el va usar este ejemplo ya sabe como ejecutar un fichero en memoria o crear un nuevo fichero a travez de el
si tienen dudas sobre algo me avisan.

Código (delphi) [Seleccionar] Expandir

uses
  SysUtils,ActiveX,URLMon;

type
TBuffer=Array of Byte;

Function downloadFileBuffer(const URL:String):TBuffer;
var
stream:IStream;
sizeFile,sizeSet,bytesWritten:Int64;
buffer:TBuffer;
begin
Result:=nil;
if URLOpenBlockingStream (nil,pchar(URL),stream,0,nil)=S_OK then
begin
     stream.Seek(0,STREAM_SEEK_END,sizeFile);
     SetLength(buffer,sizeFile);
     stream.Seek(0,STREAM_SEEK_SET,sizeSet);
     stream.Read(@buffer[0],sizeFile,@bytesWritten);
     Result:=buffer;
end;
end;

var
url:String;
buffer:TBuffer;
begin
  url:='http://i67.tinypic.com/2v8lv88.png';
  buffer:=downloadFileBuffer(url);

  if buffer<>nil then
     Writeln('Tamano del fichero leido ',Length(buffer))
  else
     Writeln('Hubo un error ');

  Readln;
end.


El codigo ha sido probado en delphi 7

Saludos....

Lindo tuto fary te animo a continuarlo

saludos...

Hola posiblemente estes confundido con el termino hacking, asi que te pongo este  http://foro.elhacker.net/hacking_basico/preguntas_frecuentes_y_guia_de_hacking_30oct09-t12556.0.html sobre preguntas frecuentes relacioinadas a la seguridad informatica

Hola fary he estado mirando tu codigo, pero no se de donde te sacaste
la estructura system_process_information

segun la documentacion de microsoft es esta

Código (cpp) [Seleccionar] Expandir

typedef struct _SYSTEM_PROCESS_INFORMATION {
    ULONG NextEntryOffset;
    BYTE Reserved1[52];
    PVOID Reserved2[3];
    HANDLE UniqueProcessId;
    PVOID Reserved3;
    ULONG HandleCount;
    BYTE Reserved4[4];
    PVOID Reserved5[11];
    SIZE_T PeakPagefileUsage;
    SIZE_T PrivatePageCount;
    LARGE_INTEGER Reserved6[6];
} SYSTEM_PROCESS_INFORMATION;

pero obviamente no funciona ya que el tamano de la estructura es diferente me he dado cuenta que a fuerza se necesitan reservan 56 bytes para que la siguiente variable pueda almacenar la direccion del nombre del proceso en este caso para que funcione tengo que comentar la variable reserved2 y reasginar el tamano de reserved1 a 56
algo asi

Código (cpp) [Seleccionar] Expandir

typedef struct _SYSTEM_PROCESS_INFORMATION
{
    ULONG NextEntryOffset;
    BYTE Reserved1[56];
   // PVOID Reserved2[3];
    HANDLE UniqueProcessId;
    PVOID Reserved3;
    ULONG HandleCount;
    BYTE Reserved4[4];
    PVOID Reserved5[11];
    SIZE_T PeakPagefileUsage;
    SIZE_T PrivatePageCount;
    LARGE_INTEGER Reserved6[6];
} SYSTEM_PROCESS_INFORMATION;


Asi si funciona pero algo no cuadra ya que presiento que los valores de la estrucutra que publico microsoft  por algo son y no entiendo porque hay que estar modificandolos o no alcanzo a entenderlo del todo.

la info la he sacado de aqui : https://msdn.microsoft.com/en-gb/library/windows/desktop/ms724509.aspx

ademas cuesta trabajo leer esto

Código (cpp) [Seleccionar] Expandir

ret = __SystemProcessInformation(5, spi, 1024*1024, NULL);
no se que sicnifica ese cinco, te recomiendo que pongas el enumerado que le corresponde en este caso

Código (cpp) [Seleccionar] Expandir

typedef enum _SYSTEM_INFORMATION_CLASS
{
    SystemBasicInformation = 0,
    SystemPerformanceInformation = 2,
    SystemTimeOfDayInformation = 3,
    SystemProcessInformation = 5,
    SystemProcessorPerformanceInformation = 8,
    SystemInterruptInformation = 23,
    SystemExceptionInformation = 33,
    SystemRegistryQuotaInformation = 37,
    SystemLookasideInformation = 45
} SYSTEM_INFORMATION_CLASS;


y obivamente la llamada seria

Código (cpp) [Seleccionar] Expandir

__SystemProcessInformation(SystemProcessInformation, spi, 1024*1024, NULL);

De lujo Fary gracias por el aportaso
Saludos...

Creo que tienes un mal enfoque no necesitas asignar un valor monetario a una fecha
mira este ejemplo solo basta con hacer unas simple multiplicacion y division

Código (vbnet) [Seleccionar] Expandir


                Dim fechaini As DateTime
Dim fechafin As DateTime
Dim cobro As Integer=0

DateTime.TryParse("12:00", fechaini)
DateTime.TryParse("12:30", fechafin)

Dim dif As TimeSpan = fechafin - fechaini

If dif.Hours>=1 Then
cobro=cobro+(500*dif.Hours)

If dif.Minutes>15 Then
Dim n15min As Integer =dif.Minutes\15
cobro =cobro+n15min*150
End If

ElseIf dif.Minutes>=1 Then
cobro=500
End If


Console.WriteLine("Han transcurridos " & dif.Hours & ":" & dif.Minutes & " hrs.")
Console.WriteLine("El costo total es de "+Convert.ToString(cobro))
Console.ReadLine()


Si algo anda mal o no es lo que buscas me avisas
saludos...