Add files via upload

Jigsy1 · Aug 25, 2022 · 2a6b681 · 2a6b681
1 parent 1633c8b
commit 2a6b681
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 8 deletions.
diff --git a/VB6/UUID2.exe b/VB6/UUID2.exe
diff --git a/VB6/UUID2.vbp b/VB6/UUID2.vbp
@@ -12,7 +12,7 @@ HelpContextID="0"
 CompatibleMode="0"
 MajorVer=1
 MinorVer=0
-RevisionVer=2
+RevisionVer=3
 AutoIncrementVer=0
 ServerSupportFiles=0
 VersionCompanyName="Jigsy"

diff --git a/VB6/UUID2.vbw b/VB6/UUID2.vbw
@@ -1 +1 @@
-frmUUID2 = 66, 66, 967, 458, C, 22, 22, 923, 414, C
+frmUUID2 = 66, 66, 967, 458, Z, 22, 22, 923, 414, C
diff --git a/VB6/frmUUID2.frm b/VB6/frmUUID2.frm
@@ -144,12 +144,25 @@ Private Function makeUUID2() As String
   Dim loopNumber As Integer, outString As String, randNumber As Integer
   For loopNumber = 0 To 32 - 1
     If chkRandomness.Value = 1 Then
-      randNumber = Int(Val(1 + Val(Rnd * 2)))
-      If randNumber = 1 Then
-        outString = outString & Mid(baseString, Int(Val(1 + Val(Rnd * Len(baseString)))), 1)
-      Else
-        outString = outString & Mid(StrReverse(baseString), Int(Val(1 + Val(Rnd * Len(StrReverse(baseString))))), 1)
-      End If
+      randNumber = Int(Val(1 + Val(Rnd * 6)))
+      Select Case randNumber
+        Case 1
+          outString = outString & Mid(baseString, Int(Val(1 + Val(Rnd * Len(baseString)))), 1)
+        Case 2
+            outString = outString & Mid(StrReverse(baseString), Int(Val(1 + Val(Rnd * Len(StrReverse(baseString))))), 1)
+        Case 3
+          ' ,-> Former half
+          outString = outString & Mid(Mid(baseString, 1, Val(Len(baseString) / 2)), Int(Val(1 + Val(Rnd * Len(Mid(baseString, 1, Val(Len(baseString) / 2)))))), 1)
+        Case 4
+          ' ,-> Latter half
+          outString = outString & Mid(Mid(baseString, Val(Len(baseString) / 2)), Int(Val(1 + Val(Rnd * Len(Mid(baseString, Val(Len(baseString) / 2)))))), 1)
+        Case 5
+          ' ,-> Former half (Reverse)
+          outString = outString & Mid(Mid(StrReverse(baseString), 1, Val(Len(StrReverse(baseString)) / 2)), Int(Val(1 + Val(Rnd * Len(Mid(StrReverse(baseString), 1, Val(Len(StrReverse(baseString)) / 2)))))), 1)
+        Case 6
+          ' ,-> Latter half (Reverse)
+          outString = outString & Mid(Mid(StrReverse(baseString), Val(Len(StrReverse(baseString)) / 2)), Int(Val(1 + Val(Rnd * Len(Mid(StrReverse(baseString), Val(Len(StrReverse(baseString)) / 2)))))), 1)
+      End Select
     Else
       outString = outString & Mid(baseString, Int(Val(1 + Val(Rnd * Len(baseString)))), 1)
     End If