Tastiera Virtuale

Chiara scrive:

Calo cosa sono i Keylog?

Calo scrive:

I “keylog” (si può tradurre “elenco dei tasti Attivati”) sono una categoria di programmi che permettono di salvare in un file, normalmente come caratteri asci, tutte le attività svolte sulla tastiera.

Come spesso accade, il mezzo (in questo caso il programma) è neutro, però l’uso che se ne fa può portare a dei comportamenti illeciti, quindi possiamo avere:

1. Uso Lecito (es. Backup dei dati inseriti durante la battitura di un testo, test di velocità.)

2. Uso Non Lecito e in questo caso parliamo di Spyware.

Chiara scrive:

Cosa sono spyware?

Calo scrive:

Uno spyware è un tipo di software che raccoglie informazioni riguardanti l'attività online di un utente (siti visitati, acquisti eseguiti in rete, username, Password ecc.) senza il suo consenso, trasmettendole tramite Internet ad un'organizzazione che le utilizzerà per trarne profitto, tipicamente attraverso l'invio di pubblicità mirata.

Chiara scrive:

Ma che problemi si possono avere?

Calo scrive:

I problemi più grossi si hanno quando qualcuno riesce a carpire la nostra username e la nostra password, per quel determinato servizio.

La soluzione quale è? Attivare una tastiera virtuale che ci permetta di non utilizzare la tastiera reale.

Alcuni siti di home banking mettono a disposizione delle tastiere virtuali direttamente sulla pagina web del servizio.

Chiara scrive:

Ho sentito che windows XP, ha una tastiera virtuale incorporata, non si può utilizzare quella?

Calo scrive:

Ti riferisci al programma osk.exe a cui e possibile accedere da:

Start -> Programmi -> Accessori -> Tastiera su schermo.

Non sono sicuro, ma vedendo come funziona credo che carichi i tasti premuti nel buffer della tastiera, e quindi vengono comunque catturati dal Keylog.

Chiara scrive:

E allora per gli altri siti e/o servizi che cosa posso fare? Non mi puoi aiutare?

Calo scrive:

Dammi un paio d’ore, vedo cosa posso fare.

Chiara scrive:

Allora ci sentiamo dopo cena, ora vado a fare una Gabbionata con le mie amiche, ciao Chiara

Dizionario scrive: La Gabbionata è una specie di Calcetto che si gioca in campo con le pareti molto alte e quasi sempre con il soffitto sigillato, come una “Gabbia”. Non esiste il fallo laterale o il calcio d’angolo, anzi le pareti vengono spesso usare per fare carambola e superare l’avversario. Si gioca nella zona di Livorno.

Calo scrive:

Allora ci sentiamo ciao Calo.

Calo scrive:

Ti invio la grafica della tastiera, dimmi se ti va bene, in caso affermativo procedo.

In attesa che [Chiara ] accetti il file "Tastiera virtuale.xls" (100 KB, meno di 5 minuti con un modem a 28,8 Kpbs). Attendi una risposta o annulla (ALT+Q) il trasferimento del file.

Trasferimento del file "Tastiera virtuale.xls" accettato da [Chiara]. Avvio del trasferimento in corso...

Trasferimento del file "Tastiera virtuale.xls" Completato.

Chiara scrive:

mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm!

Calo scrive:

Ho capito fa schifo, messaggio ricevuto, rifaccio tutto.

Calo scrive:

Guarda questa.

In attesa che [Chiara ] accetti il file " TastieraVirtuale_ver_2_0.xls" (180 KB, meno di 8 minuti con un modem a 28,8 Kpbs). Attendi una risposta o annulla (ALT+Q) il trasferimento del file.

Trasferimento del file " TastieraVirtuale_ver_2_0.xls" accettato da [Chiara]. Avvio del trasferimento in corso...

Trasferimento del file "" TastieraVirtuale_ver_2_0.xls" Completato.

Chiara scrive:

Bene ora cosa devo fare?

Calo scrive:

Apri il file in automatico e ti comparirà la tastiera, pronta da utilizzare.

Chiara scrive:

Più che una tastiera a me sembra un insalatiera!

Calo scrive:

Effettivamente quella che vedi è un insalata che ho preparato quest’estate per festeggiare la vittoria della nazionale di calcio.

Chiara scrive:

Bella, ma la tastiera?

Calo scrive:

Sul bordo sinistro del Piatto di ceramica ci sono due puntini, spuntando quello superiore compare la tastiera, spuntando quello inferiore si vede l’insalata in tutto il suo splendore.

Chiara scrive:

La grafica è carina, ma come funziona?

Calo scrive:

Come vedi la tastiera è divisa in quattro parti:

1. nella parte superiore ci trovi la Text Box in cui si vede quello che hai digitato

2. sotto questa trovi 4 file di tasti per la normale digitazione.

3. ancora sotto ci sono 3 file di tasti che permettono di svolgere queste funzioni:

4. Infine trovi 3 file di tasti per inserire i caratteri speciali che normalmente si trovano sparsi per la tastiera.

Tasto

Funzione quando attivato

Funzione quando non attivato

ABC

Trasforma i tasti della zona 1 in maiuscolo

Trasforma i tasti della zona 1 in minuscolo

Space

Inserisce uno spazio

abc

Trasforma i tasti della zona 1 in minuscolo

Trasforma i tasti della zona 1 in maiuscolo

Copia In Memoria

·      Copia in memoria il contenuto della TextBox1

·      cancella il contenuto della TextBox1

·      Copia nella clipboard per 500 volte un testo scherzoso

Pulisci & Chiudi

·      cancella il contenuto della TextBox1

·      Copia nella clipboard per 500 volte un testo scherzoso

·      chiude la tastiera form

Nascondi tasti Speciali

Nasconde le ultime 3 righe di tasti

****/abcd

Visualizza il contenuto della TextBox1 solo come “*” per evitare sguardi indiscreti.

Visualizza il contenuto della TextBox1 come effettivamente digitato

La tastiera è una Qwerty, quindi i tasti che provi nella parte 1 sono nella

stessa disposizione delle tastiere standard da Pc.

Nella seconda parte, partendo da sinistra trovi:

tasto

Chiara scrive:

Ma dove lo trovo il testo digitato?

Calo scrive:

Dopo aver digitato il testo e attivato il tasto “Copia In Memoria”, appare una finestrella con scritto " Il testo è stato inserito in memoria, incollare dove necessario e premere OK " quindi, prima di dare ok, ti sposti nella finestra del browser e con il tasto destro del mouse attivi incolla e magicamente il testo appare nella finestrella opportuna.

Chiara scrive:

Funziona benissimo ho appena chiuso ma i due tasti che ci sono nel foglio1 a cosa servono?

Calo scrive:

Il primo con scritto “Visualizza Tastiera Virtuale” serve a riaprire la tastiera, il secondo con la scritta “Aiuto” lancia un messaggio con un indirizzo e-mail a cui inviare eventuali richieste di aiuto.

Chiara scrive:

Ho capito ma come faccio ad usarlo quando sono fuori?

Calo scrive:

Basta collegarsi al sito www.rifici.it\public\TastieraVirtuale.xls scarichi il file e lo usi, per quante volte vuoi.

Chiara scrive:

Pratico ed efficace, ma come hai fatto per crearlo?

Calo scrive:

Cominciamo con quello che succede all’apertura del File.

'----------------------------------------------------------------------------

Option Explicit ' Questa dichiarazione serve ad imporre la dichiarazione esplicita delle variabili

Chiara scrive:

Ma perché bisogna imporre limiti, non è più semplice non avere vincoli?

Calo scrive:

A prima vista potrebbe sembrare più comodo, ma con la dichiarazione esplicita è più veloce trovare gli errori. Quindi nel complesso si risparmia tempo.

Io uso un trucco, lo spiego in tre mosse:

1. Le prime due/tre lettere della variabile le utilizzo per capire che tipo di dati conterranno, in questo documento trovi tutti i prefissi che uso www.rifici.it\public\PrefissiVariabili.doc

2. Dichiaro le Variabili con la “ notazione Ungherese”, la prima lettera in maiuscolo, le altre in minuscolo

3. nel codice scrivo le variabili tutte in minuscolo,

· Se ho scritto esattamente, vba le trasforma nella forma corretta.

· In caso di errore rimangono in minuscolo.

In un modulo dichiaro due variabili stringa e due matrici che conterranno i caratteri da visualizzare sui tasti. Come vedi, sono dichiarate public, in questo modo sono visibili in tutto il progetto.

Public ST_Impostazioni As String

Public ST_Testo As String

Public ST_ValoriTastiera1(100) As String

Public ST_ValoriTastiera2(100) As String

'----------------------------------------------------------------------------

Questa parte di programma viene eseguito all’apertura del file.xls, l’unico compito che svolge è quello di far aprire la maschera “Tastiera”.

Private Sub Workbook_Open()

Tastiera.Show ' Apro il form con la tastiera virtuale

End Sub

'----------------------------------------------------------------------------

All’apertura della maschera “Tastiera” viene eseguita UserForm_Initialize()

Private Sub UserForm_Initialize()

Dim CU_A As Currency ‘ dichiaro la variabile

Con un ciclo da 1 a 72 andiamo a leggere i dati dalle colonne B e C, e assegniamo i valori delle celle ai vari tasti

For CU_A = 1 To 72

ST_ValoriTastiera1(CU_A) = Cells(CU_A + 1, 2) ' Leggo dalla seconda colonna i dati da inserire come nome dei tasti maiuscolo

ST_ValoriTastiera2(CU_A) = Cells(CU_A + 1, 3) ' Leggo dalla terza colonna i dati da inserire come nome dei tasti minuscolo

Next

TextBox1.PasswordChar = "*"

CommandButton72.BackColor = 255 'Imposta a rosso il colore del tasto minuscolo

CommandButton71.BackColor = 32786 'Imposta a verde il colore del tasto maiuscolo

CommandButton1.Caption = ST_ValoriTastiera1(1) ' assegna il nome al pulsante 1

CommandButton2.Caption = ST_ValoriTastiera1(2)

Omissis………………………..

CommandButton69.Caption = ST_ValoriTastiera1(69)

CommandButton70.Caption = ST_ValoriTastiera1(70)

Chiara scrive:

Perché hai scritto omissis?

Calo scrive:

Il codice è in sequenza per motivi di spazio, ti scrivo solo le prime e le ultime istruzioni, se vuoi vedere tutto il codice hai due possibilità:

1. lo scarichi da www.rifici.it\public\CodiceCompleto.doc

2. lo visualizzi dall’editor VBA di excel, richiamabile con il tasto F11.

Nascondiamo tutti gli oggetti della form (per far vedere L’insalata)

TextBox1.Visible = False

CommandButton1.Visible = False

CommandButton2.Visible = False

Omissis…………………………..

CommandButton76.Visible = False

CommandButton77.Visible = False

End Sub

'----------------------------------------------------------------------------

Questo codice viene eseguito premendo “ABC”. Imposta il colore a verde e assegna la proprietà “Caption” dei tasti ai valori che abbiamo scritto nella colonna B

Private Sub CommandButton71_Click()

CommandButton72.BackColor = 255 'Imposta a rosso il colore del tasto minuscolo

CommandButton71.BackColor = 32786 'Imposta a verde il colore del tasto maiuscolo

CommandButton1.Caption = ST_ValoriTastiera1(1) ' assegna il nome al pulsante 1

CommandButton2.Caption = ST_ValoriTastiera1(2)

Omissis…………………………..

CommandButton70.Caption = ST_ValoriTastiera1(70) ' assegna il nome al pulsante 70

End Sub

'----------------------------------------------------------------------------

Questo codice viene eseguito premendo “abc”. Imposta il colore a verde e assegna la proprietà “Caption” dei tasti ai valori che abbiamo scritto nella colonna c

Private Sub CommandButton72_Click()

CommandButton72.BackColor = 32786 'Imposta a verde il colore del tasto minuscolo

CommandButton71.BackColor = 255 'Imposta a rosso il colore del tasto maiuscolo

CommandButton1.Caption = ST_ValoriTastiera2(1) ' assegna il nome al pulsante 1

CommandButton2.Caption = ST_ValoriTastiera2(2)

Omissis…………………………..

CommandButton70.Caption = ST_ValoriTastiera2(70)

End Sub

'----------------------------------------------------------------------------

Questo codice viene eseguito premendo “Nascondi tasti Speciali”. Serve a nascondere o visualizzare i tasti della quarta parte.

Private Sub CommandButton74_Click()

If CommandButton41.Visible = True Then

CommandButton74.Caption = " Visualizza tasti Speciali "

CommandButton41.Visible = False

Omissis…………………………..

CommandButton70.Visible = False

Else

CommandButton74.Caption = " Nascondi tasti Speciali "

CommandButton41.Visible = True

Omissis…………………………..

CommandButton70.Visible = True

End If

End Sub

'----------------------------------------------------------------------------

Questo codice viene eseguito premendo “Copia In Memoria”. Serve a copiare negli appunti il testo visualizzato nella TextBox1. Dopo, per 100 volte copia in memoria una testo scherzoso. Questo ciclo serve ad evitare di lasciare in memoria il testo da noi digitato.

Private Sub CommandButton75_Click()

Dim CU_A As Currency

Dim ST_TestoDaIncollare As DataObject

Set ST_TestoDaIncollare = New DataObject

ST_TestoDaIncollare.SetText ST_Testo

ST_TestoDaIncollare.PutInClipboard

MsgBox " Il testo è stato inserito in memoria, incollare dove necessario e premere OK "

ST_Testo = ""

TextBox1.Text = ST_Testo

For CU_A = 1 To 100

ST_TestoDaIncollare.SetText " Cosa Ciacci sei la scimmia N. " & CU_A

ST_TestoDaIncollare.PutInClipboard

Next CU_A

End Sub

'----------------------------------------------------------------------------

Questo codice viene eseguito premendo “Pulisci & Chiudi”. Serve a copiare, per 100 volte copia in memoria una testo scherzoso, dopodichè chiude la form.

Private Sub CommandButton76_Click()

Dim CU_A As Currency

Dim ST_TestoDaIncollare As DataObject

Set ST_TestoDaIncollare = New DataObject

ST_Testo = ""

TextBox1.Text = ST_Testo

For CU_A = 1 To 100

ST_TestoDaIncollare.SetText " Cosa Ciacci sei la scimmia N. " & CU_A

ST_TestoDaIncollare.PutInClipboard

Next CU_A

Unload Tastiera

End Sub

'----------------------------------------------------------------------------

Questo codice viene eseguito premendo “****”. Serve a scegliere il testo visualizzato nella TextBox1, deve essere quello da noi digitato oppure tutti *.

Private Sub CommandButton77_Click()

If TextBox1.PasswordChar = "*" Then

TextBox1.PasswordChar = ""

CommandButton77.Caption = "abcd"

CommandButton77.BackColor = 255

Else

TextBox1.PasswordChar = "*"

CommandButton77.Caption = "****"

CommandButton77.BackColor = 32786

End If

End Sub

'----------------------------------------------------------------------------

Il codice che segue è inserito sotto ogni tasto, serve ad aggiungere al testo che si trova nella TextBox1 quello visualizzato sul tasto premuto.

Private Sub CommandButton1_Click()

ST_Testo = ST_Testo & CommandButton1.Caption

TextBox1.Text = ST_Testo

End Sub

Omissis…………………………..

Private Sub CommandButton73_Click()

ST_Testo = ST_Testo & " "

TextBox1.Text = ST_Testo

End Sub

'----------------------------------------------------------------------------

Il codice che segue è inserito sotto il tasto “Aiuto”, serve a lanciare un messaggio con un indirizzo e-mail a cui inviare eventuali richieste di aiuto.

Private Sub Aiuto_Click()

MsgBox " Per eventuali chiarimenti inviare un'email a: info@rifici.it "

End Sub

'----------------------------------------------------------------------------

Il codice che segue è inserito sotto il tasto “Visualizza Tastiera”, serve a riaprire la tastiera

Private Sub VisualizzaTastiera_Click()

Tastiera.Show 'Apro il form con la tastiera

End Sub

Buon Divertimento

www.rifici.it\public\TastieraVirtuale.xls

www.rifici.it\public\PrefissiVariabili.doc

www.rifici.it\public\CodiceCompleto.doc