Petar Karan

Come utilizzare su Linux l’SFTP per trasferire e gestire i file da riga di commando

L’SFTP (SSH File Transfer Protocol) è un protocollo simile al FTP, utilizzato però per trasferire e manipolare file mediante SSH.

I comandi utilizzati sono simili a quelli del FTP. E’ molto utile specialmente quando si devono trasferire i file da un server all’altro.

1. Collegarsi in SFTP

Per collegarci al server remoto in SFTP digitiamo:

sftp nome_utente@indirizzo_server

1	sftp nome_utente@indirizzo_server

Per collegarci al server remoto su una porta diversa dalla 22

sftp -oPort=porta nome_utente@indirizzo_server

1	sftp -oPort=porta nome_utente@indirizzo_server

Una volta collegati ci verrà richiesta la password.

2. Comandi disponibili in SFTP

Per ottenere l’elenco di tutti i comandi disponibili, digitiamo:

help

1

help

L’output sarà simile al seguente:

bye	Quit sftp
cd path	Change remote directory to ‘path’
chgrp grp path	Change group of file ‘path’ to ‘grp’
chmod mode path	Change permissions of file ‘path’ to ‘mode’
chown own path	Change owner of file ‘path’ to ‘own’
df [-hi] [path]	Display statistics for current directory or filesystem containing ‘path’
exit	Quit sftp
get [-Ppr] remote [local]	Download file
reget remote [local]	Resume download file
help	Display this help text
lcd path	Change local directory to ‘path’
lls [ls-options [path]]	Display local directory listing
lmkdir path	Create local directory
ln [-s] oldpath newpath	Link remote file (-s for symlink)
lpwd	Print local working directory
ls [-1afhlnrSt] [path]	Display remote directory listing
lumask umask	Set local umask to ‘umask’
mkdir path	Create remote directory
progress	Toggle display of progress meter
put [-Ppr] local [remote]	Upload file
pwd	Display remote working directory
quit	Quit sftp
rename oldpath newpath	Rename remote file
rm path	Delete remote file
rmdir path	Remove remote directory
symlink oldpath newpath	Symlink remote file
version	Show SFTP version
!command	Execute ‘command’ in local shell
!	Escape to local shell
?	Synonym for help

3. Scaricare file e cartelle dal SFTP

Per scaricare un singolo file, nella posizione nella quale abbiamo aperto l’SFTP, digitiamo:

get nome_file.ext

1	get nome_file.ext

Per scaricare un file rinominandolo oppure scaricandolo in una posizione locale diversa:

get nome_file.ext nuovo_nome.ext

1	get nome_file.ext nuovo_nome.ext

Per scaricare una cartella digitiamo:

get -r cartella_remota

1	get -r cartella_remota

Per scaricare tutti i file della cartella corrente remota nella cartella locale attuale:

get -r *

1

get -r *

4. Caricare file e cartelle sul SFTP

Per caricare un file locale nella posizione remota, digitiamo:

put nome_file.ext

1	put nome_file.ext

Per caricare una cartella locale sul server remoto digitiamo:

put -r cartella_locale

1	put -r cartella_locale

Per caricare tutti i file della cartella locale sul server remoto:

put -r *

1

put -r *

5. Manipolare file e cartelle sul SFTP

Vedere tutto il contenuto di una cartella:

ls

1

ls

Creare una cartella:

mkdir nome_cartella

1	mkdir nome_cartella

Rinominare un file:

rename vecchio_nome nuovo_nome

1	rename vecchio_nome nuovo_nome

Rimuovere un file:

rm nome_file.ext

1	rm nome_file.ext

Rimuovere una cartella:

rmdir cartella

1	rmdir cartella

[vba] Classe per leggere e scrivere su un database MySQL

A seguito del precedente articolo [excel] Aggiungere all’origine dati delle tabelle da un database MySQL ho deciso di integrare l’esercizio creando una classe per leggere e scrivere tramite VBA su un database MySQL.

Affinché la classe funzioni ricordiamoci di installare il connettore recuperabile sul sito ufficiale (Connector/ODBC 8.0.19). Inoltre ricordiamoci anche che per poter eseguire la connessione ADO abbiamo bisogno di importare l’opportuna libreria dai riferimenti. In questo modo:

Detto tutto questo possiamo creare una classe MySQL con le seguenti istruzioni all’interno:

Private cs As String

Private Sub Class_Initialize()

    cs = "DRIVER={MySQL ODBC 8.0 ANSI Driver}"

End Sub

Public Sub setConnectionString( _
                                ByVal driver As String, _
                                Optional ByVal server As String = "localhost", _
                                Optional ByVal database As String = "", _
                                Optional ByVal user As String = "", _
                                Optional ByVal pass As String = "")
                                
    cs = "DRIVER={" & driver & "}"
    
    If server <> "" Then
        cs = cs & ";SERVER=" & server
    End If
    
    If database <> "" Then
        cs = cs & ";DATABASE=" & database
    End If
    
    If user <> "" Then
        cs = cs & ";USER=" & user
    End If
    
    If pass <> "" Then
        cs = cs & ";PASSWORD=" & pass
    End If

End Sub

Public Function dbout(ByVal query As String) As Variant

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Dim risultato() As Variant
    
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    conn.Open cs
    
    rs.Open query, conn
    
    ' mi calcolo le dimensioni del recordset
    righe = 0
    colonne = 0
    
    If Not rs.EOF Then
        Do
            righe = righe + 1
            colonne = rs.Fields.Count
            rs.MoveNext
        Loop Until rs.EOF
    End If
    
    ' mi riposiziono all'inizio
    rs.MoveFirst
    
    ReDim risultato(righe, colonne)
    
    ' leggo i dati nel risultato
    righe = 0
    If Not rs.EOF Then
        Do
            For j = 0 To rs.Fields.Count - 1
                risultato(righe, j) = rs(j)
            Next j
            righe = righe + 1
            rs.MoveNext
        Loop Until rs.EOF
    End If
    
    rs.Close
    
    conn.Close
    
    dbout = risultato

End Function

Public Function dbin(ByVal query As String)

    Dim conn As ADODB.Connection
    
    Set conn = CreateObject("ADODB.Connection")
    
    conn.Open cs
    
    conn.Execute query
    
    conn.Close

End Function

Public Function clear(ByVal testo As String) As String

    testo = Replace(testo, "\", "\\")
    testo = Replace(testo, "'", "\'")
    
    clear = testo

End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

Private cs As String

Private Sub Class_Initialize()

cs = "DRIVER={MySQL ODBC 8.0 ANSI Driver}"

End Sub

Public Sub setConnectionString( _

ByVal driver As String, _

Optional ByVal server As String = "localhost", _

Optional ByVal database As String = "", _

Optional ByVal user As String = "", _

Optional ByVal pass As String = "")

cs = "DRIVER={" & driver & "}"

If server <> "" Then

cs = cs & ";SERVER=" & server

End If

If database <> "" Then

cs = cs & ";DATABASE=" & database

End If

If user <> "" Then

cs = cs & ";USER=" & user

End If

If pass <> "" Then

cs = cs & ";PASSWORD=" & pass

End If

End Sub

Public Function dbout(ByVal query As String) As Variant

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim risultato() As Variant

Set conn = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")

conn.Open cs

rs.Open query, conn

' mi calcolo le dimensioni del recordset

righe = 0

colonne = 0

If Not rs.EOF Then

Do

righe = righe + 1

colonne = rs.Fields.Count

rs.MoveNext

Loop Until rs.EOF

End If

' mi riposiziono all'inizio

rs.MoveFirst

ReDim risultato(righe, colonne)

' leggo i dati nel risultato

righe = 0

If Not rs.EOF Then

Do

For j = 0 To rs.Fields.Count - 1

risultato(righe, j) = rs(j)

Next j

righe = righe + 1

rs.MoveNext

Loop Until rs.EOF

End If

rs.Close

conn.Close

dbout = risultato

End Function

Public Function dbin(ByVal query As String)

Dim conn As ADODB.Connection

Set conn = CreateObject("ADODB.Connection")

conn.Open cs

conn.Execute query

conn.Close

End Function

Public Function clear(ByVal testo As String) As String

testo = Replace(testo, "\", "\\")

testo = Replace(testo, "'", "\'")

clear = testo

End Function

Possiamo usare la classe nel modo seguente:

Sub MostraTotale()

    Dim db As New MySQL
    db.setConnectionString driver:="MySQL ODBC 8.0 ANSI Driver", server:="localhost", database:="miodb", user:="root"
    
    Dim righe As Variant
    
    ' inseriamo dei valori
    nome = "Mario"
    cognome = "D'Angelo"
    indirizzo = "Via delle prove"
    
    db.dbin "INSERT INTO `clienti`(`nome`, `cognome`, `indirizzo`) VALUES ('" & db.clear(nome) & "','" & db.clear(cognome) & "','" & db.clear(indirizzo) & "')"
    
    ' leggiamo diverse righe
    righe = db.dbout("SELECT * FROM clienti")
    
    For i = 0 To UBound(righe, 1) - 1
        Debug.Print righe(i, 0) & " - " & righe(i, 1)
    Next i
    
    ' leggiamo una singola riga
    righe = db.dbout("SELECT COUNT(*) FROM clienti")
    
    Debug.Print righe(0, 0)

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

Sub MostraTotale()

Dim db As New MySQL

db.setConnectionString driver:="MySQL ODBC 8.0 ANSI Driver", server:="localhost", database:="miodb", user:="root"

Dim righe As Variant

' inseriamo dei valori

nome = "Mario"

cognome = "D'Angelo"

indirizzo = "Via delle prove"

db.dbin "INSERT INTO `clienti`(`nome`, `cognome`, `indirizzo`) VALUES ('" & db.clear(nome) & "','" & db.clear(cognome) & "','" & db.clear(indirizzo) & "')"

' leggiamo diverse righe

righe = db.dbout("SELECT * FROM clienti")

For i = 0 To UBound(righe, 1) - 1

Debug.Print righe(i, 0) & " - " & righe(i, 1)

Next i

' leggiamo una singola riga

righe = db.dbout("SELECT COUNT(*) FROM clienti")

Debug.Print righe(0, 0)

End Sub

Faccio notare che con il metodo clear possiamo aggiungere gli slash agli apici, presenti nel cognome.

[excel] Aggiungere all’origine dati delle tabelle da un database MySQL

Vediamo come collegare su Excel una tabella da un database MySQL. Per il mio esempio utilizzerò un database MySQL installato in locale grazie a XAMPP.

Chiameremo il database in questione torregatti e lo struttureremo nel modo seguente, con due tabelle: clienti e agenti

Il file di creazione del database si trova al seguente link: torregatti.zip

A questo punto dobbiamo procurarci l’opportuno Driver ODBC, se non lo abbiamo già installato. In particolare per il MySQL il driver è recuperabile sul sito ufficiale (Connector/ODBC 8.0.19).

Una volta installato e scaricato andiamo a verificare la stringa di connessione.

Premiamo il tasto WIN + R. Nella finestra Esegui digitiamo %systemdrive%\Windows\SysWoW64\odbcad32

In questo modo apriremo l’Amministrazione origine dati ODBC (32 bit). Nel caso si debba aprire quella a 64 bit sarà sufficiente digitare odbcad32 oppure %systemdrive%\Windows\System32\odbcad32

Nella scheda Driver individuiamo il driver che ci interessa, in questo modo:

Nel mio caso è il MySQL ODBC 8.0 ANSI Driver

Fatto questo apriamo Excel e andiamo Dati > Recupera dati > Da altre origini > Da ODBC

Nella finestra Da ODBC selezioniamo Nome origine dati (DNS) come Nessuno e apriamo le Opzioni avanzate. Alla Stringa di connessione inseriamo la seguente stringa: DRIVER={MySQL ODBC 8.0 ANSI Driver};SERVER=localhost;

Qualora il nostro database non si trovasse in locale sostituiamo localhost con l’indirizzo del database. Fatto tutto questo premiamo su OK. A questo punto, se è la prima volta che effettuiamo la connessione, ci verranno chiesto nome utente e password. Selezionare la voce Database e scegliere come username root e lasciare il campo password vuoto. Queste impostazioni dipendono, nel mio caso, dal fatto che sto utilizzando XAMPP. In altre circostanze dovrò inserire nome utente e password appropriati.

Fatto questo possiamo selezionare la tabella alla quale ci vogliamo connettere.

Nel mio caso voglio prelevare la tabella agenti:

Una volta selezionata la tabella che ci interessa premere su Carica.

Possiamo caricare anche delle viste in MySQL, come nel mio caso la vista clienti_agenti. Se tutto è andato bene vedremo un risultato simile a questo:

[VBA] Tema musicale di Tetris eseguito da una macro in VBA su Excel

Ispirato da un articolo che ho trovato online sull’argomento (Tetris Theme Song Using Processing) ho deciso di riprodurre il medesimo risultato in VBA su Excel, riproducendo quindi il tema musicale di Tetris tramite una macro per Excel.

Anzitutto importiamo dal kernel32 di Windows la funzione appropriata per eseguire un Beep, riproducendo quindi un suono, nel modo seguente:

Public Declare PtrSafe Function Beep Lib "kernel32" _
   (ByVal dwFreq As Long, _
    ByVal dwDuration As Long) As Long

1

2

3

Public Declare PtrSafe Function Beep Lib "kernel32" _

(ByVal dwFreq As Long, _

ByVal dwDuration As Long) As Long

La funzione accetta due argomenti: frequenza in Hz e durata in ms. Quindi per eseguire un 1 beep a 800Hz di 0,5 secondi, dovremo scrivere: Beep 800, 500

Detto questo voglio anzitutto riconvertire le funzioni dell’esempio nel link in VBA, creando un vettore di frequenze ed uno dei tempi, nel modo seguente:

Sub Gioca()

    Dim frequenze As Variant
    frequenze = Array(659.25511, 493.8833, 523.25113, 587.32954, 523.25113, 493.8833, 440#, 440#, _
    523.25113, 659.25511, 587.32954, 523.25113, 493.8833, 523.25113, 587.32954, _
    659.25511, 523.25113, 440#, 440#, 440#, 493.8833, 523.25113, 587.32954, _
    698.45646, 880#, 783.99087, 698.45646, 659.25511, 523.25113, 659.25511, _
    587.32954, 523.25113, 493.8833, 493.8833, 523.25113, 587.32954, 659.25511, _
    523.25113, 440#, 440#)
    
    Dim durata As Variant
    durata = Array(406.25, 203.125, 203.125, 406.25, 203.125, 203.125, 406.25, 203.125, _
    203.125, 406.25, 203.125, 203.125, 609.375, 203.125, 406.25, 406.25, _
    406.25, 406.25, 203.125, 203.125, 203.125, 203.125, 609.375, 203.125, _
    406.25, 203.125, 203.125, 609.375, 203.125, 406.25, 203.125, 203.125, _
    406.25, 203.125, 203.125, 406.25, 406.25, 406.25, 406.25, 406.25)
    
    For i = LBound(frequenze) To UBound(frequenze)
        Beep frequenze(i), durata(i)
    Next i

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Sub Gioca()

Dim frequenze As Variant

frequenze = Array(659.25511, 493.8833, 523.25113, 587.32954, 523.25113, 493.8833, 440#, 440#, _

523.25113, 659.25511, 587.32954, 523.25113, 493.8833, 523.25113, 587.32954, _

659.25511, 523.25113, 440#, 440#, 440#, 493.8833, 523.25113, 587.32954, _

698.45646, 880#, 783.99087, 698.45646, 659.25511, 523.25113, 659.25511, _

587.32954, 523.25113, 493.8833, 493.8833, 523.25113, 587.32954, 659.25511, _

523.25113, 440#, 440#)

Dim durata As Variant

durata = Array(406.25, 203.125, 203.125, 406.25, 203.125, 203.125, 406.25, 203.125, _

203.125, 406.25, 203.125, 203.125, 609.375, 203.125, 406.25, 406.25, _

406.25, 406.25, 203.125, 203.125, 203.125, 203.125, 609.375, 203.125, _

406.25, 203.125, 203.125, 609.375, 203.125, 406.25, 203.125, 203.125, _

406.25, 203.125, 203.125, 406.25, 406.25, 406.25, 406.25, 406.25)

For i = LBound(frequenze) To UBound(frequenze)

Beep frequenze(i), durata(i)

Next i

End Sub

Faccio notare che per la conversione dello spartito (che si può trovare al seguente link) è stata usata una tabella di conversione simile a questa.

Detto questo voglio riportare la medesima tabella di conversione in Excel, in un foglio che chiameremo NOTE. Il risultato che otterremo sarà simile a questo:

A questo punto voglio creare un altro foglio, chiamato SPARTITO, dove creeremo tre colonne, una nella quale scegliere le note e l’altra dove inserire i tempi come ottavi di nota.

A questo punto associamo al pulsante Suona la seguente macro:

Sub Suona()

    Dim ottavo As Double
    ottavo = 1000 * 13 / 8 / 8 ' 1000 * 13 secondi / 8 / 8 = 203,125 ms

    Dim frequenze As Variant
    frequenze = Worksheets("SPARTITO").Range("FREQUENZE").Value
    
    Dim tempi As Variant
    tempi = Worksheets("SPARTITO").Range("TEMPI").Value
    
    For i = LBound(frequenze) To UBound(frequenze)
        Beep CDbl(frequenze(i, 1)), CDbl(tempi(i, 1) * ottavo)
    Next i

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

Sub Suona()

Dim ottavo As Double

ottavo = 1000 * 13 / 8 / 8 ' 1000 * 13 secondi / 8 / 8 = 203,125 ms

Dim frequenze As Variant

frequenze = Worksheets("SPARTITO").Range("FREQUENZE").Value

Dim tempi As Variant

tempi = Worksheets("SPARTITO").Range("TEMPI").Value

For i = LBound(frequenze) To UBound(frequenze)

Beep CDbl(frequenze(i, 1)), CDbl(tempi(i, 1) * ottavo)

Next i

End Sub

Le frequenze vengono recuperate dal foglio NOTE.

Da qui si può scaricare il file excel comprensivo di macro: excel VBA – note musicali – tema tetris

Codici sala controllo della serra, Resident Evil 2 Remake [Leon 2nd run]

Nella sala di controllo della serra si devono inserire due codici per sbloccare rispettivamente la botola nella serra e il miscelatore di soluzioni.

Per il miscelatore il codice è il seguente:

Mentre per aprire la botola bisognerà inserire questo:

Impostazione percorso della metropolitana in Resident Evil 3 Remake

Per risolvere l’enigma della metropolitana, in Resident Evil 3 Remake, bisogna anzitutto riattivare la corrente elettrica (questo passaggio è abbastanza semplice, basta abbattere i ragni che infestano la centrale elettrica).

Una volta riattivati i generatori per l’energia elettrica della centrale, possiamo tornare alla sala di controllo della metropolitana di Raccoon City. Qui dovremo impostare il percorso, seguendo la mappa delle stazioni possibili. La combinazione corretta è quella dell’immagine di seguito:

La combinazione in particolare è: FA 02 – RA 03 – SA 02 – FO 01

Le sigle rappresentano le iniziali delle varie stazioni sul percorso. Una volta attivate correttamente verrà data conferma del percorso sul pannello di controllo frontale.

Combinazione casseforti in Resident Evil 2 Remake [Leon 2nd run]

1. Ufficio ovest della Stazione di Polizia, primo piano: sinistra 9, destra 15, sinistra 7

2. Sala d’attesa al secondo piano della Stazione di Polizia: sinistra 6, destra 2, sinistra 11

3. Sala di trattamento delle fogne: sinistra 2, destra 12, sinistra 8

Combinazioni dei lucchetti in Resident Evil 2 Remake [Leon 2nd run]

1. Secondo piano Stazione di Polizia: armadietti spogliatoio delle docce – combinazione CAP

2. Terzo piano Stazione di Polizia: armadietto in fondo al corridoio – combinazione DCM

3. Ufficio Ovest, scrivania di Leon: a sinistra NED e a destra MRG

4. Stanza di Controllo nelle fognature – combinazione SZF

Schema elettrico celle in Resident Evil 2 Remake [Leon 2nd run]

Per attivare lo schema elettrico nelle celle, in Resident Evil 2, anzitutto dobbiamo procurarci i due componenti elettrici. Uno si trova nella Stanza del Generatore e l’altro nella Torre dell’Orologio (dove bisognerà risolvere l’enigma con gli ingranaggi). Una volta trovati i due componenti elettrici possiamo tornare alle celle dove vedremo una situazione del genere:

Muoviamo i singoli componenti in modo da far giungere la corrente allo snodo a destra, lo schema che dovremo ottenere sarà quello seguente:

Combinazione cassetta di sicurezza portatile R.P.D. in Resident Evil 2 Remake [Leon 2nd run]

All’interno della Stazione di Polizia, nella stanza di osservazione, accanto alla stanza degli interrogatori, si trova una cassetta di sicurezza del R.P.D., dentro la quale si trova uno dei pulsanti (chiamato pezzo di ricambio) per la tastiera della stanza degli armamenti.

ATTENZIONE! La combinazione dei tasti potrebbe cambiare, in tal caso sarà sufficiente seguire la stessa logica, segnandosi tutte le associazioni.

Per aprire la cassetta è sufficiente attivare i led in senso antiorario. Le associazioni tra led e tasti sono le seguenti:

Una delle possibili combinazioni è dunque: 1, 7, 3, 2, 4, 8, 5, 6

In sostanza è importante solamente che i led vengano attivati uno dopo l’altro in senso antiorario.

Nella lavanderia del primo piano si trova invece la seconda cassetta di sicurezza portatile, per la quale l’associazione dei tasti è la seguente:

In questo caso una delle possibili combinazioni, sempre in senso antiorario è: 1, 5, 7, 6, 2, 8, 3, 4