If res.Length<12 Then
Msgbox(res,"Error")
Else
Dim KeyL As List
Dim KeyMap As Map
KeyL = parser.NextArray
If KeyL.Size > 0 Then
For i =0 To KeyL.Size -1
KeyMap = KeyL.Get(i)
ForeignPubKeyString=KeyMap.Get("PubKey")
ForeignPrivKeyString=KeyMap.Get("PrivKey")
Next
End If
Log("Responce: " & Job.GetString)
c.Initialize("RSA/ECB/PKCS1Padding")
ForeignKPG.Initialize("RSA", 2048)
'Convert the Public Key
ForeignPubKeyBytes=su.DecodeBase64(ForeignPubKeyString)
ForeignPubKeyString=Bconv.StringFromBytes(ForeignPubKeyBytes, "UTF8")
Log (ForeignPubKeyString)
ForeignPubKeyString=ForeignPubKeyString.Replace("-----BEGIN PUBLIC KEY-----","")
ForeignPubKeyString=ForeignPubKeyString.Replace("-----END PUBLIC KEY-----","")
Log ("Truncated Pub: " & ForeignPubKeyString)
Log (ForeignPrivKeyString)
'Convert the Private Key
ForeignPrivKeyBytes=su.DecodeBase64(ForeignPrivKeyString)
ForeignPrivKeyString=Bconv.StringFromBytes(ForeignPrivKeyBytes, "UTF8")
Log (ForeignPrivKeyString)
ForeignPrivKeyString=ForeignPrivKeyString.Replace("-----BEGIN PRIVATE KEY-----","")
ForeignPrivKeyString=ForeignPrivKeyString.Replace("-----END PRIVATE KEY-----","")
Log ("Truncated Private: " & ForeignPubKeyString)
ForeignPubKeyBytes=su.DecodeBase64(ForeignPubKeyString)
ForeignKPG.publicKeyFromBytes(ForeignPubKeyBytes)
ForeignPrivKeyBytes=su.DecodeBase64(ForeignPrivKeyString)
ForeignKPG.PrivateKeyFromBytes(ForeignPrivKeyBytes)
MessageBytes = Bconv.StringToBytes(res, "UTF8")
MessageBytesEncrypted = c.encrypt(MessageBytes, ForeignKPG.PublicKey, False)
MessageBytesDecrypted= c.Decrypt(MessageBytesEncrypted,ForeignKPG.PrivateKey, False)
MessageStringDecrypted=Bconv.StringFromBytes(MessageBytesDecrypted,"UTF8")
Log ("Local decrypt: " & MessageStringEncrypted)
'
End If
My PHP Code
[PHP]<?php
$pub = file_get_contents('PublicKey.pem');
$pri = file_get_contents('PrivateKey.pem');
$plain = 'Hello RSA Das ist ein Test der verschlüsselung mit RSA';
openssl_public_encrypt($plain, $encrypted, $pub);
$messEN=base64_encode($encrypted);
Print ($messEN);
?>[/PHP]
Log Encrypted Message
Response from server: VLJPYPHog6ipavze6bJGuZuMHQ4oz/mhUBtzpNcWPy+1ZzXOSK5gGXyDTx7SvnJnQG8JBKR5kNQ81AdMAqC54o6E/NAvuo788AyqOyiAXbr13QNFMoEaJ5hIwa3/F7Bt8e+NFaDTgFV6QbZ6mitlueBGT1Di0GFr78XGnGJGQwGNwqmA8LZ8AlzoH2GamX876+6G5NxUnGfAaSMcX8sA7D7cB0t90pz3Jch4WFlxX7Y4FPK9WI0UgOL1qa8Sis2BWMMt+Bnd9ryV3ez28xgHQn29f6jYbq7LKcgEMrPDNlfdVd1YWDecilxRQ0zeurl5iOPjAx4DA1H/U7OpU/usww==
Length of res: 344
Can someone help me there