[Pytanie]Program logujący się na librusa

Doomall · 26 Października 2012

Siema ,Poszukuje hacka który sam by logował się na librusa(elektroniczny dziennik dla szkół)

Sprzyda mi się to ponieważ w naszym gimnazjum nauczyciel ma dostęp do informacji ile razy każdy uczeń wchodził na librusa ;D Był już chyba taki temat ale jakoś nie moge znaleźć

Z góry dziękuje za pomoc lub jej próbe ;D

Phoenix_PL · 26 Października 2012

Elektroniczny dziennik w jakiej formie? Strona internetowa?

Daj jakiegoś linka do tego...

Doomall · 26 Października 2012

http://dziennik.librus.pl/ Tam sie wpisuje login i hasło i masz dostęp do swoich ocen dosłownie wszystkiego uwag pkt minusowych i dodatnich informacje o sprawdzianach można też się skontaktować z nauczycielami ;D

miejscowy · 26 Października 2012

Jesteś idiotą. Widać jak przeglądałeś. http://www.mpcforum.pl/topic/746414-program-logujacy-sie-do-librusa/

Doomall · 26 Października 2012

Jesteś idiotą. Widać jak przeglądałeś. http://www.mpcforum....sie-do-librusa/

takie teksty to do Mamy -_- Obelgą świadczysz sam o sobie a ja nie mam gwarancji że moje Passy nie są przypadkiem wysyłane do ciebie.

Phoenix_PL · 26 Października 2012

Już paczę i piszę... za pół godziny będziesz miał... może godzinkę...

Potrzeba mi passów do jakiegoś konta, bo nie będzie opcji wylogowania.

Albo dajcie mi nazwę lub ID buttona do wylogowania.

Zrobiłem logowanie, ale nie mam jak sprawdzić czy działa.

Kod:

#include <IE.au3>

AdlibRegister("tipstartup", 50)

$IE = _IECreate("https://dziennik.librus.pl/loguj", 0, 1, 1, 1)
Opt("GuiOnEventMode", 1)

$Form = GUICreate("LIBRUS", 218, 139)
$inlogin = GUICtrlCreateInput("Login", 8, 8, 201, 21)
$inhaslo = GUICtrlCreateInput("Hasło", 8, 40, 201, 21)
$inkeystr = GUICtrlCreateInput("KeyStroke", 8, 72, 201, 21)
$blogin = GUICtrlCreateButton("Zaloguj", 8, 104, 75, 25)
$bwyjdz = GUICtrlCreateButton("Wyjdź", 136, 104, 75, 25)

GUISetOnEvent(-3, "knc")
GUICtrlSetOnEvent($bwyjdz, "knc")
GUICtrlSetOnEvent($blogin, "login")

GUISetState(@SW_SHOW)

Func knc()
_IEQuit($IE)
Exit
EndFunc

Func login()
$loginid = _IEGetObjById($IE, "login")
$passid = _IEGetObjById($IE, "passwd")
$keystrid = _IEGetObjById($IE, "ed_passw1")
$bloginid = _IEGetObjByName($IE, "loguj")

_IEFormElementSetValue($loginid, GUICtrlRead($inlogin))
_IEFormElementSetValue($passid, GUICtrlRead($inhaslo))
_IEFormElementSetValue($keystrid, GUICtrlRead($inkeystr))
_IEAction($bloginid, "click")
EndFunc

Func tipstartup()
ToolTip("Zaczekaj, uruchamiam się...")
EndFunc

AdlibUnRegister("tipstartup")

While 1
Sleep (100)
WEnd

EXE: https://dl.dropbox.com/s/qh518dxvz271egv/librus.exe

Pobrać i sprawdzić czy po wpisaniu passów w GUI (pokazuje się po załadowaniu strony) IE loguje sie na librusa.

miejscowy · 26 Października 2012

@UP trzeba się zalogować przez stronę mobilną, bo na zwykłej nie da rady.

@2UP pozwalam na dekompilację tego, nie używałem żadnych zabezpieczeń. I gwarantuję, że nic nie znajdziesz.

Phoenix_PL · 27 Października 2012

Nawet sam to zrobię, żeby się kolega nie trudził.

Oto kod bez żadnych #include

Opt("GUIOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
$VAR = Ping("www.google.pl", 3000)
If $VAR Then
   Sleep(100)
Else
   MsgBox(16, "BĹ?Ä?d!", "Brak poĹ?Ä?czenia z internetem!")
   Exit
EndIf
Local $UKRYJ = TrayCreateItem("Ukryj")
TrayItemSetOnEvent(-1, "chowanie")
$ODS = TrayCreateItem("")
Local $EXIT = TrayCreateItem("WyjĹ?cie")
TrayItemSetOnEvent(-1, "exi")
Global $SESA = 0
$FORM1 = GUICreate("Librus Auto-Login", 381, 286, 192, 124)
$IE = _IECREATEEMBEDDED()
GUICtrlCreateObj($IE, 5, 111, 372, 170)
_IENAVIGATE($IE, "https://dziennik.librus.pl/mobile")
$INPUT1 = GUICtrlCreateInput("Login", 5, 10, 161, 21)
$INPUT2 = GUICtrlCreateInput("HasĹ?o", 5, 40, 161, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
$BUTTON1 = GUICtrlCreateButton("START!", 176, 8, 121, 57)
GUICtrlSetFont(-1, 17, 800, 0, "MS Sans Serif")
$LABEL1 = GUICtrlCreateLabel("* W tej sesji:", 8, 70, 100, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$LABEL2 = GUICtrlCreateLabel("* Od poczÄ?tku", 176, 72, 120, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$LABEL3 = GUICtrlCreateLabel("* - ile ray siÄ? zalogowano", 8, 88, 120, 17)
$BUTTON2 = GUICtrlCreateButton("STOP!", 304, 8, 73, 57)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$LABEL4 = GUICtrlCreateLabel("by Miejscowy", 309, 89, 67, 17)
GUICtrlSetCursor(-1, 0)
GUISetState(@SW_SHOW)
GUICtrlSetOnEvent($BUTTON1, "logowanie2")
GUICtrlSetOnEvent($BUTTON2, "stop")
GUICtrlSetOnEvent($LABEL4, "epvp")
GUISetOnEvent($GUI_EVENT_CLOSE, "exi")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "chowanie")
GUISetState(@SW_SHOW, $FORM1)
If FileExists(@WorkingDir & "\Data.Librus") Then
   $TEKST_INI = IniRead(@WorkingDir & "\Data.Librus", "Dane logowania", "E-mail", "")
   $CZAS_INI = IniRead(@WorkingDir & "\Data.Librus", "Dane logowania", "HasÄąâ?šo", "")
   $SERWER = IniRead(@WorkingDir & "\Data.Librus", "Dane logowania", "Ile juz", "")
   GUICtrlSetData($INPUT1, $TEKST_INI)
   GUICtrlSetData($INPUT2, $CZAS_INI)
   GUICtrlSetData($LABEL2, "* Od poczÄ?tku:" & $SERWER)
EndIf
Global $START = False
While 1
   Sleep(100)
   If $START Then
       LOGOWANIE()
   EndIf
WEnd

Func LOGOWANIE()
   If Not FileExists(@WorkingDir & "\Data.Librus") Then
       IniWrite(@WorkingDir & "\Data.Librus", "Dane logowania", "E-mail", GUICtrlRead($INPUT1))
       IniWrite(@WorkingDir & "\Data.Librus", "Dane logowania", "HasĹ?o", GUICtrlRead($INPUT2))
       IniWrite(@WorkingDir & "\Data.Librus", "Dane logowania", "Ile juz", "1")
   EndIf
   $ALLA = IniRead(@WorkingDir & "\Data.Librus", "Dane logowania", "Ile juz", "")
   If FileExists(@WorkingDir & "\Data.Librus") Then
       IniWrite(@WorkingDir & "\Data.Librus", "Dane logowania", "E-mail", GUICtrlRead($INPUT1))
       IniWrite(@WorkingDir & "\Data.Librus", "Dane logowania", "HasĹ?o", GUICtrlRead($INPUT2))
       IniWrite(@WorkingDir & "\Data.Librus", "Dane logowania", "Ile juz", $ALLA)
   EndIf
   $SESA = $SESA + 1
   GUICtrlSetData($LABEL1, "* W tej sesji: " & $SESA)
   $ALLAA = $ALLA + 1
   GUICtrlSetData($LABEL2, "* Od poczÄ?tku:" & $ALLAA)
   _IENAVIGATE($IE, "https://dziennik.librus.pl/mobile")
   _IELOADWAIT($IE)
   $FORMULASZ = _IEFORMGETOBJBYNAME($IE, "logowanie")
   $FRAZA = GUICtrlRead($INPUT1)
   $FRAZA2 = GUICtrlRead($INPUT2)
   $LOGIN = _IEFORMELEMENTGETOBJBYNAME($FORMULASZ, "login")
   $HASLO = _IEFORMELEMENTGETOBJBYNAME($FORMULASZ, "passwd")
   _IEFORMELEMENTSETVALUE($LOGIN, $FRAZA)
   _IEFORMELEMENTSETVALUE($HASLO, $FRAZA2)
   $LOG = _IEFORMELEMENTGETOBJBYNAME($FORMULASZ, "loguj")
   _IEACTION($LOG, "click")
   $TIMER = TimerInit()
   $ILE2 = Random(4, 12)
   $ILE = $ILE2 * 1000
   Do
       Sleep(100)
   Until TimerDiff($TIMER) > $ILE
   _IENAVIGATE($IE, "https://dziennik.librus.pl/wyloguj")
EndFunc


Func STOP()
   Global $START = False
EndFunc


Func EXI()
   _IEQUIT($IE)
   Exit
EndFunc


Func LOGOWANIE2()
   Global $START = True
EndFunc


Func CHOWANIE()
   GUISetState(@SW_HIDE, $FORM1)
   TrayItemDelete($UKRYJ)
   TrayItemDelete($EXIT)
   TrayItemDelete($ODS)
   Global $POKAZ = TrayCreateItem("Poka")
   TrayItemSetOnEvent(-1, "pokaz")
   Global $ODS = TrayCreateItem("")
   Global $EXIT = TrayCreateItem("Wyjscie")
   TrayItemSetOnEvent(-1, "exi")
EndFunc


Func POKAZ()
   GUISetState(@SW_SHOW, $FORM1)
   TrayItemDelete($POKAZ)
   TrayItemDelete($EXIT)
   TrayItemDelete($ODS)
   Local $UKRYJ = TrayCreateItem("Ukryj")
   TrayItemSetOnEvent(-1, "chowanie")
   $ODS = TrayCreateItem("")
   Local $EXIT = TrayCreateItem("Wyjscie")
   TrayItemSetOnEvent(-1, "exi")
   GUISetState(@SW_RESTORE, $FORM1)
EndFunc


Func EPVP()
   ShellExecute("http://www.elitepvpers.pl/user-miejscowy")
EndFunc

Nie doszukałem się żadnych keyloggerów ani innego syfu.

Temat można uznać za rozwiązany.

Doomall · 27 Października 2012

Wielkie dzięki oczywiście dałem każdemu LaJki ;D

barwnikk · 6 Listopada 2012

. Kto chce skrypt napisany - uwaga: W Javascript??? Zrobilem iframe, window.location itp. wbijcie na http://junglecraft.jcom.pl/librus.zip , pobieracie i odpalacie librus.html. Pamietajmy - dwa pliki w tym samym karalogu. W przegladarce dopisujemy ?l=TU SWOJ LOGIN&h=TU SWOJE HASLO (w adresie url)

Skanu tu chyba nie warto. Dwa pliki html i to wszystko. Nawet nie ma ajaxu i zewnetrznych skryptow - dziala na localhost, ale i tak wymaga neta do logowania.

Edit: loguj.html uzywamy tak samo. Tylko to dziala jednokrotnie. Po prostu loguje i mamy strone librusa.

sotstocky · 7 Listopada 2012

Odpowiadanie w temacie: [Pytanie]Program logujący się na librusa - MPC Forum - Cheaty, Boty, Bugi, Hacki do gier online mdrxqy blwaxrn tcoksf abercrombie nujty xnqjptgp sac longchamp kjlcsbm gltpf

Zaloguj się

👋 Witaj na MPCForum!

[Pytanie]Program logujący się na librusa

Rekomendowane odpowiedzi

Doomall

Doomall

Phoenix_PL

Phoenix_PL

Doomall

Doomall

miejscowy

miejscowy

Doomall

Doomall

Phoenix_PL

Phoenix_PL

miejscowy

miejscowy

Phoenix_PL

Phoenix_PL

Doomall

Doomall

barwnikk

barwnikk

sotstocky

sotstocky

Zarchiwizowany