oh whoops sorry i left that in there. no you don't need to change the location of the pup. i was testing something earlier with a modified pup and must've accidentally saved it
this works:
Code:
'BYPASS FIRMWARE
If BypassFirmware = 1 Then
workspace.Text = strdatas$
If Left(workspace, 2) = "# " Then
On Error Resume Next
Dim str As Variant
Dim btm As Variant
Dim fixit As String
btm = Split(workspace, "/PS3PATCH.PUP;CDN_Timeout=30;")
str = Split(workspace, ";CompatibleSystemSoftwareVersion=")
fixit = Left(str(1), 6)
str(1) = Replace(str(1), fixit, "0.0000")
workspace = str(0) & ";CompatibleSystemSoftwareVersion=" & str(1)
str = Split(workspace, ";SystemSoftwareVersion=")
fixit = Left(str(1), 6)
str(1) = Replace(str(1), fixit, "0.0000")
workspace = str(0) & ";SystemSoftwareVersion=" & str(1)
str = Split(workspace, ";ImageVersion=")
fixit = Left(str(1), 8)
str(1) = Replace(str(1), fixit, "00000000")
workspace = str(0) & ";ImageVersion=" & str(1)
str = Split(workspace, ";IncrementalUpdateVersion=")
fixit = Left(str(1), 17)
str(1) = Replace(str(1), fixit, "00000000-00000000")
workspace = str(0) & ";IncrementalUpdateVersion=" & str(1)
str = Split(workspace, "Dest=")
fixit = Left(str(1), 2)
workspace.Text = Replace(workspace, "Dest=" & fixit & ";", "***")
workspace.Text = Replace(workspace, "Dest=" & fixit, "")
workspace.Text = Replace(workspace, "***", "Dest=" & fixit & ";")
Text3.Text = btm(1)
strdatas$ = workspace.Text & Text3
End If
End If