A PHP Error was encountered

Severity: 8192

Message: Function create_function() is deprecated

Filename: geshi/geshi.php

Line Number: 4698

Backtrace:

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4698
Function: _error_handler

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4621
Function: _optimize_regexp_list_tokens_to_string

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/Process.php
Line: 45
Function: parse_code

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/models/Pastes.php
Line: 517
Function: syntax

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 693
Function: getPaste

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once

Re: thistest - Stikked
Stikked

Re: thistest

From Soiled Pintail, 10 Years ago, written in VB.NET.
This paste is a reply to thistest from Me - view diff
URL http://geopaste.scratchbook.ch/view/cdaf3a56
Shorturl
Error: Input provided by user is not valid
Embed
Download Paste or View Raw
  1. Public Function DecryptData(
  2.     ByVal encryptedtext As String) As String
  3.  
  4.         ' Convert the encrypted text string to a byte array.
  5.         Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext)
  6.  
  7.         ' Create the stream.
  8.         Dim ms As New System.IO.MemoryStream
  9.         ' Create the decoder to write to the stream.
  10.         Dim decStream As New CryptoStream(ms,
  11.             TripleDes.CreateDecryptor(),
  12.             System.Security.Cryptography.CryptoStreamMode.Write)
  13.  
  14.         ' Use the crypto stream to write the byte array to the stream.
  15.         decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
  16.         decStream.FlushFinalBlock()
  17.  
  18.         ' Convert the plaintext stream to a string.
  19.         Return System.Text.Encoding.Unicode.GetString(ms.ToArray)
  20.     End Function

Reply to "Re: thistest"