Liberar senha nos caixas

CleitonSH · June 13, 2012

Lailton, colocar o get somente leitura tudo bem, mas se o cliente ler o cartÃ£o no bloco de notas por exemplo, irÃ¡ pegar o cÃ³digo e digitar normalmente no get somente de leitura. A questÃ£o do tempo de digitaÃ§Ã£o estou analisando.

Obrigado.

citaÃ§Ã£o:
Cleiton,

Se me permite comentar.

Nao seria possivel colocar o "get" em modo somente leitura ?

Ou ate mesmo voc^e fazer um controle do codigo inserido isso ( em logica ) me parece facil e rapido de se fazer.

Exemplo quando voc^e digita um numero por exmeplo de uns 13 caracter vc tende a demorar cerca de um 5 seg. ja um leitor acredito que entre 1 e 2. acho q nesse intervalo de tempo vc pode ( AMARAR ) o sistema e saber se alguem esta digitando ou o leitor que esta informando.

Pois se vem do leitor vc deixaria continuar, se fose digitado ( 'e pq alguem teria copiado do bloco de notas ).

vc tambem pode checar o CTRL+V ( que provavelmente a pessoa esteja usando ) e com isso nao aceitar o codigo.

O que vc acha ??

( Se viajei desculpa, apenas ideias. )

Abraco

O cÃ³digo de barras estou gerando com uma criptografia minha, e e informo esse cÃ³digo no coreldraw.

SÃ³ que, se o cliente ler este cartÃ£o no bloco de notas, dar um CTRL+C no conteÃºdo lido pelo leitor e ir no campo

que meu sistema pede pra passar o cartÃ£o de liberaÃ§Ã£o e der um CTRL+V, ele irÃ¡ passar normalmente.

Pra ficar assim, o usuÃ¡rio jamais poderia ter acesso a este cartÃ£o, mas fica difÃcil, funciona por algum tempo, depois o supervidor de caixa relaxa e deixa o cartÃ£o em algum lugar, o operador vai lÃ¡ e lÃª o cartÃ£o no bloco de notas, ai jÃ¡ era...

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

Att.

Lailton Fernando Mariano

E-Mail: developer@lailton.com.br | Msn: lailton.developer@hotmail.com

xHarbour 1.2.1 | Fivewin 11.1 | Borland 5.8.2 | MySQL

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

CleitonSH · June 13, 2012

Ercicley, o empresÃ¡rio nÃ£o quer nem saber. Sabe que os funcionÃ¡rios estÃ£o burlando o sistema, ele quer barrar mesmo sabendo que a pessoa nÃ£o Ã© de confianÃ§a para estar no seu quadro de funcinÃ¡rios.

Obrigado.

citaÃ§Ã£o:
Ainda sou da opiniÃ£o que nÃ£o se deva fazer nada, assim como o Frazato disse.

1 - se o funcionÃ¡rio da empresa estÃ¡ dando de malandro, a empresa que tem que resolver.

2 - se o responsÃ¡vel Ã© irresponsÃ¡vel e relaxa com o cartÃ£o, a empresa que tem que resolver.

Como um amigo diz, liga o modo fod*-se, isso nÃ£o Ã© problema seu, a nÃ£o ser que estejam pagando para vocÃª fazer algo, mas mesmo assim.

Quase nada Ã© imburlÃ¡vel. ^^

Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY)

NÃƒO ABANDONE O POST, QUEREMOS SABER SE SUA DÃšVIDA/PROBLEMA TEVE SOLUÃ‡ÃƒO

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

CleitonSH · June 13, 2012

Rone qual padrÃ£o de cÃ³digo de barras consegue imprimir alguma senha criptografada? Code128, Code39...

citaÃ§Ã£o:
cCodCriptografado := Encrypt( cCodigo, "PADRAO_PARA_CRIPTOGRFAR" )

Imprime cCodCriptografado como CODIGO DE BARRAS PARA O CARTAO

Depois no mÃ³dulo para LER O CARTAO

cCodDescriptografado := Decrypt( cCodLIDO, "PADRAO_PARA_CRIPTOGRAFAR" )

Verificar no banco de dados...

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

dorneles · June 13, 2012

Cleiton, me chama no skype que ti passo uma funcao para isso.

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

sambomb · June 13, 2012

citaÃ§Ã£o:
Samir, como bloquear CTRL+C e CTRL+V dentro de um get?

citaÃ§Ã£o:
coloque um cÃ³digo acima de 13 digitos preferencialmente e verifique o tempo entre o inicio da digitaÃ§Ã£o e o final, bloqueie o ctrl+V, shift+insert e botÃ£o direito do mouse e assim sÃ³ se o usuÃ¡rio digitar EXTREMAMENTE RÃPIDO.

Pode colocar 2 segundos ou 1,5 caso use milisegundos tb...

RCA Sistemas - Itaocara - RJ

Editado por - sambomb on 12/06/2012 17:56:44

id=quote>id=quote>
Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

id=quote>id=quote>

Na TGet.prg tem um tratamento para isso jÃ¡ la no mÃ©todo KeyDown

Mas acho que seria assim:

oget:bKeyDown := { |nKey| TrataTecla(nKey) }

Function TrataTecla( nKey )

If nKey = Chr("c") .Or.;

nKey = Chr("C") .Or.;

nKey = Chr("v") .Or.;

nKey = Chr("V")

If GetKeyState( VK_CONTROL )

oClip := TClipBoard():New()

oClip:SetText("ERRO")

cGet := "ERRO"

oGet:Refresh()

end

Return

id=code>id=code>

RCA Sistemas - Itaocara - RJ

kapiaba · June 13, 2012

citaÃ§Ã£o:

citaÃ§Ã£o:
Samir, como bloquear CTRL+C e CTRL+V dentro de um get?

citaÃ§Ã£o:
coloque um cÃ³digo acima de 13 digitos preferencialmente e verifique o tempo entre o inicio da digitaÃ§Ã£o e o final, bloqueie o ctrl+V, shift+insert e botÃ£o direito do mouse e assim sÃ³ se o usuÃ¡rio digitar EXTREMAMENTE RÃPIDO.

Pode colocar 2 segundos ou 1,5 caso use milisegundos tb...

RCA Sistemas - Itaocara - RJ

Editado por - sambomb on 12/06/2012 17:56:44

id=quote>id=quote>
Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

id=quote>id=quote>
Na TGet.prg tem um tratamento para isso jÃ¡ la no mÃ©todo KeyDown

Mas acho que seria assim:
oget:bKeyDown := { |nKey| TrataTecla(nKey) }

Function TrataTecla( nKey )

If nKey = Chr("c") .Or.;

nKey = Chr("C") .Or.;

nKey = Chr("v") .Or.;

nKey = Chr("V")

If GetKeyState( VK_CONTROL )

oClip := TClipBoard():New()

oClip:SetText("ERRO")

cGet := "ERRO"

oGet:Refresh()

end

end

Return

id=code>id=code>

RCA Sistemas - Itaocara - RJ

id=quote>id=quote>

Mesmo que voce impeÃ§a a copia, basta o usuÃ¡rio passar o cartÃ£o em um leitor de codigos de barras de teclado, que ele terÃ¡ o codigo e a senha do supervisor pelo prompt de comando ou em um editor de textos for windows e ai ele digitarÃ¡ os dados no get.

Melhor Ã© SOMAR caracteres especiais na senha ou no codigo do operador... Ã© sÃ³ uma idÃ©ia...

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Theotokos · June 13, 2012

code128

citaÃ§Ã£o:
Rone qual padrÃ£o de cÃ³digo de barras consegue imprimir alguma senha criptografada? Code128, Code39...

citaÃ§Ã£o:
cCodCriptografado := Encrypt( cCodigo, "PADRAO_PARA_CRIPTOGRFAR" )

Imprime cCodCriptografado como CODIGO DE BARRAS PARA O CARTAO

Depois no mÃ³dulo para LER O CARTAO

cCodDescriptografado := Decrypt( cCodLIDO, "PADRAO_PARA_CRIPTOGRAFAR" )

Verificar no banco de dados...

id=quote>id=quote>
Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

id=quote>id=quote>

CleitonSH · June 13, 2012

Obrigado Dorneles.

citaÃ§Ã£o:
Cleiton, me chama no skype que ti passo uma funcao para isso.

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

sambomb · June 13, 2012

coloque caracteres especias como Asc(1), Asc(2), etc... bloqueie o CTRL, SHIFT e ALT no bKeyDown e pronto nÃ£o tem como colar caracteres especiais pois para digita-los pelo teclado Ã© ALT+nÃºmero

RCA Sistemas - Itaocara - RJ

CleitonSH · June 13, 2012

Obrigado, esse padrÃ£o mesmo que estou utilizando.

citaÃ§Ã£o:
code128

citaÃ§Ã£o:
Rone qual padrÃ£o de cÃ³digo de barras consegue imprimir alguma senha criptografada? Code128, Code39...

citaÃ§Ã£o:
cCodCriptografado := Encrypt( cCodigo, "PADRAO_PARA_CRIPTOGRFAR" )

Imprime cCodCriptografado como CODIGO DE BARRAS PARA O CARTAO

Depois no mÃ³dulo para LER O CARTAO

cCodDescriptografado := Decrypt( cCodLIDO, "PADRAO_PARA_CRIPTOGRAFAR" )

Verificar no banco de dados...

id=quote>id=quote>
Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

id=quote>id=quote>

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

CleitonSH · June 13, 2012

Obrigado Kapiaba

citaÃ§Ã£o:
citaÃ§Ã£o:

citaÃ§Ã£o:
Samir, como bloquear CTRL+C e CTRL+V dentro de um get?

citaÃ§Ã£o:
coloque um cÃ³digo acima de 13 digitos preferencialmente e verifique o tempo entre o inicio da digitaÃ§Ã£o e o final, bloqueie o ctrl+V, shift+insert e botÃ£o direito do mouse e assim sÃ³ se o usuÃ¡rio digitar EXTREMAMENTE RÃPIDO.

Pode colocar 2 segundos ou 1,5 caso use milisegundos tb...

RCA Sistemas - Itaocara - RJ

Editado por - sambomb on 12/06/2012 17:56:44

id=quote>id=quote>
Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

id=quote>id=quote>
Na TGet.prg tem um tratamento para isso jÃ¡ la no mÃ©todo KeyDown

Mas acho que seria assim:
oget:bKeyDown := { |nKey| TrataTecla(nKey) }

Function TrataTecla( nKey )

If nKey = Chr("c") .Or.;

nKey = Chr("C") .Or.;

nKey = Chr("v") .Or.;

nKey = Chr("V")

If GetKeyState( VK_CONTROL )

oClip := TClipBoard():New()

oClip:SetText("ERRO")

cGet := "ERRO"

oGet:Refresh()

end

end

Return

id=code>id=code>

RCA Sistemas - Itaocara - RJ
id=quote>id=quote>
Mesmo que voce impeÃ§a a copia, basta o usuÃ¡rio passar o cartÃ£o em um leitor de codigos de barras de teclado, que ele terÃ¡ o codigo e a senha do supervisor pelo prompt de comando ou em um editor de textos for windows e ai ele digitarÃ¡ os dados no get.

Melhor Ã© SOMAR caracteres especiais na senha ou no codigo do operador... Ã© sÃ³ uma idÃ©ia...

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

CleitonSH · June 13, 2012

Obrigado Ã todos que me deram dicas, acho que vou associar cÃ³digos asc e validaÃ§Ã£o do tempo de digitaÃ§Ã£o, como alguns citaram aqui. Inclusive o Dorneles me passou um exemplo bem prÃ¡tico.

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

kapiaba · June 13, 2012

citaÃ§Ã£o:
Obrigado Ã todos que me deram dicas, acho que vou associar cÃ³digos asc e validaÃ§Ã£o do tempo de digitaÃ§Ã£o, como alguns citaram aqui. Inclusive o Dorneles me passou um exemplo bem prÃ¡tico.

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

id=quote>id=quote>

PS:

Quando funcionando perfeito, poste um exemplo para ajudar os demais.

Abs, obg.

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

kapiaba · June 13, 2012

Veja se ajuda tambÃ©m:

http://msdn.microsoft.com/pt-br/library/cc580676.aspx

http://www.baixaki.com.br/download/barra-facil.htm

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 13/06/2012 15:44:45

CleitonSH · June 13, 2012

Quando comeÃ§o a digitaÃ§Ã£o da senha, executo uma funÃ§Ã£o que conta quantos segundos jÃ¡ se passaram, se jÃ¡ se passou x segundos do momento da digitaÃ§Ã£o inicial atÃ© o enter ou clique no botÃ£o confirma, o sistema considera a senha como incorreta. Se o Dorneles autorizar eu posto aqui, pois ele que me passou a rotina. Lembrando que o Samir tambÃ©m citou utilizar este processo.

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

kapiaba · June 13, 2012

citaÃ§Ã£o:
Quando comeÃ§o a digitaÃ§Ã£o da senha, executo uma funÃ§Ã£o que conta quantos segundos jÃ¡ se passaram, se jÃ¡ se passou x segundos do momento da digitaÃ§Ã£o inicial atÃ© o enter ou clique no botÃ£o confirma, o sistema considera a senha como incorreta. Se o Dorneles autorizar eu posto aqui, pois ele que me passou a rotina. Lembrando que o Samir tambÃ©m citou utilizar este processo.

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

id=quote>id=quote>

Se o Dorneles nÃ£o permitir, vou anotar aqui, e quando ele pedir alguma coisa aqui, serÃ¡:

VAPT e VUPT nele... kkkkkkkkkkkkkkkkkkkkkk

abs,

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

sambomb · June 13, 2012

oGet:bKeyDown := {|nKey| TrataTecla( nKey ) }

function TrataTecla( nKey )

If Len( oSeuGet:oGet:Buffer ) <= 1

cTempoInicial := Time()

else

If nKey = 13 //-- Leitor de cÃ³digo de barras da Enter no final

If Secs( ElapTime(cTempoInicial,Time() ) ) > 2

Msg("Erro")

end

return nil

id=code>id=code>

RCA Sistemas - Itaocara - RJ

Editado por - sambomb on 14/06/2012 08:15:13

CleitonSH · June 13, 2012

If Secs( ElapTime(cTempoInicial,Time()) ) > 2

Msg("Erro")

end

citaÃ§Ã£o:
oGet:bKeyDown := {|nKey| TrataTecla( nKey ) }

function TrataTecla( nKey )

If Len( oSeuGet:oGet:Buffer ) <= 1

cTempoInicial := Time()

else

If nKey = 13 //-- Leitor de cÃ³digo de barras da Enter no final

If Secs( ElapTime(cTempoInicial,Time) ) > 2

Msg("Erro")

end

end

end

return nil

id=code>id=code>

RCA Sistemas - Itaocara - RJ

id=quote>id=quote>

Cleiton

FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b

fladimir · June 14, 2012

citaÃ§Ã£o:Quando comeÃ§o a digitaÃ§Ã£o da senha, executo uma funÃ§Ã£o que conta quantos segundos jÃ¡ se passaram, se jÃ¡ se passou x segundos do momento da digitaÃ§Ã£o inicial atÃ© o enter ou clique no botÃ£o confirma, o sistema considera a senha como incorreta. Se o Dorneles autorizar eu posto aqui, pois ele que me passou a rotina. Lembrando que o Samir tambÃ©m citou utilizar este processo.

id=quote>id=quote>

Senhores analisando todas as postagens, mesmo que as senhas sejam criptografadas, o q dificulta mas nÃ£o resolve, pois podem conseguir atravÃ©s de cÃ³pia/digitaÃ§Ã£o, em bloco de notas ou outros e com isto consequentemente o sistema iria verificar q a STRING mesmo q criptografada ao ser descriptografada e validada estarÃ¡ correta autorizando determinada funÃ§Ã£o....

A melhor alternativa, no meu ponto de vista, e q o colega definiu atravÃ©s do mix de idÃ©ias/sugestÃµes acima expostas em sua citaÃ§Ã£o, as quais transcrevo abaixo:

- Controle do tempo de inserÃ§Ã£o da senha, se for rÃ¡pido presume-se q veio do leitor (seja serial, usb ou ps/2) se demorar presume-se que esta sendo digitado.

- Ao gerar os cartÃµes com cÃ³digo em cÃ³digo de barras inserir antes da string do usuÃ¡rio uns 3 caracteres ASC de acesso somente atravÃ©s do ALT + CÃ“DIGO ASCII, que o usuÃ¡rio em geral, provavelmente nÃ£o conseguiria, a nÃ£o ser que tivesse conhecimento de cÃ³digos ASCII.

- Bloquear o CTRL+V, SHIFT+INSERT, botÃ£o direito colar

- Controle de LOG do que esta sendo feito.

- E por ultimo se com tudo isso acima o usuÃ¡rio/operador de caixa conseguir burlar, ai entra na sugestÃ£o de A EMPRESA TEM Q RESOLVER, q seria o ideal desde o inÃcio, mas existe uma 'pequena' distÃ¢ncia entre o IDEAL e o REAL, ainda mais quando se trata em alguns casos com clientes com "caracterÃsticas especiais" ou "delicados".

Se nÃ£o estiver esquecendo nada acredito q estejam listadas a sÃntese das idÃ©ias dos colegas ao longo das postagens deste tÃ³pico.

[]Â´s

sambomb · June 14, 2012

Fladimir sintetizando mais ainda seria:

No cÃ³digo de barras ter caracter nÃ£o digitÃ¡vel Asc(1) a Asc(31)

Bloquear: CTRL/SHIFT/ALT e botÃ£o direito do mouse

Verificar o tempo de digitaÃ§Ã£o(opcional)

Caso CTRL/SHIFT/ALT/ botÃ£o direito estejam bloqueados nÃ£o vai ser possÃvel fazer os caracteres especiais e nem colados com CTRL+V ou SHIFT+INSERT ou pelo botÃ£o direito

RCA Sistemas - Itaocara - RJ

Liberar senha nos caixas

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation