Dwa pytanka od Damianka :)

[jogi997]

Siema.

____

Zrobiłem folder a w nim kolejny ale ukryty.

I w tym ukrytym ma być plik tekstowy oraz pewna aplikacja.

Udało mi się to zrobić.

____

 

Ale teraz w kodzie mojego .exe:

Wpisuję do txt np:

"Login:admin"

"Password:Admin1"

I w moim programie trzeba wpisać w odpowiednie pola: Admin oraz Admin1, i jeśli będzie się zgadzało z tym w txt to aplikacja otworzy mi kolejny plik .exe który znajduje się w ukrytym folderze.

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\kuba\Desktop\Pulpit\1.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=C:\Users\kuba\Desktop\Form1.kxf
$Form1 = GUICreate("hehe", 330, 469, 318, 380)
$Pic1 = GUICtrlCreatePic("C:\Users\kuba\Desktop\lhehe.jpg", 0, 0, 348, 484)
GUICtrlSetState(-1, $GUI_DISABLE)
$Login = GUICtrlCreateEdit("", 24, 296, 121, 41, 0)
$Haslo = GUICtrlCreateEdit("", 24, 216, 121, 40, 0)
$Button1 = GUICtrlCreateButton("Login", 24, 360, 121, 41)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
GUICtrlSetState($Button1, $GUI_DISABLE)
$ENABLELog = 0
$ENABLEPass = 0
While 1
 Sleep(100)
 If GUICtrlRead($Login) == "" Then
  $ENABLELog = 0
 Else
  $ENABLELog = 1
 EndIf
 If GUICtrlRead($Haslo) == "" Then
  $ENABLEPass = 0
 Else
  $ENABLEPass = 1
 EndIf
 If $ENABLELog == 1 And $ENABLEPass == 1 Then
  GUICtrlSetState($Button1, $GUI_ENABLE)
 Else
  GUICtrlSetState($Button1, $GUI_DISABLE)
 EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
EndSwitch
WEnd

[GameOverMan]

FileReadLine - odczytuje tekst z pliku, podajesz jeszcze linie, z której tekst ma być odczytany.

StringSplit - podajesz zmienną do której przypisałeś FileReadLine i podajesz jeszcze argument ":" rozdzieli on tekst na dwie części przed ":" i po ":".

Teraz aby użyć zmiennej z hasłem wpisujesz $Zmienna_z_StringSplit[2] - 2 to którą część podzielonego tekstu chcesz odczytać czyli "[1] dla Password, [2] dla Admin1, 0 zwraca ilość tych tablic? Jakoś tak .

 

 

Fuck Yea 1500 postów.

[Fli_PL]

To zabezpieczenie jest słabe

Ukryty folder nic nie znaczy,

Znajdziesz w necie byle babę

Z tych co jak zechce, to folder zobaczy.

[jogi997]

To do czego podałem kod ma polegać na logowaniu do programu

Po wpisaniu poprawnych danych znajdujących się w plik.txt w odpowiednich miejscach, uruchomić ma się plik exe znajdujący się w ukrytym folderze

@up to daj mi jakiś lepszy sposób

[Fli_PL]

No i w ten sposób łatwo ominąć logowanie, bezpośrednio uruchamiając plik z ukrytego folderu

 

Lepsze rozwiązanie? Połączyc program do logowania z programem ostatecznym a hasła zapisac w bazie danych, z którą program będzie się łączył za pomocą internetu.

[Sopelek997]

@up to daj mi jakiś lepszy sposób

taki mam ja pomysł, tak o z dupy- plik exe na końcu twojego + skok na jego entrypoint (nie da rady chyba w autoit)

2. jeśli masz dostęp do kodu tego exeka to zrób żeby działał jedynie wywołany z odpowiednimi parametrami. Poczytaj o tym na googlu

3. bez kodu exeka raczej nie zrobisz nic lepszego

[jogi997]

EDIT//:

Chciałbym aby button 3 dało się wcisnąć dopiero po wpisaniu w pola admin oraz admin1.

Myślałem na różnymi rzeczami i nie mogę wykminić

[woBniaR]

taki mam ja pomysł, tak o z dupy- plik exe na końcu twojego + skok na jego entrypoint (nie da rady chyba w autoit)

Z tym że trzeba go najpierw załadować do pamięci i poustawiać mu importy.

Innym wyjściem jest dodanie go w oddzielnej sekcji zamiast na końcu pliku, wtedy nie trzeba go ładować.

[jogi997]

Chciałbym aby button 1 dało się wcisnąć dopiero po wpisaniu w pola Login oraz Hasło admin oraz admin1.

Nie wiem jak to zrobić ...

[miejscowy]

Łap, dziwiłem się czemu nie działało, a okazało się, że hasło było wyżej, pozwoliłem sobie to zmienić...

 

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\kuba\Desktop\Pulpit\1.ico
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=C:\Users\kuba\Desktop\Form1.kxf
$Form1 = GUICreate("hehe", 330, 469, 318, 380)
$Pic1 = GUICtrlCreatePic("C:\Users\kuba\Desktop\lhehe.jpg", 0, 0, 348, 484)
GUICtrlSetState(-1, $GUI_DISABLE)
$Login = GUICtrlCreateEdit("", 24, 216, 121, 41, 0)
$Haslo = GUICtrlCreateEdit("", 24, 296, 121, 41, 0)
$Button1 = GUICtrlCreateButton("Login", 24, 360, 121, 41)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
GUICtrlSetState($Button1, $GUI_HIDE)
$jest = "False"
While 1
Sleep(100)
If GUICtrlGetState($Button1) = 80 Then
If $jest = "False" Then
GUICtrlSetState($Button1, $GUI_HIDE)
EndIf
EndIf
If GUICtrlGetState($Button1) = 96 Then
If $jest = "True" Then
GUICtrlSetState($Button1, $GUI_SHOW)
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If GUICtrlRead($Login) = "admin" Then
Global $jest = "True"
Else
Global $jest = "False"
EndIf
If $jest = "True" Then
If GUICtrlRead($Haslo) = "admin1" Then
Global $jest = "True"
Else
Global $jest = "False"
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[jogi997]

Jak to nawet nie działa lol...

kod jest posypany..

[miejscowy]

Myszka mi się zacina i zaznaczyć dobrze nawet nie mogę, a widzę jaki z Ciebie programista, że dwóch linijek nie mogłeś dopisać.

 

Btw. kod poprawiony.

[jogi997]

Poprawiłem właśnie zanim napisałeś

Dobra dzięki.

Połowa sukcesu jest

Dalej sam pomyśle

[tapne]

dam ci radę, do kodowania hasła weź to:

 

 

#include <Crypt.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
Global $bAlgorithm = $CALG_SHA1, $iInputEdit = -1, $iOutputEdit = -1
GUICreate("Realtime Hashing", 400, 320)
$iInputEdit = GUICtrlCreateEdit("", 0, 0, 400, 150, $ES_WANTRETURN)
$iOutputEdit = GUICtrlCreateEdit("", 0, 150, 400, 150, $ES_READONLY)
Local $iCombo = GUICtrlCreateCombo("", 0, 300, 100, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "MD2|MD4|MD5|SHA1", "SHA1")
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUISetState(@SW_SHOW)
_Crypt_Startup() ; To optimize performance start the crypt library.
While 1
Switch GUIGetMsg()
 Case $GUI_EVENT_CLOSE
  Exit
 Case $iCombo ; Check when the combobox is selected and retrieve the correct algorithm.
  Switch GUICtrlRead($iCombo) ; Read the combobox selection.
   Case "MD2"
 $bAlgorithm = $CALG_MD2
   Case "MD4"
 $bAlgorithm = $CALG_MD4
   Case "MD5"
 $bAlgorithm = $CALG_MD5
   Case "SHA1"
 $bAlgorithm = $CALG_SHA1
  EndSwitch
  Local $sRead = GUICtrlRead($iInputEdit)
  If StringStripWS($sRead, 8) <> "" Then ; Check there is text available to hash.
   Local $bHash = _Crypt_HashData($sRead, $bAlgorithm) ; Create a hash of the text entered.
   GUICtrlSetData($iOutputEdit, $bHash) ; Set the output box with the hash data.
  EndIf
EndSwitch
WEnd
_Crypt_Shutdown() ; Shutdown the crypt library.
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
#forceref $hWnd, $iMsg, $lParam
Switch _WinAPI_LoWord($wParam)
 Case $iInputEdit
  Switch _WinAPI_HiWord($wParam)
   Case $EN_CHANGE
 Local $bHash = _Crypt_HashData(GUICtrlRead($iInputEdit), $bAlgorithm) ; Create a hash of the text entered.
 GUICtrlSetData($iOutputEdit, $bHash) ; Set the output box with the hash data.
  EndSwitch
EndSwitch
EndFunc   ;==>WM_COMMAND

 

 

a do loginów itp użyj IniWrite i IniRead, wtedy nie bd problemu z odczytywaniem, a co do hasła zrób, .rejestrację że koduje hasło to pliku a potem logowanie że po wpisaniu też koduje i sprawdza czy są takie same : )