Yahoo ID/ETS

[UnuRo]

Un script ce va permite sa va logati cu ETS/ID si in acelasi timp memoreaza datele introduse.

Scriptul nu este foarte complex, nu am avut timp sa fac criptare pe fisier, eventual adaugare pe o baza de date, dar e foarte util.

#NoTrayIcon
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>

Global $COMBO_DATA

$Form1 = GUICreate("Yahoo ID&Ets Database | UNURO |", 393, 103, -1, -1)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Yahoo! Messenger:", 8, 8, 138, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("ETS:", 8, 37, 38, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput("", 152, 8, 233, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$Input2 = GUICtrlCreateInput("", 51, 34, 334, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$Select = GUICtrlCreateCombo("Select ID", 165, 72, 166, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL,$WS_VSCROLL), $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Add Data!", 8, 70, 75, 25, $WS_GROUP, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Delete!", 85, 70, 75, 25, $WS_GROUP, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Run ID", 335, 70, 51, 25, $WS_GROUP, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)

GUISetState(@SW_SHOW)

$FILE = _FileListToArray(@ScriptDir,"*.txt",1)
If IsArray($FILE) Then
For $INDEX = 1 To $FILE[0]
$COMBO_DATA &= StringTrimRight($FILE[$INDEX],4) & "|"
Next
GUICtrlSetData($Select,$COMBO_DATA)
EndIf

While 1
    $nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Select
			If GUICtrlRead($Select) = "Select ID" Then
			GUICtrlSetData($Input1,"")
			GUICtrlSetData($Input2,"")
			Else
			GUICtrlSetData($Input1,GUICtrlRead($Select))
			GUICtrlSetData($Input2,FileRead(GUICtrlRead($Select)&".txt"))
			EndIf
		Case $Button1;Add Data! :Adauga Id & ETS
    If GUICtrlRead($Input1) = "" Then
			MsgBox(16,"Info add data","Yahoo! Messenger ID Invalid !")
    ElseIf GUICtrlRead($Input2) = "" Then
			MsgBox(16,"Info add data","ETS Invalid !")
    Else
	If FileExists(@ScriptDir&"\"&GUICtrlRead($Input1)&".txt") Then
			GUICtrlSetData($Input2,FileRead(GUICtrlRead($Input1)&".txt"))
			MsgBox(16,"Error","ID already exists!")
	Else
			_FileCreate(@ScriptDir&"\"&GUICtrlRead($Input1)&".txt")
            FileWrite(@ScriptDir&"\"&GUICtrlRead($Input1)&".txt",GUICtrlRead($Input2))
            Sleep(100)
			GUICtrlSetData($Select, GUICtrlRead($Input1))
			MsgBox(64,"Info","ID: "&GUICtrlRead($Input1)&@CRLF&"ETS: "&GUICtrlRead($Input2)&@CRLF&"Added successfully !")
			GUICtrlSetData($Input1, "")
			GUICtrlSetData($Input2, "")
    EndIf
    EndIf
		Case $Button3;Run ID :Executa Id si ETS selectat
	If GUICtrlRead($Select) = "Select ID" Then
			MsgBox(16,"Info Run Data","Selection invalid ID!")
    Else

			;Adaugare Id si ETS in registry si executare Yahoo! Messenger
			RegWrite("HKEY_Current_User\Software\Yahoo\pager", "ETS", "Reg_SZ", GUICtrlRead($Input2))
            RegWrite("HKEY_Current_User\Software\Yahoo\pager", "Yahoo! User ID", "Reg_SZ", GUICtrlRead($Input1))
			RegWrite("HKEY_Current_User\Software\Yahoo\pager", "Save Password", "Reg_DWORD", 1)
		    Sleep(100)
			ShellExecute(@ProgramFilesDir&"\Yahoo!\Messenger\YahooMessenger.exe")
	EndIf
		Case $Button2;Delete! :Sterge fisierul cu Id & ETS!
	If GUICtrlRead($Select) = "Select ID" Then
			MsgBox(16,"Info Delete Data","Selection invalid ID!")
	Else

    If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
			$iMsgBoxAnswer = MsgBox(4388,"Question!","Really delete the Id "&GUICtrlRead($Select)&" ?")
    Select
	    Case $iMsgBoxAnswer = 6 ;Yes
			FileDelete(@ScriptDir&"\"&GUICtrlRead($Select)&".txt")
			GUICtrlSetData($Input1, "")
			GUICtrlSetData($Input2, "")
			GUICtrlSetData($Select,"")
			GUICtrlSetData($Select,"Select ID"&"|"&$COMBO_DATA,"Select ID")
			MsgBox(64,"Info!","Id "&GUICtrlRead($Select)&" delete successful !")
		Case $iMsgBoxAnswer = 7 ;No
    EndSelect
    EndIf

	EndSwitch
WEnd

[moneymakerone]

mai exact ce face ?

[UnuRo]

mai exact...

Yahoo! Messenger are anumiti parametrii in registry, parametrii in care poti seta diverse variabile, incepand de la serverul de logare pana la ID si ETS...

Programul este util daca ai un ID si ETS-ul respectivului ID, poti seta mai usor in registry aceste date ca mai departe sa poti intra pe acel id.

[ICEBREAKER101010]

Cautand ceva date despre cum te poti loga pe yahoo mail doar cu ets-ul ,am gasit urmatoarele :

Am vazut ca multi dintre userii altor comunitati de securitate se plang ca numai functioneaza metoda de logare pe baza de ETS la ultima versiune de Yahoo Messenger si am hotarat sa creez acest "tip" pentru a intelege exact pe ce versiuni se mai poate utiliza metoda ETS logger.

1. Trebuie tinut minte ca dupa fiecare log in pe alt id decat cel memorat si apoi relogarea pe id-ul victimei schimba ETS-ul!(asta nu a prea afectat userii in versiunile precedente dar in cea curenta ii va afecta cu siguranta).

2. Logarea cu un ETS din ultima versiune de YM pe o versiune anterioara NU SE PERMITE!

3. Ca sa ne mai putem loga cu un ETS victima trebuie sa aiba minim versiunea 11.5.0.152.

4. ETS-ul din versiunea 11.5.0.192 nu functioneaza pe niciun alt calculator decat cel al victimei.

5. Daca dorim sa folosim ETS-urile, victima trebuie sa aiba ver. 11.5.152(minim) iar noi 11.5.0.192.

Stie careva daca e adevarat ce scrie acolo ?

Se pare ca ETS-ul generat de noile versiuni de yahoo,nu mai functioneaza cu ETS decoderul lui Slick.

Edited October 28, 2012 by ICEBREAKER101010