Vi segnalo un sito in italiano su winFx davvero molto carino.....potrete  trovare info e numerosi  articoli su questa nuova tecnologia ill sito è

www.winfxitalia.com

Buon divertimento  e buone vacanze a tutti.......

In questo esempio vedremo come ottenere informazioni sulle unità usando vb.net 2005

Innanzi tutto riempiamo una combobox con tutte le unità presenti che vanno dalla “a” alla “z”

Inseriamo nell’evento form_load() il codice seguente.

Prima di tutto però dichiariamo le seguenti variabili

    Private dirInfo As DirectoryInfo

    Private totalSpace As Long

    Private freeSpace As Long

    Private usedSpace As Long

    Private sweep As Single

    Private isSpaceInfoAvailable As Boolean

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.driveReadyStatus.Text = ""

‘Ricava le unità presenti nel sistema

        Dim drives As System.IO.DriveInfo() = System.IO.DriveInfo.GetDrives

        ‘Popola la combobox con le lettere delle unità

        drivesOnPc.Items.AddRange(drives)

    End Sub

Per abbellire il progetto faremo in modo che le informazioni come spazio totale sul disco , spazio usato ecc.. siano rappresentati  graficamente ecco il codice che segue….

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        ' Reattangolo che definirà il  Pie Chart

        Dim rect As Rectangle = New Rectangle(370, 20, 200, 200)

        Dim rect2 As Rectangle = New Rectangle(310, 10, 320, 320)

        ' Rettangoli che verranno usati per la legenda

        Dim freeLegend As Rectangle = New Rectangle(315, 275, 20, 20)

        Dim usedLegend As Rectangle = New Rectangle(315, 300, 20, 20)

        e.Graphics.DrawRectangle(Pens.Black, rect2)

        If isSpaceInfoAvailable = True Then

            ' Disegna Pie Chart

            e.Graphics.FillPie(Brushes.Green, rect, 0, sweep)

            e.Graphics.FillPie(Brushes.Red, rect, sweep, 360 - sweep)

            ' Disegna la legenda

            e.Graphics.FillRectangle(Brushes.Green, freeLegend)

            e.Graphics.FillRectangle(Brushes.Red, usedLegend)

            ' Inserisce il testo

            e.Graphics.DrawString("Capacity:", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(350, 230))

            e.Graphics.DrawString("Used Space:", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(335, 275))

            e.Graphics.DrawString("Free Space:", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(335, 300))

            e.Graphics.DrawString(totalSpace.ToString("N") + " bytes", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(420, 230))

            e.Graphics.DrawString(usedSpace.ToString("N") + " bytes", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(420, 275))

            e.Graphics.DrawString(freeSpace.ToString("N") + " bytes", New Font("Tahoma", 10, FontStyle.Regular), Brushes.Black, New PointF(420, 300))

        End If

    End Sub

Finalmente siamo arrivati alla classe che farà funzionare l’intero progetto

   La seguente classe viene usata per ricavare  informazioni delle unita.

    Useremo la classe System.IO.DriveInfo(LetteraUnita) per acquisire info    sull’unita selezionata.

Private Sub LoadDriveInfo(ByVal driveLetter As String)

        Dim driveInfo As System.IO.DriveInfo

        'Controlla  che l'unita selezionata sia valida

        Try

            driveInfo = New System.IO.DriveInfo(driveLetter)

        Catch ex1 As ArgumentNullException

            MessageBox.Show("L'unita selezionata non è valida./n/r" + ex1.Message, "Unita non valida", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Return

        Catch ex2 As ArgumentException

            MessageBox.Show("The drive letter must be in the range of a-z./n/r" + ex2.Message, "Drive Letter error", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Return

        End Try

        Me.driveName.Text = driveInfo.Name

        'Alcune unita non mostrano tutte le info

        Try

            If driveInfo.VolumeLabel.Length > 0 Then

                Me.driveVolumeLabel.Text = driveInfo.VolumeLabel

            Else

                Me.driveVolumeLabel.Text = "None"

            End If

            Me.driveFormat.Text = driveInfo.DriveFormat

            totalSpace = driveInfo.TotalSize 'Dimensione dell'unita

            freeSpace = driveInfo.TotalFreeSpace 'Spazio non usato

            usedSpace = totalSpace - freeSpace  'Ricava lo spazio usato

            sweep = 360.0F * freeSpace / totalSpace

            isSpaceInfoAvailable = True

        Catch

            Me.driveVolumeLabel.Text = "Not available"

            Me.driveFormat.Text = "Not available"

            isSpaceInfoAvailable = False

        End Try

        Me.driveType.Text = driveInfo.DriveType.ToString

        Me.driveRootDirectory.Text = driveInfo.RootDirectory.ToString

        dirInfo = driveInfo.RootDirectory

        If driveInfo.IsReady = True Then

            Me.driveReadyStatus.Text = "Drive is Ready"

        Else

            Me.driveReadyStatus.Text = "Drive is NOT Ready"

        End If

    End Sub

Le classi seguenti non fanno altro che convertire i bytes in mb e in gb.

  Private Function ConvertBytesToMB(ByVal bytes As Int64) As String

        Dim mb As Long = bytes / 1048576

        Return mb.ToString("N")

    End Function

    Private Function ConvertBytesToGB(ByVal bytes As Int64) As String

        Dim gb As Long = bytes / 1073741824

        Return gb.ToString("N")

    End Function

Eccovi il codice

Imports System

Imports System.Net

Imports System.Security.Principal

Attenzione:Questo testo è solo a scopo informativo e quindi non mi assumo alcuna responsabilità di cosa farete con queste cose che vi illustrerò qui di seguito.

A causa di mancanza di tempo per rifinire la guida essa puo risultare in alcuni punti breve e scarna di contenuto.

Ho deciso di scrivere questo articolo in seguito alle enormi falle di sicurezza che ho  riscontrato n tanti webserver di grandi aziende ……ovviamente non vi rileverò i nomi !!!!Quasi tutti quelli che come  noi,sono programmatori magari anche di una certa fama , pensano molto alla sicurezza del codice ma non hanno idea di cosa è la sicurezza del proprio webserver .Questa guida non ha la finalità di rendere ognuno di voi (“che leggete questo testo”) un vero hacker ma vi dimostra come sia possibile senza avere particolari conoscenze ,di riuscire a bucare un server.

La prima fase dell’attacco consiste nel rintracciare più informazioni possibili sulla vittima prendiamo come esempio il sito www.provahk.net .Una volta conosciuto il target effettuando un semplice whois posso acquisire a volte tantissime info sulla vittima come ad esempio e-mail,telefono,fax ecc..!ma non in tutti i casi e possibile tutto ciò.La parte fondamentale che dobbiamo conoscere per poter attaccare un sito web e il tipo di sistema utilizzato dalla vittima per far ciò ci colleghiamo via telnet sul’host vittima.usando il telnet fornito con xp la stringa per dare il via alla connessione sarà o www.provahk.net 21 (“21 sta per la porta utilizzata dal servizio FTP file transfer protocol”) una volta che la connessione sarà stata avviata il server risponderà con una serie di parole del tipo we01.taonet.it please enter user e password

A questo punto inseriremo il comando syst  seguito da invio per conoscere il sistema utilizzato il server risponderà con Unix:L8 bene ora sappiamo che sistema usa e quindi possiamo continuare,però a volte  può capitare che digitando direttamente syst il server rispondera  dicendoci di doverci autentificare prima non ce problema basterà prima inserire un user a caso quindi digitiamo user prova seguito  da invio poi lui dirà username ok please insert pass in quel momento no inseriremo il comando syst ed ecco che lui ci d’ara  la versione del sistema utilizzato.A volte però i gestori dei servizi web come taonet voglio facilitarci le cose inserendo direttamente la versione del sistema appena ci colleghiamo quello che verrà scritto al momento della connessione avvenuta con successo  sarà  tipo la seguente “ web01.taonet.it system version NT 5.1 “

A quel punto sappiamo  gia che NT 5.1 Sta per windows 2000 quindi grazie ai gestori del webserver che ci hanno risparmiato 30 secondi. Il passo dopo aver capito che sistema monta il server e il capire quali servizi girano effettivamente sul server.Il modo migliore per capire quali servizi girano sul serverweb è effettuare un portscan , una volta aver acquisito quali servizi girano sul server viene la parte più bella e difficile di tutto.Ora sapendo per esempio che sul webserver gira il servizio ftp potremmo organizzarci un attacco bruteforce  , questo tipo di attacco consiste nel provare miliardi di combinazioni possibili per rintracciare     la password dell’admin un buon programma per effettuare questo tipo di attacco e brutus aet2 un password cracker abbastanza buono ,poi però c’è un programma di cui quasi nessuno ne conosce l’esistenza shaPCR un ottimo anzi ottimissino password cracker inzomma un pò una leggenda  della rete creato dal gruppo sha Secret hacker agency .Bando alle ciancie con questo programma è possibile effettuare la prova con ogni possibile combinazione di pw che l’admin può scegliere  per amministrare il server.Questo genere di attacco a volte richiede un sacco di tempo persino mesi dipende  da quanto e complicata la pw.Esiste però  un genere di password logica alla quale il pw cracker nn riesce a generarne una sequenza precisa e quindi  non e possibile craccarla con un semplice password cracker. Questo metodo è facile ma molto lungo.Altri generi di attacchi sono i D.O.S (Denial of services)Questo genere di attacchi consiste nel crascare il webserver sovraccaricando il sistema ,un altro metodo consiste nel ricercare exploit , cioè noi sappiamo per esempio che sul webserver  gira il servizio ftp v 2.4 per esempio quindi basterà ricercare un exploit che corrisponda al servizio di cui siamo a conoscenza per poi magari ottenere un accesso di root senza bisogno di user e pw.

Oltre ai metodi qui elencati cene sono molti altri ,e non molto difficili ma purtroppo non ho tempo per elencarli tutti.

Per maggiori info su  come proteggere ottimamente il proprio  webserver utilizzando un algoritmo a prova dei maggiori password cracker,potete contattarmi a  andy.cp@hotmail.it

Vi auguro buon lavoro:

Andrea Romeo

Namespaces:

using System;

using System.Net;

using System.Security.Principal;

Code:

static void Main(string[] args)

{

           Console.WriteLine(Environment.UserDomainName + @"\" + Environment.UserName);

     WindowsIdentity user = WindowsIdentity.GetCurrent();

      Console.WriteLine(user.Name.ToString());

}

E disponibile un winsock anche per il net lo potete trovare su www.serverdati.altervista.org/oswsck.rar .

Bene prima di cominciare scarichiamo le  Text-to-speech e le SAPI 4.0 da http://www.microsoft.com/msagent/downloads/user.asp .Dopo aver scaricato e installato i componenti apriamo VS. Apriamo un nuovo progetto applicazione per windows con vb.net. Ora aggiungiamo al progetto il componente C:\WINDOWS\speech\Xvoice.dll. Fatto ciò inseriamo nel forma il componente , se tutto è andato bene vedremo sul form una bocca ,ora inseriamo una textbox e un command button,ora  cliccando due volte sul commandbutton inseriamo il codice che segue:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub

Ora possiamo avviare il progetto, inseriamo nella csella di testo una parola  per esem. ciao mondo  e cliccando sul commandbutton il computer riprodurra vocalmente la parola inserita muovendo contemporaneamente l'immagine della bocca.Potremmo anche fargli dire che ore sono con il metodo seguente,

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub

Come vedete utilizzare questo controllo è molto facile e  veloce per lo meno utilizzando vb.

Ciao e alla prossima.

Beta Experience vi invita a partecipare ad un viaggio alla scoperta delle nuove caratteristiche di Visual Studio 2005. Troverete le ultime versioni beta di Visual Studio 2005 Team System e SQL Server 2005, e potrete sperimentare direttamente il grande progetto di training appositamente studiato per farvi sfruttare al meglio le potenzialità di Beta 2. Mantenetevi aggiornati con la newsletter Beta Experience che riporta le opinioni degli esperti, le risorse tecniche e tutte le informazioni sugli eventi locali.

Aderite oggi stesso a Beta Experience, e accompagnate Visual Studio 2005 verso la versione finale…

Indirizzo: http://www.microsoft.com/emea/msdn/betaexperience/itit/order.aspx

Se volete aggiungere un tocco di stile facendo parlare  le vostre app lo potete fare , basta scaricare Text-to-speech engines , SAPI 4.0 runtime support da http://www.microsoft.com/msagent/downloads/user.asp , poi inserite i controllo relativo ( Microsoft DSS) al vostro progetto .net e   voila sbizzarite le vostre fantasie.Io per ora lo provato con vb.net usando vs2003 e funziona benissimo be più tardi lo proverò con c# poi vi faccio sapere. 

Codice da inserire nel form :

Public Class frmMain

Inherits System.Windows.Forms.Form

#Region " Codice generato da Progettazione Windows Form "

Public Sub New()

MyBase.New()

'Chiamata richiesta da Progettazione Windows Form.

'Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent()

End Sub

'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

End If

End If

MyBase.Dispose(disposing)

End Sub

'Richiesto da Progettazione Windows Form

Private components As System.ComponentModel.IContainer.

Friend WithEvents lblCodFisc As System.Windows.Forms.Label

Private Sub InitializeComponent()

Me.lblCodFisc = New System.Windows.Forms.Label()

Me.SuspendLayout()

'

'lblCodFisc

'

Me.lblCodFisc.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D

Me.lblCodFisc.Font = New System.Drawing.Font("Courier New", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.lblCodFisc.Location = New System.Drawing.Point(8, 8)

Me.lblCodFisc.Name = "lblCodFisc"

Me.lblCodFisc.Size = New System.Drawing.Size(288, 40)

Me.lblCodFisc.TabIndex = 0

Me.lblCodFisc.Text = "@@@@@@@@@@@@@@@@"

Me.lblCodFisc.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

'

'frmMain

'

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(300, 54)

Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblCodFisc})

Me.Name = "frmMain"

Me.Text = "Form1"

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim ambiente As String

If Trim(ambiente) = "" Then

Else

If Microsoft.VisualBasic.Left(ambiente, 7) Like "/Verify" Then

If mdlFiscali.VerificaCodiceFiscale(Trim(ambiente)) = True Then

Else

End If

Else

End If

End If

End Sub

End Class

Codice da inserire nella classe:  mdlFiscali.vb

Per il codice completo : www.serverdati.altervista.org/codfisc.rar in caso problemi con il collegamento trexhk@hotmail.com

 Mono ,finalmente è possibile programmare in c#.net  anche in ambiente linux

Be molti di voi penseranno "ma perchè dovrei interessarmi a Mono se per windows c'è gia il .net framework???",be perchè Mono e multipiattaforma, cioè un applicazione compilata con mono può essere eseguita sia  su ambienti linux che Windows in cui esso sia installato

Parte 1:Installazioni di Mono in ambienti LINUX

 Uno dei modi che vi consiglio e scaricare in package ufficiali.Gli utenti di sistemi basati su RPM-based quindi Red Hat suse ecc… possono scaricare gli rpm da http://www.mono-project.com/Downloads be se però non riuscite a trovare il package per la vostra distribuzione di linux  vi consiglio di installarlo direttamente dai sorgenti.

Parte 1:Installazioni di Mono in ambienti WINDOWS

In ambienti windows l’installazione è molto più semplice basta portarci sull’url indicata cioè

http://www.mono-project.com/Downloads e scaricare l’installer per windows. L’installazione  e

semplice ciccando su di esso lo si installerà  per default in c:\programmi\Mono-VXX

VXX sta per la versione di Mono.Nella cartella bin e quindi in c:\programmi\Mono-VXX\bin si trova un file batch  per wrappare gli eseguibili.

Nel mio prossimo articolo spiegherò come realizzare applicazioni usando mono