[Release] SkiddieSpeech Class 05-27-2013, 01:34 AM
#1
This is just a Class that uses the Speech API to emulate a voice that speaks like a true hacker. Could be fun to have in botnets and prank RATs.
You could use it like this. Add a ComboBox and adjust its item values accordingly. Put this in a click event on a button or something like that.
Code:
Public Class SkiddieSpeech
Public Sub Anonymous()
Dim Message As String = "We Are Anónymous. We are legion. We do not forgive. We do not forget. Expect us."
Speak(Message)
End Sub
Public Sub _9GAG()
Dim Message As String = "You've been hacked by 9GAG. Don't bother filing a police-report because we're behind 9001 proxies."
Speak(Message)
End Sub
Public Sub LulzSec()
Dim Message As String = "We have hacked you for the lulz. Sincerely, LulzSec."
Speak(Message)
End Sub
Private Sub Speak(ByVal Message As String)
Dim Speech As Object = CreateObject("sapi.spvoice")
Speech.speak(Message)
End Sub
End Class
You could use it like this. Add a ComboBox and adjust its item values accordingly. Put this in a click event on a button or something like that.
Code:
Dim SP As New SkiddieSpeech
Select Case ComboBox1.SelectedItem
Case "LulzSec"
SP.LulzSec()
Case "9GAG"
SP._9GAG()
Case "Anonymous"
SP.Anonymous()
End Select