image
B4XEncryption

Needs the Library B4XEncryption

2022-03-04 12:22:44 by Omar
Original Link Author Link
                                    Sub EncryptText(text As String, password As String) As Byte()
   Dim c As B4XCipher
   Return c.Encrypt(text.GetBytes("utf8"), password)
End Sub

Sub DecryptText(EncryptedData() As Byte, password As String) As String
   Dim c As B4XCipher
   Dim b() As Byte = c.Decrypt(EncryptedData, password)
   Return BytesToString(b, 0, b.Length, "utf8")
End Sub

Dim encryptedData() As Byte = EncryptText("confidential", "123456")
Log(DecryptText(encryptedData, "123456"))
                                

Multiplatform - B4X

TAGS : B4XEncryption,encryption
image
FTP Server implemented with Socket and AsyncStreams

2021-04-28 15:01:05 by Omar
Original Link Author Link
                                    

server.Initialize(Main, "FTPServer")
server.SetPorts(51041, 51042, 51142)
server.AddUser("Test", "test") 'user name and password.
server.BaseDir = File.DirRootExternal
server.Start


                                

Android - B4A Multiplatform - B4X

TAGS : ftp server
62a4941d7937a718c0342804f093e85f.zip62a4941d7937a718c0342804f093e85f.zip
image
FTP Server implemented with Socket and AsyncStreams

files are included

2021-04-28 18:55:34 by Omar
Original Link Author Link
                                    server.Initialize(Main, "FTPServer")
server.SetPorts(51041, 51042, 51142)
server.AddUser("Test", "test") 'user name and password.
server.BaseDir = File.DirRootExternal
server.Start
                                

Android - B4A iOS - B4i Desktop - B4J Multiplatform - B4X

TAGS : ftp server
FTPServer_b4xsnippets.com.b4xlibB4A_FTPServer_b4xsnippets.com.zip
image
Redirect all traffic to HTTPS

use on your .htaccess file

2022-02-16 14:08:46 by Omar
Original Link Author Link
                                    RewriteEngine On
RewriteCond %{HTTPS} off [OR]
RewriteCond %{HTTP_HOST} !^www\.domain\.com$ [NC]
RewriteRule ^(.*)$ https://www.domain.com/$1 [L,R=301]
                                

Linux Other

TAGS : htaccess,ssl,redirect
image
Check if an Email is valid

2022-02-18 05:34:22 by Omar
Original Link Author Link
                                    

Private Sub EmailAddressCheck(email As String) As Boolean   
    Return Regex.IsMatch("^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$",email)
End Sub

HOW TO USE IT


If EmailAddressCheck("test@b4x.de") = True Then
        Log("E-Mail is valid")
        Else
        Log("E-Mail is not valid")
    End If



                                

Multiplatform - B4X

TAGS : email,verify,check
image
Google OAuth2 authorization token

2021-04-17 21:10:50 by Omar
Original Link Author Link
                                    'this code is from the tool that downloads the Google Sheet translation table and prepares it for the IDE.
j.Download2($"https://www.googleapis.com/drive/v3/files/1fAxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/export"$, _
     Array As String("mimeType", "text/csv"))
j.GetRequest.SetHeader("Authorization", "Bearer " & Token)
Wait For (j) JobDone(j As HttpJob)


                                

TAGS : google, oauth2
image
Confirm Dialog

The sample shows how to delete a file, previously shows a dialog with 3 options the "yes" return -1, the rest cancel the dialog

2022-02-10 03:05:05 by Omar
Original Link Author Link
                                    Private Sub swbtnDelete_Click
	Dim confirmDialog As B4XDialog
	confirmDialog.Initialize(Root)
	
	Wait For (confirmDialog.Show("Sure?", "YES", "NO", "CANCEL")) Complete (Result As Int)
	If Result = xui.DialogResponse_Positive Then
		Log(Result)
		File.Delete(xui.DefaultFolder & "privateCABINET" ,listofpics.Get(currentPreviewIndexfile))
		pnlPreview.Visible=False
	End If
	
End Sub
                                

Android - B4A iOS - B4i Desktop - B4J Multiplatform - B4X

TAGS : confirm dialog, confim, dialog
image
Upload files with Webview

2022-02-13 16:53:02 by Omar
Original Link Author Link
                                    Sub ShowFile_Chooser (FilePathCallback As Object, FileChooserParams As Object)
   cc.Initialize("CC")
   cc.Show("*/*", "Choose File")
   Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
   Dim jo As JavaObject = Me
   If Success Then
       Log(FileName)
       File.Copy(Dir, FileName, Starter.Provider.SharedFolder, "TempFile")
       jo.RunMethod("SendResult", Array(Starter.Provider.GetFileUri("TempFile"), FilePathCallback))
   Else
       jo.RunMethod("SendResult", Array(Null, FilePathCallback))
   End If
End Sub
                                

Android - B4A

TAGS : upload,webview
WebViewFileUpload_b4xsnippets.com.zip
image
Get iPhone Model

2022-02-16 18:35:49 by Omar
Original Link Author Link
                                    

Sub GetDeviceModelName As String
    Dim no As NativeObject = Me
    Return no.RunMethod("deviceName", Null).AsString
End Sub

#if OBJC
#import 
- (NSString*) deviceName
{
struct utsname systemInfo;

uname(&systemInfo);

NSString* code = [NSString stringWithCString:systemInfo.machine
encoding:NSUTF8StringEncoding];

static NSDictionary* deviceNamesByCode = nil;

if (!deviceNamesByCode) {

deviceNamesByCode = @{@"i386" :@"Simulator",
@"x86_64" :@"Simulator",
@"iPod1,1" :@"iPod Touch", // (Original)
@"iPod2,1" :@"iPod Touch", // (Second Generation)
@"iPod3,1" :@"iPod Touch", // (Third Generation)
@"iPod4,1" :@"iPod Touch", // (Fourth Generation)
@"iPod7,1" :@"iPod Touch", // (6th Generation)
@"iPhone1,1" :@"iPhone", // (Original)
@"iPhone1,2" :@"iPhone", // (3G)
@"iPhone2,1" :@"iPhone", // (3GS)
@"iPhone3,1" :@"iPhone 4", // (GSM)
@"iPhone3,3" :@"iPhone 4", // (CDMA/Verizon/Sprint)
@"iPhone4,1" :@"iPhone 4S", //
@"iPhone5,1" :@"iPhone 5", // (model A1428, AT&T/Canada)
@"iPhone5,2" :@"iPhone 5", // (model A1429, everything else)
@"iPhone5,3" :@"iPhone 5c", // (model A1456, A1532 | GSM)
@"iPhone5,4" :@"iPhone 5c", // (model A1507, A1516, A1526 (China), A1529 | Global)
@"iPhone6,1" :@"iPhone 5s", // (model A1433, A1533 | GSM)
@"iPhone6,2" :@"iPhone 5s", // (model A1457, A1518, A1528 (China), A1530 | Global)
@"iPhone7,1" :@"iPhone 6 Plus", //
@"iPhone7,2" :@"iPhone 6", //
@"iPhone8,1" :@"iPhone 6S", //
@"iPhone8,2" :@"iPhone 6S Plus", //
@"iPhone8,4" :@"iPhone SE", //
@"iPhone9,1" :@"iPhone 7 (CDMA)", //
@"iPhone9,3" :@"iPhone 7 (GSM)", //
@"iPhone9,2" :@"iPhone 7 Plus (CDMA)", //
@"iPhone9,4" :@"iPhone 7 Plus (GSM)", //
@"iPhone10,1" :@"iPhone 8 (CDMA)", //
@"iPhone10,4" :@"iPhone 8 (GSM)", //
@"iPhone10,2" :@"iPhone 8 Plus (CDMA)", //
@"iPhone10,5" :@"iPhone 8 Plus (GSM)", //
@"iPhone10,3" :@"iPhone X (CDMA)", //
@"iPhone10,6" :@"iPhone X (GSM)", //
@"iPhone11,2" :@"iPhone XS", //
@"iPhone11,4" :@"iPhone XS Max", //
@"iPhone11,6" :@"iPhone XS Max China", //
@"iPhone11,8" :@"iPhone XR", //
@"iPhone12,8" :@"iPhone SE (2nd generation)", //
@"iPhone13,1" :@"iPhone 12 mini", //
@"iPhone13,2" :@"iPhone 12", //
@"iPhone13,3" :@"iPhone 12 Pro", //
@"iPhone13,4" :@"iPhone 12 Pro Max", //

@"iPad1,1" :@"iPad", // (Original)
@"iPad2,1" :@"iPad 2 Wifi", // (model A1395)
@"iPad2,2" :@"iPad 2 GSM", // (model A1396)
@"iPad2,3" :@"iPad 2 3G", // (model A1397)
@"iPad2,4" :@"iPad 2 Wifi", //(model A1395)
@"iPad2,5" :@"iPad Mini Wifi ", // (model A1432)
@"iPad2,6" :@"iPad Mini Wifi + Cellular", // (model A1454)
@"iPad2,7" :@"iPad Mini Wifi + Cellular", // (model A1455)
@"iPad3,1" :@"iPad 3", // (3rd Generation)
@"iPad3,2" :@"iPad 3 Wifi + Cellular", // (model A1403)
@"iPad3,3" :@"iPad 3 Wifi + Cellular", // (model A1430)
@"iPad3,4" :@"iPad 4 Wifi ", // (model A1458)
@"iPad3,5" :@"iPad 4 Wifi + Cellular", // (model A1459)
@"iPad3,6" :@"iPad 4 Wifi + Cellular", // (model A1460)
@"iPad4,1" :@"iPad Air Wifi", // 5th Generation iPad (iPad Air) - Wifi (model A1474)
@"iPad4,2" :@"iPad Air Wifi + Cellular", // (model A1475)
@"iPad4,3" :@"iPad Air Wifi + Cellular", // (model A1476)
@"iPad4,4" :@"iPad Mini 2 Wifi", // (2nd Generation iPad Mini - Wifi)
@"iPad4,5" :@"iPad Mini 2 Wifi + Cellular", // (2nd Generation iPad Mini - Cellular) (model A1490)
@"iPad4,6" :@"iPad Mini 2 Wifi + Cellular", // (2nd Generation iPad Mini - Cellular) (model A1491)
@"iPad4,7" :@"iPad Mini 3 Wifi", // 3rd Generation iPad Mini - Wifi (model A1599)
@"iPad4,8" :@"iPad Mini 3 Wifi + Cellular", // 3rd Generation iPad Mini - Wifi + Cellular (model A1600)
@"iPad4,9" :@"iPad Mini 3 Wifi + Cellular", // 3rd Generation iPad Mini - Wifi + Cellular (model A1601)
@"iPad5,1" :@"iPad Mini 4 Wifi", // 4th Generation iPad Mini - Wifi (model A1538)
@"iPad5,2" :@"iPad Mini 4 Wifi + Cellular", // 4th Generation iPad Mini - Wifi + Cellular (model A1550)
@"iPad5,3" :@"iPad Air 2 Wifi", // 2nd Generation iPad Air - Wifi (model A1566)
@"iPad5,4" :@"iPad Air 2 Wifi + Cellular ", // 4th Generation iPad Mini - Wifi + Cellular (model A1567)
@"iPad6,3" :@"iPad Pro (9.7\")", // iPad Pro 9.7 inches - (model A1673)
@"iPad6,4" :@"iPad Pro (9.7\")", // iPad Pro 9.7 inches - (models A1674 and A1675)
@"iPad6,7" :@"iPad Pro (12.9\")", // iPad Pro 12.9 inches - (model A1584)
@"iPad6,8" :@"iPad Pro (12.9\")", // iPad Pro 12.9 inches - (model A1652)
@"iPad6,11" :@"iPad 5 Wifi", // iPad (5th Generation) - (model A1822)
@"iPad6,12" :@"iPad 5 Wifi + Cellular", // iPad (5th Generation) - (model A1823)
@"iPad7,1" :@"iPad Pro 2 (12.9\") Wifi", // iPad Pro (12.9") 2nd Generation - (model A1670)
@"iPad7,2" :@"iPad Pro 2 (12.9\") Wifi + Cellular", // iPad Pro (12.9") 2nd Generation - (model A1671 - model A1821)
@"iPad7,3" :@"iPad Pro (10.5\") Wifi", // iPad (5th Generation) - (model A1701)
@"iPad7,4" :@"iPad Pro (10.5\") Wifi + Cellular", // iPad (5th Generation) - (model A1709)
@"Watch1,1" :@"Apple Watch 38mm", // Apple Watch 38mm case
@"Watch1,2" :@"Apple Watch 38mm", // Apple Watch 38mm case
@"Watch2,3" :@"Apple Watch Series 2 38mm", // Apple Watch Series 2 38mm case
@"Watch2,4" :@"Apple Watch Series 2 42mm", // Apple Watch Series 2 42mm case
@"Watch2,6" :@"Apple Watch Series 1 38mm", // Apple Watch Series 1 38mm case
@"Watch2,7" :@"Apple Watch Series 1 42mm", // Apple Watch Series 1 42mm case
@"Watch3,1" :@"Apple Watch Series 3 38mm (GPS+Cellular)", // Apple Watch Series 3 38mm case (GPS+Cellular)
@"Watch3,2" :@"Apple Watch Series 3 42mm (GPS+Cellular)", // Apple Watch Series 3 42mm case (GPS+Cellular)
@"Watch3,3" :@"Apple Watch Series 3 38mm (GPS)", // Apple Watch Series 3 38mm case (GPS)
@"Watch3,4" :@"Apple Watch Series 3 42mm (GPS)", // Apple Watch Series 3 42mm case (GPS)
@"Watch4,1" :@"Apple Watch Series 4 40mm (GPS)", // Apple Watch Series 4 40mm case (GPS)
@"Watch4,2" :@"Apple Watch Series 4 44mm (GPS)", // Apple Watch Series 4 44mm case (GPS)
@"Watch4,3" :@"Apple Watch Series 4 40mm (GPS+Cellular)", // Apple Watch Series 4 40mm case (GPS+Cellular)
@"Watch4,4" :@"Apple Watch Series 4 44mm case (GPS+Cellular)" // Apple Watch Series 4 44mm case (GPS+Cellular)
};
}

NSString* deviceName = [deviceNamesByCode objectForKey:code];

if (!deviceName) {
// Not found on database. At least guess main device type from string contents:

if ([code rangeOfString:@"iPod"].location != NSNotFound) {
deviceName = @"iPod Touch";
}
else if([code rangeOfString:@"iPad"].location != NSNotFound) {
deviceName = @"iPad";
}
else if([code rangeOfString:@"iPhone"].location != NSNotFound){
deviceName = @"iPhone";
}
else {
deviceName = @"Unknown";
}
}

return deviceName;
}
#end if


                                

iOS - B4i

TAGS : iphone model, model
image
Play SystemSounds (and Vibration)

add to region attributes : #IgnoreWarnings: 32

2022-02-16 19:08:25 by Omar
Original Link Author Link
                                    

Sub PlaySystemSound(id As Int)
    Dim NativeMe As NativeObject = Me
    NativeMe.RunMethod("play:", Array(id))
End Sub
#If ObjC
#import 
- (void) play: (int) id{
  AudioServicesPlaySystemSound(id);
}
#End If


                                

iOS - B4i

TAGS : system sounds, sound