UnuRo Posted October 3, 2012 Report Posted October 3, 2012 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) ThenFor $INDEX = 1 To $FILE[0]$COMBO_DATA &= StringTrimRight($FILE[$INDEX],4) & "|"NextGUICtrlSetData($Select,$COMBO_DATA)EndIfWhile 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 EndSwitchWEnd Quote
UnuRo Posted October 3, 2012 Author Report Posted October 3, 2012 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. Quote
ICEBREAKER101010 Posted October 28, 2012 Report Posted October 28, 2012 (edited) 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 Quote
