DO genKey()

FUNCTION genKey()
	IF !DIRECTORY('\ghost_key')
		MKDIR \ghost_key
	ENDIF
	
	** COMISARIATO FAMLIAR  181.113.26.182
	TEXT TO sKey NOSHOW textmerge
{"id":"5","nombre":"COMISARIATO FAMILIAR","ruc":"2290326047001","tovacompu":"0","valor":"6000","pagado":"6000","web":"http://www.comisariatofamiliar.com","contacto":"","correocontacto":"facturacion@grubaluzon.com","telefonos":"062882213","fe_activa":"1","bdd_name":"","tipoemision":"2","emision":"2015-01-05","vigencia":"2020-12-31","pedidos":"0","ventas":"0","compras":"1","evale":"1","ereceiv":"1","email":"1","correo":"facturacion@grubaluzon.com","etiq_correo":"GRUBALUZON - Facturacion Electronica","lghost_fe_fv":"1","lghost_fe_nc":"1","lghost_fe_nd":"0","lghost_fe_gr":"0","lghost_fe_cr":"1","frm01":"frm01","frm04":"frm04","frm05":"frm05","frm06":"frm06","frm07":"frm07","frm_cxc":"","frm_vale":"","frm_valei":"","ciudad":"","lweb":"0","ljson":"0","lfamilia":"0","lcambiar_porc_iva":"1","rep_legal":"","host":"181.113.26.182","hostjson":"181.113.26.182","ftphost":"ftp.tecsicom.net","ftpuser":"data@tecsicom.net","ftppswd":"tecsicom2012","version":"3","emaile":"comis_familiar@tecsicom.net","final":"1"}
	ENDTEXT
	
*	STRTOFILE(oApp.encripta(sKey),'\ghost_key\ghost_key_2290326047001')
	
	** COMISARIATO OK
	
	TEXT TO sKey NOSHOW textmerge
{"id":"64","nombre":"PLASTI-FE","ruc":"1711828812001","tovacompu":"0","valor":"800","pagado":"0","web":"","contacto":"","correocontacto":"distribucionesplasti-fe@hotmail.com       ","telefonos":"022370653","fe_activa":"1","bdd_name":null,"tipoemision":"2","emision":"2015-11-02","vigencia":"2016-12-01","pedidos":"0","ventas":"0","compras":"0","evale":"0","ereceiv":"0","email":"1","correo":"distribucionesplasti-fe@hotmail.com       ","etiq_correo":"PLASTIFE - Facturacion Electronica","lghost_fe_fv":"1","lghost_fe_nc":"1","lghost_fe_nd":"1","lghost_fe_gr":"1","lghost_fe_cr":"1","frm01":"frm01uc","frm04":"frm04","frm05":"frm05","frm06":"frm06","frm07":"frm07","frm_cxc":"","frm_vale":"","frm_valei":"","ciudad":"SANTO DOMINGO","lweb":"0","ljson":"1","lfamilia":"0","lcambiar_porc_iva":"1","rep_legal":"","host":"181.198.190.234","localhost":"localhost","localport":"","port":"","hostjson":"181.198.190.234","portjson":"","ftphost":"ftp.tecsicom.net","ftpuser":"ghost@plastife.com","ftppswd":"1q2w3e4r","version":"3","emaile":"ghost@plastife.com","final":"1"}
	ENDTEXT
	
	
*	STRTOFILE(oApp.encripta(sKey),'\ghost_key\ghost_key_0501339568001')
	
	
		** PLASTIFE 181.198.190.234
TEXT TO sKey NOSHOW textmerge
{"id":"64","nombre":"PLASTI-FE","ruc":"1711828812001","tovacompu":"0","valor":"800","pagado":"0","web":"","contacto":"","correocontacto":"distribucionesplasti-fe@hotmail.com       ","telefonos":"022370653","fe_activa":"1","bdd_name":null,"tipoemision":"2","emision":"2015-11-02","vigencia":"2016-12-01","pedidos":"0","ventas":"0","compras":"0","evale":"0","ereceiv":"0","email":"1","correo":"distribucionesplasti-fe@hotmail.com       ","etiq_correo":"PLASTIFE - Facturacion Electronica","lghost_fe_fv":"1","lghost_fe_nc":"1",
"lghost_fe_nd":"1","lghost_fe_gr":"1","lghost_fe_cr":"1","frm01":"frm01uc","frm04":"frm04","frm05":"frm05","frm06":"frm06","frm07":"frm07","frm_cxc":"","frm_vale":"","frm_valei":"","ciudad":"SANTO DOMINGO","lweb":"0","ljson":"1","lfamilia":"0","lcambiar_porc_iva":"1","rep_legal":"","host":"181.198.190.234","localhost":"192.168.1.200","localport":"","port":"","hostjson":"181.198.190.234","portjson":"","ftphost":"ftp.tecsicom.net","ftpuser":"ghost@plastife.com","ftppswd":"1q2w3e4r","version":"3","emaile":"ghost@plastife.com","final":"1"}
ENDTEXT
	
	STRTOFILE(oApp.encripta(sKey),'\ghost_key\ghost_key_1711828812001')
	
ENDFUNC
