Search Results

No, it has something to do with the PasswordDeriveBytes class. You'll need to implement this class for B4A, be it via the method you found (a link would have been nice) or another method linked below. Once you have something that is equivalent to that class (creating the same key with the same input
link: Thanks to OliverA I found the problem in PasswordDeriveBytes within the C# source. I decide to do not use this methode. Also I found the problem in
link: UTF8.GetString(plainTextBytes, 0, decryptedByteCount); } where keysize=256 I tried the following B4A code to decrypt: Sub Decryptcbc(enc As
link: How can I use AES-256: Key 32 Bytes (256 Bits / 8) within Android? I also tried Keysize of 128 within my C# encryption. I did not succeed in decrypt

hi, what is the equivalent of this encryption code for b4a? string encryptKey = "my key"; Rfc2898DeriveBytes pdb = new Rfc2898DeriveBytes(encryptKey, new byte { 0x49, 0x76, 0x61, 0x6e, 0x20, 0x4d, 0x65, 0x64, 0x76, 0x65, 0x64, 0x65, 0x76 }); byte key = pdb.GetByte

*+++hHUDO723BNU!$hask+*jhds7!2929j$+jP*!hWrT" Dim clearBytes As Byte() = Encoding.Unicode.GetBytes(clearText) Using encryptor As Aes = Aes.Create() Dim pdb As New Rfc2898DeriveBytes(EncryptionKey, New Byte() {&H49, &H76, &H61, &H6E, &H20, &H4D, &H65, &H64, &H76, &H65, &H6

Ok, It's work, the last question is: I need to decrypt too with VB .NET, if this AES Sha-1, but i need the IV for the function of decrypt. Public Function Descifrar_AES() As String Dim contrasena As String = "loco" Dim cad As String = "l0c0" Dim algoritmo As String = "sha1" Dim iteraciones As Inte

Hi Experts / Awesome people, If someone could please help me. I am looking for the equivalent code in B4A for this VB.Net code: Public Function EncryptAES(ByVal stringToEncrypt As String, ByVal sEncryptionKey As String) As String Dim EncryptionKey As String = sEncryptionKey Dim

I am using B4xencrybtion library to encrypt a text then I sent it to a dot net socket server and trying to decrypt it using AES algorithm example found on msdn web site but the dot net found error says that the legnth of byte array is mismatched to the received encrypted bytes . the encryption code

HexFromBytes(mac)) Log("") esp.DeepSleep(5000000,esp.WAKE_RFCAL) 'every 5sec Log("NEVER CONTINUES") End Sub I hope it's of use to others. PS. The DeepSleep function causes a RESET when it wakes up. B4R currently starts again clearing all variables and structures making a Sleep mo
link: As per the inline code in post #7 here Use of ESP8266 WiFi.BSSID in inline code I updated the ESP8266extras library to include the function: GetAPMac

Non penso che esista già una funzione del genere Andrebbe perfezionata, ora non ho tempo, sigh. Dovresti tenere conto del formato di data attuale sul dispositivo (DateTime.DateFormat). Per capirci meglio, cambierei intanto i nomi alle variabili S2 e S3. (Ucase e Mid suppongo che siano tue funzi
link: Sub TraduciData(D As String) As String '--- utilizzo : DtRemota=DateTime.DateParse(TraduciData(DataRemota)) Dim S2 As String Dim S3
link: Ovviamente non conosco l'RFC2822; intanto assicurati, se non l'hai già fatto, che il formato sia sempre ed esclusivamente quello e sempre con giorno/m
link: E' vero. La funzione l'ho scritta da cani, con Left, Mid, Right, Ucase e compagnia bella che sono funzioni mie. Ma la funzione funziona (sic) ma non v

Return End If Select address(0) Case 0x10 Log("Chip = DS18S20") type_s = True Case 0x28 Log("Chip = DS18B20") type_s = False Case 0x22 Log("Chip = DS1822") type_s = False Case Else Log("Device is not a DS18x20 family device."
link: Sub timer1_tick odlicz= odlicz +1 Select Case odlicz Case 1 RunNative("white",Null) Case 2

x: Tbytes): Tbytes; var i: Integer; begin setlength(result, length(s)); for i := 0 to length(s) - 1 do result := s xor x; end; class function TC4D.CalcDigest(const text: Tbytes): Tbytes; var v: THashSHA1; begin v.Reset; v.Update(text); result := v.HashAsBytes; end; class function
link: key: ansistring): ansistring; const blocksize = 64; begin // Definition RFC 2104 if Length(key) > blocksize then key:=CalcDigest(key); key:=RPad(key,

Powered by ColBERT