Dim Letters As New List(Of Integer)
For i As Integer = 48 To 57 'ASCII Code
Letters.Add(i)
Next
For i As Integer = 97 To 122 'Lower Case
Letters.Add(i)
Next
For i As Integer = 65 To 90 'Upper Case
Letters.Add(i)
Next
For i As Integer = 33 To 42 'Special Chars
Letters.Add(i)
Next
Dim rnd As New Random
Dim SB As New System.Text.StringBuilder
Dim Temp As Integer
For count As Integer = 1 To 15 'Amount
Temp = rnd.Next(0, Letters.Count)
SB.Append(Chr(Letters(Temp)))
Next
Me.Text = SB.ToString

List<int> Letters = new List<int>();
for (int i = 48; i <= 57; i++) //ascii
{
Letters.Add(i);
}
for (int i = 97; i <= 122; i++) //low case
{
Letters.Add(i);
}
for (int i = 65; i <= 90; i++) //up case
{
Letters.Add(i);
}
for (int i = 33; i <= 42; i++) //special char
{
Letters.Add(i);
}
Random randm = new Random();
System.Text.StringBuilder SB = new System.Text.StringBuilder();
int Temp = 0;
for (int count = 1; count <= 15; count++) //amont
{
Temp = randm.Next(0, Letters.Count);
SB.Append(Microsoft.VisualBasic.Strings.Chr(Letters[Temp]));
}
this.Text = SB.ToString();

std::string generateRandomName() {
srand(time(0));
std::string possibleChars = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz1234567890";
std::string newName;
int totalSize = possibleChars.size();
int randomNumOne = rand() % totalSize;
for (int i = 0; i < (randomNumOne / 2); i++) {
int randomNum = rand() % totalSize;
newName += possibleChars[randomNum];
}
return newName;
}
//Spoofs application name.
//To use this function go to Project->Properties->View Application Events.
//Then put this in MyApplication_Startup()
Dim path As String = Assembly.GetExecutingAssembly.Location
Dim rand As New Random(Today.Millisecond)
Dim allowableChars() As Char = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLOMNOPQRSTUVWXYZ0123456789".ToCharArray()
Dim final As String = String.Empty
For i As Integer = 0 To 15 - 1
final += allowableChars(rand.Next(allowableChars.Length - 1))
Next
My.Computer.FileSystem.RenameFile(path, final & ".exe")