German Text Verschlüsselung

[Wolli013]

Hallo Freunde,
kann mir jemand einen PHP Code nenne, wo ich einen String verschlüsseln kann und ihn dann in B4A/B4I entschlüsseln kann?
Hier mein Code den ich dann in B4a/B4I nutze.

    Dim Su As StringUtils
    
    Dim Crypt() As Byte         = EncryptText("confidential", "12345")
    Dim TxtEnCrypt As String    = Su.EncodeBase64(Crypt)
    Log(TxtEnCrypt) 'Verschlüsselt
 
    Dim BtCrypt() As Byte       = Su.DecodeBase64(TxtEnCrypt)
    Dim TxtDeCrypt As String    = DecryptText(BtCrypt, "12345")

    Log(TxtDeCrypt) 'Entschlüsselt