از عملگر Xor میتوان برای به رمز درآوردن متن استفاده کرد. ویژگی کار این عملگر این است که اگر یک عدد را دوبار متوالی با عددی دیگر Xor کنید، دوباره به همان عدد اولیه خواهید رسید. برای مثال کد اسکی حرف A را که 65 است با عدد 50 Xor میکنیم. حاصل این عمل عدد 115 است. حال اگر این عدد 115 را دوباره با 50 Xor کنیم به عدد 65 میرسیم. در مثال زیر نمونه کدی را که متن یک TextBox با Xor به حالت رمز درمی‏آورد و از آن خارج میکند بررسی میکنیم. 




if ((TextBox.Text != "")) {

   if ((SaveFileDialog.ShowDialog == Windows.Forms.DialogResult.OK)) {

       FileOpen(1, SaveFileDialog.FileName, OpenMode.Output);

       // Encryption codes.

       for (int index = 0; (index 

                   <= (TextBox.TextLength - 1)); index++) {

           eachLetter = TextBox.Text.Substring(index, 1);

           Print(1, Asc(eachLetter), Xor, 369);

       }

   }

}


در حلقه For Next به اندازه طول متن در TextBox یکی یکی حروف آن خوانده میشوند و بعد از استخراج کد اسکی هر یک در عدد 369 Xor میشوند و عدد حاصل در فایل نوشته میشود. کد از رمز خارج کردن فایل در زیر آمده.




if ((OpenFileDialog.ShowDialog == Windows.Forms.DialogResult.OK)) {

   FileOpen(1, OpenFileDialog.FileName, OpenMode.Input);

   // Read encrypted numbers from file, convert with Xor and build the string.

   for (

   ; EOF(1); 

   ) {

       Input(1, encryptedNumber);

       decryptedChr = Chr(encryptedNumber, Xor, 369);

       decryptedChr;

   }

}


در حلقه Do Until تا زمانی که فایل به انتها نرسیده با دستور Input یکی یکی از آن می‏خواند و در متغیری از نوع Short به نام encryptedNumber دخیره میکند. سپس در خط بعد عدد ذخیره شده دوباره با 369 Xor میشود و همزمان به نوع Char تبدیل میشود. در تصویر زیر نمونه رمزگذاری شده نوشته "Hello World, Just for testing" را مشاهده می‏کنید.