Proxyeinstellungen

# February 15, 2011 - 21:51 by
Last Update: 26.1.2012 - 0:45

Heute war ich produktiv :-)

Anbei ein Tool womit ihr euren Proxy bequem einstellen könnt.

@echo off
:start
cls
echo.
echo  Proxyeinstellungen
echo ~~~~~~~~~~~~~~~~~~~~~
echo Proxy aktivieren:   1
echo Proxy deaktivieren: 2
echo Proxy Status:       3
echo Help:               4
echo Programm beenden:   5
echo.
set /p menue="Bitte Aktionsnummer eingeben: "
if "%menue%" == "1" goto activate
if "%menue%" == "2" goto deactivate
if "%menue%" == "3" goto show
if "%menue%" == "4" goto help
if "%menue%" == "5" exit
goto start

:help
cls
echo.
echo Geschrieben von: Jens Willmer (develop[at]jwillmer.de)
echo.
echo Falls das Programm auf Windows 7 nicht funktioniert versuchen
echo Sie bitte die Eingabeaufforderung mit Administratorrechten
echo zu starten.
echo.
pause
goto start

:activate
cls
echo.
set /p proxy="Bitte Proxyname eingeben: "
if "%proxy%" == "" goto activate

:port
cls
echo.
set /p port="Bitte Port eingeben: "
if "%port%" == "" goto port
set #=%port%
set length=0

:loop
if defined # (set #=%#:~1%&set /A length += 1&goto loop)
if %length% GTR 5 goto error
cls
echo.
netsh winhttp set proxy %proxy%:%port%
echo.
pause
goto start

:error
cls
echo.
echo Port ist zu lang, bitte kleineren Port eingeben.
echo.
pause
goto port

:deactivate
netsh winhttp reset proxy
cls
echo.
echo Proxy wurde deaktiviert!
echo.
pause
goto start

:show
cls
echo.
netsh winhttp show proxy
echo.
pause
goto start

WLAN Access Point

# by
Last Update: 26.1.2012 - 0:44

Windows 7 besitzt von Haus aus einen virtuellen Wifi-Netzwerkadapter mit welchem es möglich ist seinen Rechner in einen Access Point zu verwandeln. Damit das komfortabel von statten gehen kann habe ich euch ein kleines Kommandozeilen-Programm geschrieben.

Wichtig: Nach der Konfiguration in den Einstellungen auf den Lanadapter klicken welcher die Verbindung bereitstellen soll und in den Einstellungen unter Freigabe die eingerichtete Drahtlosverbindung zur gemeinsamen Nutzung auswählen. Und immer daran denken die CMD mit maximalen Rechten starten ;-)

Have Fun ;–)

:start
@echo off
cls
echo.
echo   WLAN Access Point
echo ~~~~~~~~~~~~~~~~~~~~~
echo WLAN aktivieren:    1
echo WLAN deaktivieren:  2
echo WLAN konfigurieren: 3
echo Help:               4
echo Programm beenden:   5
echo.
set /p menue="Bitte Aktionsnummer eingeben: "
if "%menue%" == "1" goto activate
if "%menue%" == "2" goto deactivate
if "%menue%" == "3" goto config
if "%menue%" == "4" goto help
if "%menue%" == "5" exit
goto start

:help
cls
echo.
echo Geschrieben von: Jens Willmer (develop[at]jwillmer.de)
echo.
echo Falls das Programm auf Windows 7 nicht funktioniert versuchen
echo Sie bitte die Eingabeaufforderung mit Administratorrechten
echo zu starten.
echo.
pause
goto start

:config
cls
echo.
set /p pw="Bitte WLAN-Passwort eingeben: "
if "%pw%" == "" goto exceptPW
goto setSSID

:exceptPW
cls
echo.
echo Das WLAN wird nicht durch ein Passwort geschuetzt!
echo.
echo Passworteingabe wiederholen: 1
echo Ohne Passwort fortsetzen:    2
echo Zurueck zum Menue:           3
echo Programm beenden:            4
echo.
set /p exceptPW="Bitte Aktionsnummer eingeben: "
if "%exceptPW%" == "1" goto config
if "%exceptPW%" == "2" goto setSSID
if "%exceptPW%" == "3" goto start
if "%exceptPW%" == "4" exit
goto exceptPW

:setSSID
echo.
set /p ssid="Bitte SSID eingeben: "
if "%ssid%" == "" goto setSSID
if "%pw%" == "" goto openWlan
goto secureWlan

:openWlan
netsh wlan set hostednetwork key= keyUsage=persistent ssid=%ssid%
cls
echo.
echo Der WLAN Access Point mit der SSID: %ssid% wurde eingerichtet.
echo.
pause
goto start

:secureWlan
netsh wlan set hostednetwork key=%pw% keyUsage=persistent ssid=%ssid%
cls
echo.
echo Der WLAN Access Point mit der SSID: %ssid% wurde eingerichtet.
echo.
pause
goto start

:activate
cls
echo.
netsh wlan start hostednetwork
echo.
echo Um die Internetverbindung eines anderen Netzwerkadapters
echo zu verwenden muss diese in den Einstellungen des Adapters
echo fuer unseren Netzwerkadapter freigegeben werden!
echo.
pause
goto start

:deactivate
cls
echo.
netsh wlan stop hostednetwork
echo.
pause
goto start

Domainsuche

# February 8, 2011 - 18:57 by
Last Update: 7.12.2011 - 20:19

Hi,

ich bin gerade auf der suche nach einer neuen Domain. Sie sollte kürzer als die alte sein und am besten sollte der Name mit “de” enden. Also zum Beispiel: schubla.de

Da ich faul bin habe ich mir ein kleines Script in C# geschrieben das mir Worterlisten einliest und sie auf meine Vorlieben untersucht. Dieses kleine Script möchte ich hier mit euch teilen ;-)

            //Ordnerpfad
            string path = @"C:\Users\me\Desktop\wordlists\";

            string[] filePaths = Directory.GetFiles(path);
            List<string> myList = new List<string>();

            //Alle Wortlisten in eine Liste packen.
            foreach (string expPath in filePaths)
                myList.AddRange(System.IO.File.ReadAllLines(expPath));

            //Duplikate entfernen
            var hash = new HashSet<string>(myList, StringComparer.OrdinalIgnoreCase);

            //Eigentliche filterung/sortierung
            var filtered = from item in hash.ToArray()
                           where item.Count() > 5 &&       //länger als 5
                                 item.Count() < 9 &&       //kürzer als 8
                                 item.EndsWith("de")       //de am schluss
                           orderby item ascending          //sortieren nach name
                           orderby item.Count() ascending  //sortieren nach länge
                           select item;

            //Gefiltert und sortierte Liste in Datei schreiben
            using (StreamWriter file = new StreamWriter(string.Concat(path, "Ergebnis.txt")))
                foreach (string line in filtered)
                    file.WriteLine(line);

Da mich gerade einige danach gefragt haben, hier meine zwei Wortlisten. Habe sie selbst aus dem Netz, habe allerdings nicht lange gesucht – gibt bestimmt auch bessere/umfangreichere :-)

English Wordlist
English Wordlist
english.txt
3.6 KiB
102 Downloads
Details...
German Wordlist
German Wordlist
german.txt
2.0 MiB
1577 Downloads
Details...

Kill-LanDesk

# November 4, 2010 - 9:17 by
Last Update: 7.12.2011 - 20:40

Bat-Datei welche LanDesk beendet wenn sich der Rechner im Firmennetz befindet.  Einfach in den Autostart verschieben. Der Platzhalter: “InternErreichbarerFIRMENSERVER” muss in diesem Script noch angepasst werden.

@echo off

ping -n 1 InternEreichbarerFIRMENSERVER
if errorlevel 1 goto ende

cls
TASKKILL /F /FI "IMAGENAME eq ScanningProcess.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq SoftMon.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq AVService.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq pds.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq collector.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq issuser.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq LocalSch.EXE" /IM *
TASKKILL /F /FI "IMAGENAME eq rcgui.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq residentAgent.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq tmcsvc.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq ldav.exe" /IM *
TASKKILL /F /FI "IMAGENAME eq policy.client.invoker.exe" /IM *
goto ende2

:ende
cls
echo -
echo Sie befinden sich nicht im Firmennetz!
echo LANDesk wurde NICHT beendet.
echo -
goto end

:ende2
echo -
echo Sie befinden sich im Firmennetz.
echo LANDesk wurde beendet.
echo -

:end
pause