subo nueva update que he corregido algunos bugs bastante importantes.
Saludos
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
Código: Seleccionar todo
Menú contextual sin desplegar:
~~~~~~~~~~~~~~~~~~~
- Abrir
+ Acceso directo
-----------
- Ping
- Cambiar nombre
+ Avisar cuando...
-----------
- Cerrar
- Actualizar
- Desinstalar
~~~~~~~~~~~~~~~~~~~
Y desplegado todo:
~~~~~~~~~~~~~~~~~~~
- Abrir
+ Acceso directo
- Captura de pantalla
+ Plugins
- Bromas
- Mensajes
-----------
- Apagar
- Cerrar sesión
- Reiniciar
- Suspender
- Ibernar
-----------
- Ping
- Cambiar nombre
+ Avisar cuando...
- Se detecte actividad
- Cambie de ventana
-----------
- Cerrar
- Actualizar
- Desinstalar
~~~~~~~~~~~~~~~~~~~
Se implementará primero lo más fácil, luego empezaremos con las mejoras más avanzadas, pero no seangelp4491 escribió:[...]
La versión 11 en windows 7, en un portatil cuando lo paso a inactividad o sea que cierro la tapa, luego cuando lo vuelvo a poner en marcha me sale un aviso de error en Servidor.exe que dejó de funcionar
Con las otras no he probado, pues fue ayer de casualidad que cerre el portatil un par de veces y las dos veces con el mismo error. Probaré las otras a ver si sucede lo mismo0k3n escribió:@tk68 Grandes ideas algunas las cambiaría un poco, como la captura offline por ejemplo que la pondría como plugin en vez de como funcionalidad, pero todas son muy utiles
@angelp4491 solamente te pasa con la 11? Qué configuración le pones al servidor? Keylogger activado?
Saludos!
Código: Seleccionar todo
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses NB30;
function GetMACAdress: string;
var
NCB: PNCB;
Adapter: PAdapterStatus;
URetCode: PChar;
RetCode: char;
I: integer;
Lenum: PlanaEnum;
_SystemID: string;
TMPSTR: string;
begin
Result := '';
_SystemID := '';
Getmem(NCB, SizeOf(TNCB));
Fillchar(NCB^, SizeOf(TNCB), 0);
Getmem(Lenum, SizeOf(TLanaEnum));
Fillchar(Lenum^, SizeOf(TLanaEnum), 0);
Getmem(Adapter, SizeOf(TAdapterStatus));
Fillchar(Adapter^, SizeOf(TAdapterStatus), 0);
Lenum.Length := chr(0);
NCB.ncb_command := chr(NCBENUM);
NCB.ncb_buffer := Pointer(Lenum);
NCB.ncb_length := SizeOf(Lenum);
RetCode := Netbios(NCB);
i := 0;
repeat
Fillchar(NCB^, SizeOf(TNCB), 0);
Ncb.ncb_command := chr(NCBRESET);
Ncb.ncb_lana_num := lenum.lana[I];
RetCode := Netbios(Ncb);
Fillchar(NCB^, SizeOf(TNCB), 0);
Ncb.ncb_command := chr(NCBASTAT);
Ncb.ncb_lana_num := lenum.lana[I];
// Must be 16
Ncb.ncb_callname := '* ';
Ncb.ncb_buffer := Pointer(Adapter);
Ncb.ncb_length := SizeOf(TAdapterStatus);
RetCode := Netbios(Ncb);
//---- calc _systemId from mac-address[2-5] XOR mac-address[1]...
if (RetCode = chr(0)) or (RetCode = chr(6)) then
begin
_SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' +
IntToHex(Ord(Adapter.adapter_address[5]), 2);
end;
Inc(i);
until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00');
FreeMem(NCB);
FreeMem(Adapter);
FreeMem(Lenum);
GetMacAdress := _SystemID;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := GetMACAdress;
end;
end.
Gracias0k3n escribió:@tk68 muy buenas propuestas habrá que ir desarrollándolas poco a poco. Si necesitas ayuda con la documentación avisa :p
@angelp4491 aquí te subo un par de ejemplos de plugin Bromas y Mensajes para que mas o menos te hagas una idea.
Estaría bien que a partir de ahora el que esté trabajando en la nueva update lo ponga aquí en el foro para que haya un poco mas orden :p
Ahora mismo el que este montando la nueva update (si es que hay alguien) que cambie esta linea de FormMain.pas
Buffer := trim(Athread.Connection.ReadLn(#10#15#80#66#77#1#72#87));
por esta otra:
Buffer := (Athread.Connection.ReadLn(#10#15#80#66#77#1#72#87));
Que así se pueden mandar binarios en dirección servidor-> cliente sin miedo :p
También tenemos que pensar como desarrollaremos lo de los plugins, el Plugin Bromas y el Plugin mensajes yo creo que se podrían dejar con el cliente y después para los otros se podría hacer una web en PHP tipo: coolvibes.indetectables.net para postaer plugins y de paso para ir poniendo las releases compiladas...
Saludos!
Tengo unos días muy liado con el trabajo, para cuando me despeje un poco monto otra update,0k3n escribió:[...]
Estaría bien que a partir de ahora el que esté trabajando en la nueva update lo ponga aquí en el foro para que haya un poco mas orden :p
[...]
Código: Seleccionar todo
Fecha 29/05/2011
Versión: 1 Update 12
Modificación de: Anonimo
[*] Arreglados algunos bugs
[*] Ahora se puede elegir si guardar o no los plugins a el disco duro del remoto
[*] Cambiado el aspecto de algunos menús
[+] Añadida la opción de editar valores del registro
[+] Añadida posibilidad de cortar carpetas y archivos
[+] Agregado treeview opcional al visor de archivos
[*] Ahora también se pueden copiar carpetas
[*] Mejorado el visor de thumbnails
[*] Nuevo sistema de prioridad en la cola de descargas
Volver a “Desarrollo CoolvibesRAT”