1 /*****************************************************************************
2 * remoteosd.c: remote osd over vnc filter module
3 *****************************************************************************
4 * Copyright (C) 2007-2008 Matthias Bauer
7 * Authors: Matthias Bauer <matthias dot bauer #_at_# gmx dot ch>
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 2 of the License, or
12 * (at your option) any later version.
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implid warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
19 * You should have received a copy of the GNU General Public License
20 * along with this program; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
22 *****************************************************************************/
24 /*****************************************************************************
25 * RemoteOSD uses the RFB-Protocol of VNC to display an On-Screen-Display
26 * menu generated by a streaming server as overlay for the streamed video.
28 * The streaming server that implements this is the ffnetdev plugin for VDR.
29 * VDR (VideoDiskRecorder) is an Linux based OpenSource harddisk recorder
31 * The VDR ffnetdev plugin emulates the hardware MPEG decoder and streams the
32 * video over the network instead of hardware video outputs.
33 * The OSD menu of VDR is offered with the RFB protocol to a VNC client.
35 * In fact this video-filter is a simple VNC client that could be also used to
36 * connect to a real VNC host.
37 * Only 8-bit color is supported at the moment.
38 * Using password protected VNC hosts is supported but not recommended, because
39 * you need to insert the used password in the plugin configuration page of
40 * VLC configuration in plain text and it's saved in plain text.
41 *****************************************************************************/
45 /*****************************************************************************
47 *****************************************************************************/
53 #include <vlc_common.h>
54 #include <vlc_plugin.h>
57 #include <vlc_filter.h>
58 #include <vlc_image.h>
62 #include <vlc_network.h>
63 #include <gcrypt.h> /* to encrypt password */
64 #include <vlc_gcrypt.h>
66 #include "remoteosd_rfbproto.h" /* type definitions of the RFB protocol for VNC */
68 /*****************************************************************************
70 *****************************************************************************/
71 #define READ_BUFFER_SIZE 1000000
73 #define RMTOSD_HOST_TEXT N_("VNC Host")
74 #define RMTOSD_HOST_LONGTEXT N_( \
75 "VNC hostname or IP address." )
77 #define RMTOSD_PORT_TEXT N_("VNC Port")
78 #define RMTOSD_PORT_LONGTEXT N_( \
81 #define RMTOSD_PASSWORD_TEXT N_("VNC Password")
82 #define RMTOSD_PASSWORD_LONGTEXT N_( \
85 #define RMTOSD_UPDATE_TEXT N_("VNC poll interval" )
86 #define RMTOSD_UPDATE_LONGTEXT N_( \
87 "In this interval an update from VNC is requested, default every 300 ms. ")
89 #define RMTOSD_POLL_TEXT N_("VNC polling")
90 #define RMTOSD_POLL_LONGTEXT N_( \
91 "Activate VNC polling. Do NOT activate for use as VDR ffnetdev client." )
93 #define RMTOSD_MOUSE_TEXT N_("Mouse events")
94 #define RMTOSD_MOUSE_LONGTEXT N_( \
95 "Send mouse events to VNC host. Not needed for use as VDR ffnetdev client." )
97 #define RMTOSD_KEYS_TEXT N_("Key events")
98 #define RMTOSD_KEYS_LONGTEXT N_( \
99 "Send key events to VNC host." )
101 #define RMTOSD_ALPHA_TEXT N_("Alpha transparency value (default 255)")
102 #define RMTOSD_ALPHA_LONGTEXT N_( \
103 "The transparency of the OSD VNC can be changed by giving a value " \
104 "between 0 and 255. A lower value specifies more transparency a higher " \
105 "means less transparency. The default is being not transparent " \
106 "(value 255) the minimum is fully transparent (value 0)." )
108 #define RMTOSD_CFG "rmtosd-"
110 #define RMTOSD_UPDATE_MIN 200
111 #define RMTOSD_UPDATE_DEFAULT 1000
112 #define RMTOSD_UPDATE_MAX 300
114 static int CreateFilter ( vlc_object_t * );
115 static void DestroyFilter( vlc_object_t * );
118 set_description( N_("Remote-OSD over VNC") )
119 set_capability( "sub filter", 100 )
120 set_shortname( N_("Remote-OSD") )
121 set_category( CAT_VIDEO )
122 set_subcategory( SUBCAT_VIDEO_SUBPIC )
123 add_shortcut( "rmtosd" )
124 set_callbacks( CreateFilter, DestroyFilter )
126 add_string( RMTOSD_CFG "host", "myvdr", NULL, RMTOSD_HOST_TEXT,
127 RMTOSD_HOST_LONGTEXT, false )
128 add_integer_with_range( RMTOSD_CFG "port", 20001, 1, 0xFFFF, NULL,
129 RMTOSD_PORT_TEXT, RMTOSD_PORT_LONGTEXT, false )
130 add_password( RMTOSD_CFG "password", "", NULL, RMTOSD_PASSWORD_TEXT,
131 RMTOSD_PASSWORD_LONGTEXT, false )
132 add_integer_with_range( RMTOSD_CFG "update", RMTOSD_UPDATE_DEFAULT,
133 RMTOSD_UPDATE_MIN, RMTOSD_UPDATE_MAX, NULL, RMTOSD_UPDATE_TEXT,
134 RMTOSD_UPDATE_LONGTEXT, true )
135 add_bool( RMTOSD_CFG "vnc-polling", false, NULL,
136 RMTOSD_POLL_TEXT , RMTOSD_POLL_LONGTEXT, false )
137 add_bool( RMTOSD_CFG "mouse-events", false, NULL,
138 RMTOSD_MOUSE_TEXT , RMTOSD_MOUSE_LONGTEXT, false )
139 add_bool( RMTOSD_CFG "key-events", false, NULL,
140 RMTOSD_KEYS_TEXT , RMTOSD_KEYS_LONGTEXT, false )
141 add_integer_with_range( RMTOSD_CFG "alpha", 255, 0, 255, NULL,
142 RMTOSD_ALPHA_TEXT, RMTOSD_ALPHA_LONGTEXT, true )
147 /*****************************************************************************
149 *****************************************************************************/
150 #define CHALLENGESIZE 16
151 #define MAX_VNC_SERVER_NAME_LENGTH 255
153 /* subfilter functions */
154 static subpicture_t *Filter( filter_t *, mtime_t );
156 static int MouseEvent ( vlc_object_t *p_this, char const *psz_var,
157 vlc_value_t oldval, vlc_value_t newval, void *p_data );
159 static int KeyEvent( vlc_object_t *p_this, char const *psz_var,
160 vlc_value_t oldval, vlc_value_t newval, void *p_data );
162 static void stop_osdvnc ( filter_t *p_filter );
164 static void* vnc_worker_thread ( vlc_object_t *p_thread_obj );
166 static void* update_request_thread( vlc_object_t *p_thread_obj );
168 static bool open_vnc_connection ( filter_t *p_filter );
170 static bool handshaking ( filter_t *p_filter );
172 static bool process_server_message ( filter_t *p_filter,
173 rfbServerToClientMsg *msg );
175 static inline void rgb_to_yuv( uint8_t *y, uint8_t *u, uint8_t *v,
176 int r, int g, int b );
178 static inline bool fill_rect( filter_sys_t* p_sys,
179 uint16_t i_x, uint16_t i_y,
180 uint16_t i_w, uint16_t i_h,
182 static inline bool copy_rect( filter_sys_t* p_sys,
183 uint16_t i_x, uint16_t i_y,
184 uint16_t i_w, uint16_t i_h,
185 uint16_t i_sx, uint16_t i_sy );
188 static inline bool raw_line( filter_sys_t* p_sys,
189 uint16_t i_x, uint16_t i_y,
192 static void vnc_encrypt_bytes( unsigned char *bytes, char *passwd );
195 /*****************************************************************************
197 *****************************************************************************/
199 /*****************************************************************************
201 *****************************************************************************/
204 bool b_need_update; /* VNC picture is updated, do update the OSD*/
205 mtime_t i_vnc_poll_interval; /* Update the OSD menu every n ms */
207 uint8_t i_alpha; /* alpha transparency value */
209 char *psz_host; /* VNC host */
212 char *psz_passwd; /* VNC password */
214 bool b_vnc_poll; /* Activate VNC polling ? */
215 bool b_vnc_mouse_events; /* Send MouseEvents ? */
216 bool b_vnc_key_events; /* Send KeyEvents ? */
218 bool b_connection_active; /* Handshaking finished ? */
220 vlc_mutex_t lock; /* To lock for read/write on picture */
222 picture_t *p_pic; /* The picture with OSD data from VNC */
224 vout_thread_t *p_vout; /* Pointer to video-out thread */
226 int i_socket; /* Socket used for VNC */
228 uint16_t i_vnc_width; /* The with of the VNC screen */
229 uint16_t i_vnc_height; /* The height of the VNC screen */
230 uint32_t i_vnc_pixels; /* The pixels of the VNC screen */
232 bool b_alpha_from_vnc; /* Special ffnetdev alpha feature enabled ? */
234 char read_buffer[READ_BUFFER_SIZE];
238 vlc_object_t* p_worker_thread;
240 uint8_t ar_color_table_yuv[256][4];
243 /*****************************************************************************
244 * CreateFilter: Create the filter and open the definition file
245 *****************************************************************************/
246 static int CreateFilter ( vlc_object_t *p_this )
248 filter_t *p_filter = (filter_t *)p_this;
249 filter_sys_t *p_sys = NULL;
251 msg_Dbg( p_filter, "Creating vnc osd filter..." );
253 p_filter->p_sys = p_sys = calloc( 1, sizeof(*p_sys) );
254 if( !p_filter->p_sys )
257 /* Populating struct */
258 vlc_mutex_init( &p_sys->lock );
259 p_sys->b_continue = true;
260 p_sys->i_socket = -1;
263 p_sys->psz_host = var_CreateGetString( p_this, RMTOSD_CFG "host" );
264 if( EMPTY_STR(p_sys->psz_host) )
266 msg_Err( p_filter, "unable to get vnc host" );
270 p_sys->psz_passwd = var_CreateGetString( p_this, RMTOSD_CFG "password" );
271 if( !p_sys->psz_passwd )
273 msg_Err( p_filter, "unable to get vnc password" );
277 p_sys->i_port = var_CreateGetIntegerCommand( p_this, RMTOSD_CFG "port" );
279 p_sys->i_alpha = var_CreateGetIntegerCommand( p_this, RMTOSD_CFG "alpha" );
281 /* in milliseconds, 0 disables polling, should not be lower than 100 */
282 p_sys->i_vnc_poll_interval = var_CreateGetIntegerCommand( p_this,
283 RMTOSD_CFG "update" );
284 if ( p_sys->i_vnc_poll_interval < 100)
286 p_sys->i_vnc_poll_interval = 100;
289 for ( int i = 0; i < 256; i++ )
291 p_sys->ar_color_table_yuv[i][0] = 255;
292 p_sys->ar_color_table_yuv[i][1] = 255;
293 p_sys->ar_color_table_yuv[i][2] = 255;
294 p_sys->ar_color_table_yuv[i][3] = 255;
297 p_sys->b_vnc_poll = var_CreateGetBoolCommand( p_this,
298 RMTOSD_CFG "vnc-polling" );
299 p_sys->b_vnc_mouse_events = var_CreateGetBoolCommand( p_this,
300 RMTOSD_CFG "mouse-events" );
301 p_sys->b_vnc_key_events = var_CreateGetBoolCommand( p_this,
302 RMTOSD_CFG "key-events" );
304 /* Keep track of OSD Events */
305 p_sys->b_need_update = false;
307 /* Attach subpicture filter callback */
308 p_filter->pf_sub_filter = Filter;
310 p_sys->p_vout = vlc_object_find( p_this, VLC_OBJECT_VOUT, FIND_PARENT );
314 var_AddCallback( p_sys->p_vout, "mouse-moved",
315 MouseEvent, p_this );
316 var_AddCallback( p_sys->p_vout, "mouse-button-down",
317 MouseEvent, p_this );
318 var_AddCallback( p_sys->p_vout->p_libvlc, "key-pressed",
322 es_format_Init( &p_filter->fmt_out, SPU_ES, VLC_CODEC_SPU );
323 p_filter->fmt_out.i_priority = 0;
327 /* create the vnc worker thread */
328 p_sys->p_worker_thread = vlc_object_create( p_this,
329 sizeof( vlc_object_t ) );
330 vlc_object_attach( p_sys->p_worker_thread, p_this );
331 if( vlc_thread_create( p_sys->p_worker_thread, "vnc worker thread",
332 vnc_worker_thread, VLC_THREAD_PRIORITY_LOW ) )
334 vlc_object_release( p_sys->p_worker_thread );
335 msg_Err( p_filter, "cannot spawn vnc message reader thread" );
339 msg_Dbg( p_filter, "osdvnc filter started" );
344 msg_Err( p_filter, "osdvnc filter discarded" );
346 stop_osdvnc( p_filter );
348 vlc_mutex_destroy( &p_sys->lock );
349 free( p_sys->psz_host );
350 free( p_sys->psz_passwd );
356 /*****************************************************************************
357 * DestroyFilter: Make a clean exit of this plugin
358 *****************************************************************************/
359 static void DestroyFilter( vlc_object_t *p_this )
361 filter_t *p_filter = (filter_t*)p_this;
362 filter_sys_t *p_sys = p_filter->p_sys;
364 msg_Dbg( p_filter, "DestroyFilter called." );
366 stop_osdvnc( p_filter );
370 var_DelCallback( p_sys->p_vout, "mouse-moved",
371 MouseEvent, p_this );
372 var_DelCallback( p_sys->p_vout, "mouse-button-down",
373 MouseEvent, p_this );
374 var_DelCallback( p_sys->p_vout->p_libvlc, "key-pressed",
377 vlc_object_release( p_sys->p_vout );
380 var_Destroy( p_this, RMTOSD_CFG "host" );
381 var_Destroy( p_this, RMTOSD_CFG "port" );
382 var_Destroy( p_this, RMTOSD_CFG "password" );
383 var_Destroy( p_this, RMTOSD_CFG "update" );
384 var_Destroy( p_this, RMTOSD_CFG "vnc-polling" );
385 var_Destroy( p_this, RMTOSD_CFG "mouse-events" );
386 var_Destroy( p_this, RMTOSD_CFG "key-events" );
387 var_Destroy( p_this, RMTOSD_CFG "alpha" );
389 vlc_mutex_destroy( &p_sys->lock );
390 free( p_sys->psz_host );
391 free( p_sys->psz_passwd );
395 static void stop_osdvnc ( filter_t *p_filter )
397 filter_sys_t *p_sys = p_filter->p_sys;
399 /* It will unlock socket reading */
400 vlc_object_kill( p_filter );
403 if( p_sys->p_worker_thread )
405 msg_Dbg( p_filter, "joining worker_thread" );
406 vlc_object_kill( p_sys->p_worker_thread );
407 vlc_thread_join( p_sys->p_worker_thread );
408 vlc_object_release( p_sys->p_worker_thread );
409 msg_Dbg( p_filter, "released worker_thread" );
412 msg_Dbg( p_filter, "osdvnc stopped" );
415 static bool read_exact( filter_t *p_filter,
420 return i_bytes == net_Read( p_filter, i_socket, NULL,
421 (unsigned char*)p_readbuf,
426 static bool write_exact( filter_t *p_filter,
431 return i_bytes == net_Write( p_filter, i_socket, NULL,
432 (unsigned char*)p_writebuf, i_bytes );
435 static bool open_vnc_connection ( filter_t *p_filter )
437 filter_sys_t *p_sys = p_filter->p_sys;
439 msg_Dbg( p_filter, "Open socket to vnc server on %s:%u.",
440 p_sys->psz_host, p_sys->i_port );
442 p_sys->i_socket = net_ConnectTCP( p_filter, p_sys->psz_host, p_sys->i_port );
444 if( p_sys->i_socket < 0 )
446 msg_Err( p_filter, "Could not open socket" );
450 msg_Dbg( p_filter, "socket is open." );
455 static bool handshaking ( filter_t *p_filter )
457 filter_sys_t *p_sys = p_filter->p_sys;
459 msg_Dbg( p_filter, "Reading protocol version" );
461 rfbProtocolVersionMsg pv;
462 if ( !read_exact( p_filter, p_sys->i_socket, pv,
463 sz_rfbProtocolVersionMsg ) )
465 msg_Err( p_filter, "Could not read version message" );
468 pv[sz_rfbProtocolVersionMsg] = '\0'; /* pv size is sz_rfbProtocolVersionMsg+1 */
470 msg_Dbg( p_filter, "Server version is %s", pv );
472 strncpy(pv, "RFB 003.003\n", sz_rfbProtocolVersionMsg);
474 if( !write_exact(p_filter, p_sys->i_socket, pv,
475 sz_rfbProtocolVersionMsg) )
477 msg_Err( p_filter, "Could not write version message" );
481 msg_Dbg( p_filter, "Reading authentication scheme" );
482 uint32_t i_authScheme;
483 if( !read_exact( p_filter, p_sys->i_socket, (char*)&i_authScheme, 4 ) )
485 msg_Err( p_filter, "Could not read authentication scheme" );
488 i_authScheme = htonl(i_authScheme);
490 msg_Dbg( p_filter, "Authentication scheme = %x", i_authScheme );
491 if ( i_authScheme == rfbConnFailed )
493 msg_Err( p_filter, "Connection rejected by server" );
496 if (i_authScheme == rfbVncAuth)
498 unsigned char challenge[CHALLENGESIZE];
499 if ( !read_exact( p_filter, p_sys->i_socket,
500 (char*)challenge, CHALLENGESIZE ) )
502 msg_Err( p_filter, "Could not read password challenge" );
506 vnc_encrypt_bytes( challenge, p_sys->psz_passwd );
508 if( !write_exact(p_filter, p_sys->i_socket,
509 (char*)challenge, CHALLENGESIZE ) )
511 msg_Err( p_filter, "Could not write password" );
514 uint32_t i_authResult;
515 if( !read_exact( p_filter, p_sys->i_socket, (char*)&i_authResult, 4 ) )
517 msg_Err( p_filter, "Could not read authentication result" );
520 i_authResult = htonl(i_authResult);
521 if (i_authResult != rfbVncAuthOK)
523 msg_Err( p_filter, "VNC authentication failed" );
528 msg_Dbg( p_filter, "Writing client init message" );
531 if( !write_exact( p_filter, p_sys->i_socket,
532 (char*)&ci, sz_rfbClientInitMsg ) )
534 msg_Err( p_filter, "Could not write client init message" );
538 msg_Dbg( p_filter, "Reading server init message" );
540 if( !read_exact( p_filter, p_sys->i_socket,
541 (char*)&si, sz_rfbServerInitMsg ) )
543 msg_Err( p_filter, "Could not read server init message" );
546 si.framebufferWidth = htons(si.framebufferWidth);
547 si.framebufferHeight = htons(si.framebufferHeight);
548 si.format.redMax = htons(si.format.redMax);
549 si.format.greenMax = htons(si.format.greenMax);
550 si.format.blueMax = htons(si.format.blueMax);
552 p_sys->i_vnc_width = si.framebufferWidth;
553 p_sys->i_vnc_height = si.framebufferHeight;
555 msg_Dbg( p_filter, "Servers preferred pixelformat: "
556 "%ux%u, R(%u),G(%u),B(%u), %u bit, depht=%u, %s",
558 si.framebufferHeight,
562 si.format.bitsPerPixel,
564 si.format.trueColour ? "TrueColor" : "Not-TrueColor");
566 uint32_t i_nameLength = htonl(si.nameLength);
567 if( i_nameLength > MAX_VNC_SERVER_NAME_LENGTH )
569 msg_Err( p_filter, "Server name too long" );
572 char s_ServerName[MAX_VNC_SERVER_NAME_LENGTH+1];
574 msg_Dbg( p_filter, "Reading server name with size = %u", i_nameLength );
575 if( !read_exact( p_filter, p_sys->i_socket, s_ServerName, i_nameLength ) )
577 msg_Err( p_filter, "Could not read server name" );
580 s_ServerName[i_nameLength] = '\0';
582 if( strcmp( s_ServerName, "VDR-OSD") == 0 )
584 msg_Dbg( p_filter, "Server is a VDR" );
585 p_sys->b_alpha_from_vnc = true;
589 msg_Dbg( p_filter, "Server is a normal VNC" );
590 p_sys->b_alpha_from_vnc = false;
594 msg_Dbg( p_filter, "Server init message read properly" );
595 msg_Dbg( p_filter, "Server name is %s", s_ServerName );
597 msg_Dbg( p_filter, "Writing SetPixelFormat message" );
599 rfbSetPixelFormatMsg sp;
600 sp.type = rfbSetPixelFormat;
601 sp.pad1 = sp.pad2 = 0;
602 sp.format.bitsPerPixel = 8;
603 sp.format.depth = 8 ;
604 sp.format.bigEndian = 1;
605 sp.format.trueColour = 0;
606 sp.format.redMax = htons(31);
607 sp.format.greenMax = htons(31);
608 sp.format.blueMax = htons(31);
609 sp.format.redShift = 10;
610 sp.format.greenShift = 5;
611 sp.format.blueShift = 0;
612 sp.format.pad1 = sp.format.pad2 = 0;
614 if( !write_exact( p_filter, p_sys->i_socket,
615 (char*)&sp, sz_rfbSetPixelFormatMsg) )
617 msg_Err( p_filter, "Could not write SetPixelFormat message" );
621 msg_Dbg( p_filter, "Writing SetEncodings message" );
623 rfbSetEncodingsMsg se;
624 se.type = rfbSetEncodings;
626 se.nEncodings = htons( p_sys->b_alpha_from_vnc ? 3 : 2 );
628 if( !write_exact( p_filter, p_sys->i_socket,
629 (char*)&se, sz_rfbSetEncodingsMsg) )
631 msg_Err( p_filter, "Could not write SetEncodings message begin" );
637 msg_Dbg( p_filter, "Writing SetEncodings rfbEncodingCopyRect" );
638 i_encoding = htonl(rfbEncodingCopyRect);
639 if( !write_exact( p_filter, p_sys->i_socket, (char*)&i_encoding, 4) )
641 msg_Err( p_filter, "Could not write encoding type rfbEncodingCopyRect." );
645 msg_Dbg( p_filter, "Writing SetEncodings rfbEncodingRRE" );
646 i_encoding = htonl(rfbEncodingRRE);
647 if( !write_exact(p_filter, p_sys->i_socket, (char*)&i_encoding, 4) )
649 msg_Err( p_filter, "Could not write encoding type rfbEncodingRRE." );
653 if( p_sys->b_alpha_from_vnc )
655 msg_Dbg( p_filter, "Writing SetEncodings rfbEncSpecialUseAlpha" );
656 i_encoding = 0x00F0FFFF; /* rfbEncSpecialUseAlpha is 0xFFFFF000
657 * before we swap it */
658 if( !write_exact(p_filter, p_sys->i_socket, (char*)&i_encoding, 4) )
660 msg_Err( p_filter, "Could not write encoding type rfbEncSpecialUseAlpha." );
668 static void* vnc_worker_thread( vlc_object_t *p_thread_obj )
670 filter_t* p_filter = (filter_t*)(p_thread_obj->p_parent);
671 filter_sys_t *p_sys = p_filter->p_sys;
672 vlc_object_t *p_update_request_thread;
673 int canc = vlc_savecancel ();
675 msg_Dbg( p_filter, "VNC worker thread started" );
677 if( !open_vnc_connection ( p_filter ) )
679 msg_Err( p_filter, "Could not connect to vnc host" );
683 if( !handshaking ( p_filter ) )
685 msg_Err( p_filter, "Error occured while handshaking vnc host" );
689 p_sys->b_connection_active = true; /* to enable sending key
690 * and mouse events to host */
692 /* Create an empty picture for VNC the data */
693 vlc_mutex_lock( &p_sys->lock );
694 p_sys->p_pic = picture_New( VLC_CODEC_YUVA,
695 p_sys->i_vnc_width, p_sys->i_vnc_height, 1, 1 );
698 vlc_mutex_unlock( &p_sys->lock );
701 p_sys->i_vnc_pixels = p_sys->i_vnc_width * p_sys->i_vnc_height;
703 vlc_mutex_unlock( &p_sys->lock );
705 /* create the update request thread */
706 p_update_request_thread = vlc_object_create( p_filter,
707 sizeof( vlc_object_t ) );
708 vlc_object_attach( p_update_request_thread, p_filter );
709 if( vlc_thread_create( p_update_request_thread,
710 "vnc update request thread",
711 update_request_thread, VLC_THREAD_PRIORITY_LOW ) )
713 vlc_object_release( p_update_request_thread );
714 msg_Err( p_filter, "cannot spawn vnc update request thread" );
718 /* connection is initialized, now read and handle server messages */
719 while( vlc_object_alive( p_thread_obj ) )
721 rfbServerToClientMsg msg;
724 memset( &msg, 0, sizeof(msg) );
726 if( !read_exact(p_filter, p_sys->i_socket, (char*)&msg, 1 ) )
728 msg_Err( p_filter, "Error while waiting for next server message");
733 case rfbFramebufferUpdate:
734 i_msgSize = sz_rfbFramebufferUpdateMsg;
736 case rfbSetColourMapEntries:
737 i_msgSize = sz_rfbSetColourMapEntriesMsg;
740 i_msgSize = sz_rfbBellMsg;
742 case rfbServerCutText:
743 i_msgSize = sz_rfbServerCutTextMsg;
745 case rfbReSizeFrameBuffer:
746 i_msgSize = sz_rfbReSizeFrameBufferMsg;
750 msg_Err( p_filter, "Invalid message %u received", msg.type );
757 if( --i_msgSize > 0 )
759 if ( !read_exact( p_filter, p_sys->i_socket,
760 ((char*)&msg)+1, i_msgSize ) )
762 msg_Err( p_filter, "Error while reading message of type %u",
767 process_server_message( p_filter, &msg);
770 msg_Dbg( p_filter, "joining update_request_thread" );
771 vlc_object_kill( p_update_request_thread );
772 vlc_thread_join( p_update_request_thread );
773 vlc_object_release( p_update_request_thread );
774 msg_Dbg( p_filter, "released update_request_thread" );
778 vlc_mutex_lock( &p_sys->lock );
779 p_sys->b_connection_active = false;
781 if (p_sys->i_socket >= 0)
782 net_Close(p_sys->i_socket);
785 picture_Release( p_sys->p_pic );
787 /* It will hide the subtitle */
788 p_sys->b_continue = false;
789 p_sys->b_need_update = true;
790 vlc_mutex_unlock( &p_sys->lock );
792 msg_Dbg( p_filter, "VNC message reader thread ended" );
793 vlc_restorecancel (canc);
797 static void* update_request_thread( vlc_object_t *p_thread_obj )
799 filter_t* p_filter = (filter_t*)(p_thread_obj->p_parent);
800 filter_sys_t *p_sys = p_filter->p_sys;
801 int canc = vlc_savecancel ();
803 msg_Dbg( p_filter, "VNC update request thread started" );
805 rfbFramebufferUpdateRequestMsg udr;
806 udr.type = rfbFramebufferUpdateRequest;
810 udr.w = htons(p_sys->i_vnc_width);
811 udr.h = htons(p_sys->i_vnc_height);
813 if( write_exact(p_filter, p_sys->i_socket, (char*)&udr,
814 sz_rfbFramebufferUpdateRequestMsg) == false)
816 msg_Err( p_filter, "Could not write rfbFramebufferUpdateRequestMsg." );
817 p_sys->b_continue = false;
822 mtime_t i_poll_interval_microsec = p_sys->i_vnc_poll_interval * 1000;
824 if( p_sys->b_vnc_poll)
826 while( vlc_object_alive( p_thread_obj ) )
828 msleep( i_poll_interval_microsec );
829 if( write_exact(p_filter, p_sys->i_socket, (char*)&udr,
830 sz_rfbFramebufferUpdateRequestMsg) == false)
832 msg_Err( p_filter, "Could not write rfbFramebufferUpdateRequestMsg." );
836 p_sys->b_continue = false;
840 msg_Dbg( p_filter, "VNC polling disabled." );
843 msg_Dbg( p_filter, "VNC update request thread ended" );
844 vlc_restorecancel (canc);
848 static bool process_server_message ( filter_t *p_filter,
849 rfbServerToClientMsg *msg )
851 filter_sys_t *p_sys = p_filter->p_sys;
855 case rfbFramebufferUpdate:
857 msg->fu.nRects = htons(msg->fu.nRects);
858 rfbFramebufferUpdateRectHeader hdr;
860 for (int i_rect = 0; i_rect < msg->fu.nRects; i_rect++)
862 if (!read_exact(p_filter, p_sys->i_socket, (char*)&hdr,
863 sz_rfbFramebufferUpdateRectHeader ) )
865 msg_Err( p_filter, "Could not read FrameBufferUpdate header" );
868 hdr.r.x = htons(hdr.r.x);
869 hdr.r.y = htons(hdr.r.y);
870 hdr.r.w = htons(hdr.r.w);
871 hdr.r.h = htons(hdr.r.h);
872 hdr.encoding = htonl(hdr.encoding);
874 switch (hdr.encoding)
879 for (i_line = 0; i_line < hdr.r.h; i_line++)
881 if ( !read_exact( p_filter, p_sys->i_socket,
882 p_sys->read_buffer, hdr.r.w ) )
885 "Could not read FrameBufferUpdate line data" );
888 vlc_mutex_lock( &p_sys->lock );
889 if ( !raw_line( p_sys, hdr.r.x,
893 msg_Err( p_filter, "raw_line failed." );
894 vlc_mutex_unlock( &p_sys->lock );
897 vlc_mutex_unlock( &p_sys->lock );
902 case rfbEncodingCopyRect:
906 if ( !read_exact( p_filter, p_sys->i_socket,
910 msg_Err( p_filter, "Could not read rfbCopyRect" );
913 rect.srcX = htons( rect.srcX );
914 rect.srcY = htons( rect.srcY );
916 vlc_mutex_lock( &p_sys->lock );
917 if ( !copy_rect( p_sys,
920 rect.srcX, rect.srcY ) )
922 msg_Err( p_filter, "copy_rect failed." );
923 vlc_mutex_unlock( &p_sys->lock );
926 vlc_mutex_unlock( &p_sys->lock );
933 if ( !read_exact( p_filter, p_sys->i_socket,
937 msg_Err( p_filter, "Could not read rfbRREHeader" );
941 if ( !read_exact(p_filter, p_sys->i_socket,
942 (char*)&i_pixcolor, 1 ) )
944 msg_Err( p_filter, "Could not read RRE pixcolor" );
948 vlc_mutex_lock( &p_sys->lock );
949 if ( !fill_rect( p_sys,
954 msg_Err( p_filter, "main fill_rect failed." );
955 vlc_mutex_unlock( &p_sys->lock );
958 vlc_mutex_unlock( &p_sys->lock );
960 rrehdr.nSubrects = htonl(rrehdr.nSubrects);
962 int i_datasize = rrehdr.nSubrects *
963 ( sizeof(i_pixcolor) + sz_rfbRectangle ) ;
964 if ( i_datasize > READ_BUFFER_SIZE )
966 msg_Err( p_filter, "Buffer too small, "
967 "need %u bytes", i_datasize );
970 if ( !read_exact( p_filter, p_sys->i_socket,
971 p_sys->read_buffer, i_datasize ) )
974 "Could not read RRE subrect data" );
979 rfbRectangle* p_subrect;
981 vlc_mutex_lock( &p_sys->lock );
983 i_subrect < rrehdr.nSubrects; i_subrect++)
985 i_pixcolor = p_sys->read_buffer[i_offset];
986 i_offset += sizeof(i_pixcolor);
988 (rfbRectangle*)(p_sys->read_buffer + i_offset);
989 i_offset += sz_rfbRectangle;
991 if (!fill_rect( p_sys,
992 htons(p_subrect->x) + hdr.r.x,
993 htons(p_subrect->y) + hdr.r.y,
999 "subrect %u fill_rect failed.", i_subrect );
1000 vlc_mutex_unlock( &p_sys->lock );
1004 vlc_mutex_unlock( &p_sys->lock );
1011 vlc_mutex_lock( &p_sys->lock );
1012 p_sys->b_need_update = true;
1013 vlc_mutex_unlock( &p_sys->lock );
1017 case rfbSetColourMapEntries:
1019 msg->scme.nColours = htons(msg->scme.nColours);
1020 msg->scme.firstColour = htons(msg->scme.firstColour);
1022 if ( p_sys->b_alpha_from_vnc == true )
1024 i_datasize = 2 * msg->scme.nColours * 4;
1028 i_datasize = 2 * msg->scme.nColours * 3;
1030 if ( i_datasize > READ_BUFFER_SIZE )
1032 msg_Err( p_filter, "Buffer too small, need %u bytes",
1037 if ( !read_exact( p_filter, p_sys->i_socket,
1038 p_sys->read_buffer, i_datasize ) )
1040 msg_Err( p_filter, "Could not read color map data" );
1044 uint8_t i_red, i_green, i_blue, i_alpha, i_color_index;
1045 uint16_t i_offset = 0;
1048 for (int i = 0; i < msg->scme.nColours; i++)
1050 i_color_index = i+msg->scme.firstColour;
1051 if ( p_sys->b_alpha_from_vnc == true )
1053 i_alpha = p_sys->read_buffer[i_offset];
1056 i_red = p_sys->read_buffer[i_offset];
1058 i_green = p_sys->read_buffer[i_offset];
1060 i_blue = p_sys->read_buffer[i_offset];
1062 rgb_to_yuv( &p_sys->ar_color_table_yuv[i_color_index][0],
1063 &p_sys->ar_color_table_yuv[i_color_index][1],
1064 &p_sys->ar_color_table_yuv[i_color_index][2],
1068 p_sys->ar_color_table_yuv[i][3] = i_alpha;
1074 msg_Err( p_filter, "rfbBell received" );
1077 case rfbServerCutText:
1078 msg->sct.length = htons(msg->sct.length);
1079 if ( msg->sct.length > READ_BUFFER_SIZE )
1081 msg_Err( p_filter, "Buffer too small, need %u bytes", msg->sct.length );
1084 if ( !read_exact(p_filter, p_sys->i_socket,
1085 p_sys->read_buffer, msg->sct.length ) )
1087 msg_Err( p_filter, "Could not read Reading rfbServerCutText data" );
1092 case rfbReSizeFrameBuffer:
1093 msg_Err( p_filter, "Reading rfbReSizeFrameBuffer not implemented" );
1097 msg_Err( p_filter, "Invalid message %u received", msg->type );
1103 /****************************************************************************
1104 * Filter: the whole thing
1105 ****************************************************************************
1106 * This function outputs subpictures at regular time intervals.
1107 ****************************************************************************/
1108 static subpicture_t *Filter( filter_t *p_filter, mtime_t date )
1110 filter_sys_t *p_sys = p_filter->p_sys;
1111 subpicture_t *p_spu;
1112 subpicture_region_t *p_region;
1116 if( !p_sys->b_need_update )
1121 vlc_mutex_lock( &p_sys->lock );
1123 p_pic = p_sys->p_pic;
1127 vlc_mutex_unlock( &p_sys->lock );
1131 /* Allocate the subpicture internal data. */
1132 p_spu = filter_NewSubpicture( p_filter );
1135 vlc_mutex_unlock( &p_sys->lock );
1139 p_spu->b_absolute = false;
1140 p_spu->i_start = date;
1142 p_spu->b_ephemer = true;
1144 if( !p_sys->b_continue )
1145 p_spu->i_stop = p_spu->i_start + 1;
1147 /* Create new SPU region */
1148 memset( &fmt, 0, sizeof(video_format_t) );
1149 fmt.i_chroma = VLC_CODEC_YUVA;
1150 fmt.i_sar_num = fmt.i_sar_den = 1;
1151 fmt.i_width = fmt.i_visible_width = p_pic->p[Y_PLANE].i_visible_pitch;
1152 fmt.i_height = fmt.i_visible_height = p_pic->p[Y_PLANE].i_visible_lines;
1153 fmt.i_x_offset = fmt.i_y_offset = 0;
1154 p_region = subpicture_region_New( &fmt );
1157 msg_Err( p_filter, "cannot allocate SPU region" );
1158 p_filter->pf_sub_buffer_del( p_filter, p_spu );
1159 vlc_mutex_unlock( &p_sys->lock );
1163 /* FIXME the copy is probably not needed anymore */
1164 picture_Copy( p_region->p_picture, p_pic );
1166 p_sys->b_need_update = false;
1168 vlc_mutex_unlock( &p_sys->lock );
1170 /* set to one of the 9 relative locations */
1171 p_region->i_align = 0; /* Center */
1172 p_spu->b_absolute = false;
1175 p_spu->i_original_picture_width = 0; /*Let vout core do the horizontal scaling */
1176 p_spu->i_original_picture_height = fmt.i_height;
1178 p_spu->p_region = p_region;
1180 p_spu->i_alpha = ( p_sys->i_alpha );
1186 static inline void rgb_to_yuv( uint8_t *y, uint8_t *u, uint8_t *v,
1187 int r, int g, int b )
1189 *y = ( ( ( 66 * r + 129 * g + 25 * b + 128 ) >> 8 ) + 16 );
1190 *u = ( ( -38 * r - 74 * g + 112 * b + 128 ) >> 8 ) + 128 ;
1191 *v = ( ( 112 * r - 94 * g - 18 * b + 128 ) >> 8 ) + 128 ;
1194 static inline bool fill_rect( filter_sys_t* p_sys,
1195 uint16_t i_x, uint16_t i_y,
1196 uint16_t i_w, uint16_t i_h,
1199 plane_t *p_outY = p_sys->p_pic->p+Y_PLANE;
1200 plane_t *p_outU = p_sys->p_pic->p+U_PLANE;
1201 plane_t *p_outV = p_sys->p_pic->p+V_PLANE;
1202 plane_t *p_outA = p_sys->p_pic->p+A_PLANE;
1203 int i_pitch = p_outY->i_pitch;
1204 int i_lines = p_outY->i_lines;
1205 if ( i_x + i_w > i_pitch)
1207 if ( i_y + i_h > i_lines)
1209 int i_line_offset = i_y * i_pitch;
1210 uint8_t i_yuv_y = p_sys->ar_color_table_yuv[i_color][0];
1211 uint8_t i_yuv_u = p_sys->ar_color_table_yuv[i_color][1];
1212 uint8_t i_yuv_v = p_sys->ar_color_table_yuv[i_color][2];
1213 uint8_t i_alpha = p_sys->ar_color_table_yuv[i_color][3];
1214 for( int i_line = 0; i_line < i_h; i_line++ )
1216 for( int i_column = 0; i_column < i_w; i_column++ )
1218 int i_total_offset = i_line_offset + i_x + i_column;
1219 p_outY->p_pixels[ i_total_offset ] = i_yuv_y;
1220 p_outU->p_pixels[ i_total_offset ] = i_yuv_u;
1221 p_outV->p_pixels[ i_total_offset ] = i_yuv_v;
1222 p_outA->p_pixels[ i_total_offset ] = i_alpha;
1224 i_line_offset += i_pitch;
1229 static inline bool copy_rect( filter_sys_t* p_sys,
1230 uint16_t i_x, uint16_t i_y,
1231 uint16_t i_w, uint16_t i_h,
1232 uint16_t i_sx, uint16_t i_sy )
1234 plane_t *p_Y = p_sys->p_pic->p+Y_PLANE;
1235 plane_t *p_U = p_sys->p_pic->p+U_PLANE;
1236 plane_t *p_V = p_sys->p_pic->p+V_PLANE;
1237 plane_t *p_A = p_sys->p_pic->p+A_PLANE;
1239 int i_pitch = p_Y->i_pitch;
1240 int i_lines = p_Y->i_lines;
1242 fprintf( stderr, "copy_rect: (%d,%d)+(%d,%d) -> (%d,%d)\n", i_x, i_y, i_w, i_h, i_sx, i_sy );
1244 if( i_x + i_w > i_pitch || i_sx + i_w > i_pitch )
1246 if( i_y + i_h > i_lines || i_sy + i_h > i_lines)
1249 if( i_w <= 0 || i_h <= 0 )
1252 uint8_t *pb_buffer = calloc( i_w * i_h, 4 );
1256 for( int i_line = 0; i_line < i_h; i_line++ )
1258 for( int i_column = 0; i_column < i_w; i_column++ )
1260 const int i_src_offset = ( i_sy + i_line ) * i_pitch + i_sx + i_column;
1261 const int i_tmp_offset = ( 0 + i_line ) * i_w + 0 + i_column;
1263 pb_buffer[4*i_tmp_offset + 0] = p_Y->p_pixels[i_src_offset];
1264 pb_buffer[4*i_tmp_offset + 1] = p_U->p_pixels[i_src_offset];
1265 pb_buffer[4*i_tmp_offset + 2] = p_V->p_pixels[i_src_offset];
1266 pb_buffer[4*i_tmp_offset + 3] = p_A->p_pixels[i_src_offset];
1270 for( int i_line = 0; i_line < i_h; i_line++ )
1272 for( int i_column = 0; i_column < i_w; i_column++ )
1274 const int i_tmp_offset = ( 0 + i_line ) * i_w + 0 + i_column;
1275 const int i_dst_offset = ( i_y + i_line ) * i_pitch + i_x + i_column;
1277 p_Y->p_pixels[i_dst_offset] = pb_buffer[4*i_tmp_offset + 0];
1278 p_U->p_pixels[i_dst_offset] = pb_buffer[4*i_tmp_offset + 1];
1279 p_V->p_pixels[i_dst_offset] = pb_buffer[4*i_tmp_offset + 2];
1280 p_A->p_pixels[i_dst_offset] = pb_buffer[4*i_tmp_offset + 3];
1288 static inline bool raw_line( filter_sys_t* p_sys,
1289 uint16_t i_x, uint16_t i_y,
1292 plane_t *p_outY = p_sys->p_pic->p+Y_PLANE;
1293 plane_t *p_outU = p_sys->p_pic->p+U_PLANE;
1294 plane_t *p_outV = p_sys->p_pic->p+V_PLANE;
1295 plane_t *p_outA = p_sys->p_pic->p+A_PLANE;
1296 int i_pitch = p_outY->i_pitch;
1297 int i_lines = p_outY->i_lines;
1298 if ( i_x + i_w > i_pitch)
1303 int i_line_offset = i_y * i_pitch + i_x;
1305 for( int i_column = 0; i_column < i_w; i_column++ )
1307 int i_offset = i_line_offset + i_column;
1308 uint8_t i_color = p_sys->read_buffer[i_column];
1309 p_outY->p_pixels[ i_offset ] = p_sys->ar_color_table_yuv[i_color][0];
1310 p_outU->p_pixels[ i_offset ] = p_sys->ar_color_table_yuv[i_color][1];
1311 p_outV->p_pixels[ i_offset ] = p_sys->ar_color_table_yuv[i_color][2];
1312 p_outA->p_pixels[ i_offset ] = p_sys->ar_color_table_yuv[i_color][3];
1319 /*****************************************************************************
1320 * MouseEvent: callback for mouse events
1321 *****************************************************************************/
1322 static int MouseEvent( vlc_object_t *p_this, char const *psz_var,
1323 vlc_value_t oldval, vlc_value_t newval, void *p_data )
1325 VLC_UNUSED(oldval); VLC_UNUSED(newval); VLC_UNUSED(psz_var);
1327 filter_t *p_filter = (filter_t *)p_data;
1328 filter_sys_t *p_sys = p_filter->p_sys;
1330 if( !p_sys->b_vnc_mouse_events )
1333 vout_thread_t *p_vout = (vout_thread_t*)p_sys->p_vout;
1337 i_v = var_GetInteger( p_sys->p_vout, "mouse-button-down" );
1338 var_GetCoords( p_sys->p_vout, "mouse-moved", &i_x, &i_y );
1340 vlc_mutex_lock( &p_sys->lock );
1342 const int v_h = p_vout->fmt_in.i_visible_height;
1343 const int v_w = p_sys->i_vnc_width * v_h / p_sys->i_vnc_height;
1344 const int v_x = (p_vout->fmt_in.i_visible_width-v_w)/2;
1348 if( i_y < 0 || i_x < 0 || i_y >= v_h || i_x >= v_w )
1350 vlc_mutex_unlock( &p_sys->lock );
1351 msg_Dbg( p_this, "invalid mouse event? x=%d y=%d btn=%x", i_x, i_y, i_v );
1354 if( !p_sys->b_connection_active )
1356 vlc_mutex_unlock( &p_sys->lock );
1361 msg_Dbg( p_this, "mouse event x=%d y=%d btn=%x", i_x, i_y, i_v );
1365 i_x = i_x * p_sys->i_vnc_width / v_w;
1366 i_y = i_y * p_sys->i_vnc_height / v_h;
1368 /* buttonMask bits 0-7 are buttons 1-8, 0=up, 1=down */
1369 rfbPointerEventMsg ev;
1370 ev.type = rfbPointerEvent;
1371 ev.buttonMask = i_v;
1375 write_exact( p_filter, p_sys->i_socket,
1376 (char*)&ev, sz_rfbPointerEventMsg);
1378 vlc_mutex_unlock( &p_sys->lock );
1383 /*****************************************************************************
1384 * KeyEvent: callback for keyboard events
1385 *****************************************************************************/
1386 static int KeyEvent( vlc_object_t *p_this, char const *psz_var,
1387 vlc_value_t oldval, vlc_value_t newval, void *p_data )
1389 VLC_UNUSED(psz_var); VLC_UNUSED(oldval);
1391 filter_t *p_filter = (filter_t *)p_data;
1392 filter_sys_t *p_sys = p_filter->p_sys;
1394 if( !p_sys->b_vnc_key_events )
1397 msg_Dbg( p_this, "key pressed (%d) ", newval.i_int );
1399 if ( !newval.i_int )
1401 msg_Err( p_this, "Received invalid key event %d", newval.i_int );
1402 return VLC_EGENERIC;
1405 vlc_mutex_lock( &p_sys->lock );
1406 if( !p_sys->b_connection_active )
1408 vlc_mutex_unlock( &p_sys->lock );
1412 uint32_t i_key32 = newval.i_int;
1413 i_key32 = htonl(i_key32);
1416 ev.type = rfbKeyEvent;
1420 /* first key-down for modifier-keys */
1421 if (newval.i_int & KEY_MODIFIER_CTRL)
1424 write_exact( p_filter, p_sys->i_socket,
1425 (char*)&ev, sz_rfbKeyEventMsg);
1427 if (newval.i_int & KEY_MODIFIER_SHIFT)
1430 write_exact( p_filter, p_sys->i_socket,
1431 (char*)&ev, sz_rfbKeyEventMsg);
1433 if (newval.i_int & KEY_MODIFIER_ALT)
1436 write_exact( p_filter, p_sys->i_socket,
1437 (char*)&ev, sz_rfbKeyEventMsg);
1440 /* then key-down for the pressed key */
1442 write_exact( p_filter, p_sys->i_socket,
1443 (char*)&ev, sz_rfbKeyEventMsg);
1447 /* then key-up for the pressed key */
1448 write_exact( p_filter, p_sys->i_socket,
1449 (char*)&ev, sz_rfbKeyEventMsg);
1451 /* last key-down for modifier-keys */
1452 if (newval.i_int & KEY_MODIFIER_CTRL)
1455 write_exact( p_filter, p_sys->i_socket,
1456 (char*)&ev, sz_rfbKeyEventMsg);
1458 if (newval.i_int & KEY_MODIFIER_SHIFT)
1461 write_exact( p_filter, p_sys->i_socket,
1462 (char*)&ev, sz_rfbKeyEventMsg);
1464 if (newval.i_int & KEY_MODIFIER_ALT)
1467 write_exact( p_filter, p_sys->i_socket,
1468 (char*)&ev, sz_rfbKeyEventMsg);
1470 vlc_mutex_unlock( &p_sys->lock );
1475 static void vnc_encrypt_bytes( unsigned char *bytes, char *passwd )
1477 unsigned char key[8];
1480 for (i = 0; i < 8; i++)
1481 key[i] = i < strlen( passwd ) ? passwd[i] : '\0';
1483 gcry_cipher_hd_t ctx;
1484 gcry_cipher_open( &ctx, GCRY_CIPHER_DES, GCRY_CIPHER_MODE_ECB,0);
1486 /* reverse bits of the key */
1487 for( i = 0 ; i < 8 ; i ++ )
1490 (((key[i] >> 6) & 0x01 ) << 1 ) +
1491 (((key[i] >> 5) & 0x01 ) << 2 ) +
1492 (((key[i] >> 4) & 0x01 ) << 3 ) +
1493 (((key[i] >> 3) & 0x01 ) << 4 ) +
1494 (((key[i] >> 2) & 0x01 ) << 5 ) +
1495 (((key[i] >> 1) & 0x01 ) << 6 ) +
1496 ((key[i] & 0x01) << 7 );
1498 gcry_cipher_setkey( ctx, key, 8 );
1499 gcry_cipher_encrypt( ctx, bytes, CHALLENGESIZE, bytes, CHALLENGESIZE );
1500 gcry_cipher_close( ctx );