SETI@Home

[Ribonix]

Intanto visto che le pagina delle statistiche personali ha ripreso a funzionare e che non sono più in possesso degli eseguibili e i dei sorgenti da me creati all'epoca, "bovinamente" ho buttato giù delle righe in VB5.

Ma ho ancora problemi con il telnet sull'altro indirizzo premettendo che contrariamente a quanto scritto prima non c'è un problema di proxy. Probabilmente ho sbagliato a sniffare. Prometto di farmi meno canne...
Comunque il sasso l'ho tirato e non ho alcuna intenzione di ritirare la mia mano...

Il programma è semplicissimo ed è formato da 1 solo file il FORM1.FRM che utilizza il componente MSWINSCK.OCX:

Codice: Seleziona tutto

Private sDataIn As String
Private sDataBuff As String

Private Sub Form_Load()
  Winsock1.LocalPort = 0
  Winsock1.RemotePort = 0
  Winsock1.RemoteHost = "setiathome2.ssl.berkeley.edu"
  Winsock1.RemotePort = 80
  Winsock1.Connect
  DoEvents
  Do
    If Winsock1.State = sckConnected Then Exit Do
    DoEvents
  Loop
  email = "XXXXXXXXXXXXXXXXXXX" 'qui va inserita la vostra mail d'iscrizione al Seti
  Winsock1.SendData "GET /fcgi-bin/fcgi?email=" & email & "&cmd=user_stats_new HTTP/1.1" & vbCrLf
  Winsock1.SendData "Host: setiathome2.ssl.berkeley.edu" & vbCrLf
  Winsock1.SendData "" & vbCrLf
  End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Winsock1.GetData sDataIn
  sDataBuff = sDataBuff & sDataIn
  If InStr(sDataBuff, "Results Received") Then
    numero = Mid$(sDataBuff, InStr(sDataBuff, "Results Received") + 28)
    n1 = InStr(numero, "</td>")
    numero = Left(numero, n1 - 1)
    Winsock1.Close
    Open "c:\seti.txt" For Output As 1
    Print #1, numero
    Close
    Winsock1.Close
    MsgBox (numero)
    End
  End If
  DoEvents
End Sub


In C:\ comparirà un file di testo, il seti.txt con la quantità di dati inviati finora e contestualmente verrà visualizzata anche una msgbox.

Per farla breve c'è il comando

Codice: Seleziona tutto

C:\> TELNET setiathome2.ssl.berkeley.edu 80

seguito da

Codice: Seleziona tutto

GET /fcgi-bin/fcgi?email=vostroindirizzoemail&cmd=user_stats_new HTTP/1.1
Host: setiathome2.ssl.berkeley.edu

Marooooooooooooooooonnn questo weekend avrò il certificato!!! WOW!!!!

[h23]

ognuno si sceglie il suo tempo e lo inserisce nella linea di comando in modo da ognuno si faccia i suoi test e benchmark per avere seti al massimo, visto che le differenze da portatile a portatile son pesanti

yes doc. ready to test
[e mo che ti sei messo in coppia con ribonix chi vi ferma piu'?? ]

[Ribonix]

h23... bella lì
Se vuoi puoi contribuire anche tu alla nobile causa del Seti...

[h23]

Se vuoi puoi contribuire anche tu alla nobile causa del Seti...

in questo periodo sto un po' incasinato con gli esami, ma appena ne esco vengo a darvi man forte

[Ribonix]

E ALLORA!!!... Come disse Champolion, dopo aver decifrato i primi Geroglifici "Je tiens l’affaire!!!"
CE L'HO FATTA!!!

Da prompt di DOS digitiamo:

Codice: Seleziona tutto

C:\> TELNET 66.28.250.122 80

L'IP 66.28.250.122 corrisponde a shserver2.ssl.berkeley.edu
Nella sessione telnet dobbiamo inviare le seguenti stringhe:

Codice: Seleziona tutto

POST / HTTP/1.0
Pragma: no-cache
Host: shserver2.ssl.berkeley.edu
Cache-Control: no-cache
Content-Type: text/plain

operation=lookup_user_name
user_id=0
user_key=0
major_version=3
minor_version=8
platform=Pentium/Windows
cpu_type=Intel Pentium
system=Windows NT: 5.0
id=0
key0=aaaaaaaa
key1=bbbbbbbb
end_request_header
type=user info
id=0
key=0
email_addr=INDIRIZZO-E-MAIL
name=
url=
country=
postal_code=
show_name=no
show_email=no
venue=0
register_time=       0.00000
last_wu_time=       0.00000
last_result_time=       0.00000
nwus=0
nresults=0
total_cpu=0.000000
params_index=0




NOTE
Copiate il codice così com'è tenendo presente quanto segue:
key0 e key1 li ho settati così come li vedete. Comunque sono codici esadecimali. Io li lascerei così.
INDIRIZZO-E-MAIL è proprio l'indirizzo di posta elettronica con il quale vi siete iscritti al Seti
Tra Content-Type: text/plain e operation=lookup_user_name c'è la sequenza dei caratteri 0d0a0d0a (13-10-13-10)
Dopo operation=lookup_user_name e per tutte le righe che seguono c'è un solo carattere 0a (10)
Alla fine dell'ultima riga params_index=0 c'è la sequenza dei caratteri 0a0a (10-10)

Mi raccomando i caratteri 0a e non il carattere INVIO!!! E' stato il muro contro il quale ho sbattuto la testa tutto oggi pomeriggio

E' possibile, e a me è capitato, che alcune volte il server non risponda. Basta semplicemente riprovare.
Quando il server risponde, dà una serie di dati separati dal carattere 0a.

[Ribonix]

E dirò di più. Il codice si può tranquillamente riadattare al programma in VB che ho postato in questo topic facendo alcune modifiche che non ne stravolgono la struttura.

[BianConiglio]

ok è ora che impari ad utilizzare i socket in C
domani studio...dopo che mi sveglio...alle 2 di pomeriggio !

@h23 faccio pure quel prog, na cazzatina veloce

@ribonix, gran bello sniff (con cosa??) mi studio i socks e si smanetta !!

se thor mi aiuta potremmo fare le statistiche tipo quelle che abbiamo nella firma ! monto un prog C sul mio server e faccio in modo che crei dei txt con i quali ci si interfaccia via php e si crea la firma

FIGOOOOOOOOOO

a domani !

[Ribonix]

Ho usato Ethereal.
Di solito ho una gran dimestichezza con quel programma, ma sono stato così cieco da non vedere la formattazione particolare delle andate a capo al termine di ogni riga. Lo uso per fare certi giochetti in rete assieme a telnet e notepad...

Però, che bei traguardi sul Seti: 5 anni di Seti ed oggi abbiamo raggiunto e superata la soglia dei 5.000.000 di user!!!
Anche se molti non sono sicuramente più attivi, beh... comunque siamo in tantissimissimisssimi!!!!

Curiosità: è la prima volta che vedo il carattere '"@" davanti ad un nick, immagino significhi "messaggio rivolto a"

[pjfry]

Curiosità: è la prima volta che vedo il carattere '"@" davanti ad un nick, immagino significhi "messaggio rivolto a"

esatto

[h23]

ok è ora che impari ad utilizzare i socket in C
domani studio...dopo che mi sveglio...alle 2 di pomeriggio !

messaggio del 3.27... ma che fai la notte?

@h23 faccio pure quel prog, na cazzatina veloce

bueno. aspetto

se thor mi aiuta potremmo fare le statistiche tipo quelle che abbiamo nella firma ! monto un prog C sul mio server e faccio in modo che crei dei txt con i quali ci si interfaccia via php e si crea la firma

quindi la differenza sarebbe che al posto di seti.familie.blabla comparirebbe "powered by BC", giusto?

[BianConiglio]

4.27, lo sai che il forum è un' ora indietro...

mi son appena alzato e son devastatissimo, megafestone
sto cercando delle guide sui socks !!

stasera faccio il programmino smorza seti per il portatile, serà na cagata tipo

Codice: Seleziona tutto

while(1)
{
esegui seti nascosto;
sleep(argomento);
termina seti:
sleep(60000); // un minuto)
}

[BianConiglio]

naturalmente oltre a farei test ti toccherà scrivere la guida e il testo per il sito

[pjfry]

sul mio asus (che però comincia ad avere un'età, poverino ) gli sbalzi di temperatura hanno un ordine di grandezza molto minore di un minuto, se accendo il seti ci mette tipo 10 secondi a partire la ventola! ha senso stopparlo e rilanciarlo ogni 10 secondi? quanto ci mette a cominciare a computare seriamente?

[BianConiglio]

a computare inizia subito non è come UD... direi che posso mettere 2 valori da inserire... il tempo di interruzione e ogni quanto interrompere... cosi ognuno fa quello che vuole... lo fai partire per 5 secondi e lo stoppi per 2..che ne so..a voi fare le prove..

[Ribonix]

Codice: Seleziona tutto

Private sDataIn As String
Private sDataBuff As String

Private Sub Form_Load()
...
...
...
End Sub


Giusto per il gusto di provare ho inserito le mie routine dentro il VBA di Microsoft Excel 2000... funzionano anche lì...
Adesso però sto correggendo il codice: non tiene conto del fatto che a volte il server Seti non risponde.
Questo evento manda in loop il programma che per essere chiuso deve essere terminato brutalmente.

[BianConiglio]

puoi fare un controllo, se il ping fallisce o è troppo alto riprova dopo 15 secondi...

[Ribonix]

x BianConiglio: nel loop posso mettere un contatore che si incrementa e se supera un certo valore, l'azzero, chiudo il socket, esco dal loop, lo riapro per poi rientrarci.

Per quanto riguarda la possibilità di inviare la statistica tramite SMS, ho un account di Tin.it che mi permette di mandare una mail in formato testo di 100-120 caratteri max all'indirizzo tipo 33xxxxxxxx@sms.tin.it che è strettamente collegato al mio numero di cellulare.
E' un indirizzo che utilizzo per ricevere quotidianamente lo status di servizio dei miei server e il risultato di andata a buon fine di alcune procedure di lavoro che ho automatizzato.

Premesso che con le precedenti righe di codice ho creato il file c:\seti.txt ho buttato giù delle altre che leggono il file e lo elaborano in un altro che ho chiamato leggiedinvia.vbs:

Codice: Seleziona tutto

sub leggiedinvia
  Dim fso   
  Dim mymail
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set txtStream = fso.OpenTextFile("c:\seti.txt")
  Do While Not (txtStream.atEndOfStream)
    ReadTextFileContents = ReadTextFileContents & txtStream.ReadLine & vbCrLf
  Loop
  msgbox ReadTextFileContents
  set mymail = createobject("CDONTS.NewMail")
  mymail.from       = "setiserver@dominio.it"
  mymail.to         = "33xxxxxxxx@sms.tin.it"
  mymail.Subject    = "SETI@HOME"
  mymail.BodyFormat = 0
  mymail.mailFormat = 0
  mymail.body       = "Hai elaborato: " & ReadTextFileContents & " w.u."
  mymail.send
end sub

call leggiedinvia

Oggi ho ritestato la procedura ed ho ricevuto l'SMS. Sul display del mio cellulare ho potuto visualizzare una stringa come questa:

Codice: Seleziona tutto

F: <setiserver@dominio.it>, S: SETI@HOME, B: Hai elaborato: 24937 w.u.

LEGENDA: F=from; S=subject; B=body.

Non ho idea se esistono ancora dei siti che permettono di inviare gratuitamente degli SMS. In tal caso, senza andare nell'illegalità, una simile procedura, volendola standardizzare, potrebbe essere ritrascritta utilizzando uno sniffer e una sessione tipo telnet.

Ciauz!

[Ribonix]

sto cercando delle guide sui socks !!

Bravo... cerca, cerca... cerca però di non sbagliare l'unica vocale della parola socks...
Sai, tra una ricerca e l'altra è facile confonderla...

Se posso esserti d'aiuto:
http://java.sun.com/docs/books/tutorial ... g/sockets/
http://www.cs.rpi.edu/courses/sysprog/sockets/sock.html
http://www.scit.wlv.ac.uk/~jphb/comms/sockets.html
http://www.scit.wlv.ac.uk/~jphb/comms/s ... ample.html

Ok?

[h23]

naturalmente oltre a farei test ti toccherà scrivere la guida e il testo per il sito

ma guarda un po' che novita'

@ribonix
non ho capito se l'invio della tua statistica avviene verso un indrizzo email che controlli via cellulare o proprio sul tuo numero di cell (e' l'indrizzo num@sms.tin.it a trarmi in inganno...)

[Ribonix]

Io non controllo alcunchè sul mio cellulare.
Semplicemente mandando un mesaggio di max 140 caratteri a quell'indirizzo, Tin.it manda un SMS al numero di cellulare ad esso associato. Non ci sono filtri nè regole. E un servizio incluso nel mio abbonamento col provider.