Please try below code:-
Private Sub WriteObfuscatedStream(ByVal resourceName As String, ByVal
stream As Stream, ByVal resource As String)
Dim bufSize As Integer = 4096
Dim guidByteSize As Integer = 16
Dim obfuscatedByte As Integer = 32
Dim startPos As Integer =
(resourceName.LastIndexOf(Microsoft.VisualBasic.ChrW(47)) + 1)
Dim length As Integer =
(resourceName.LastIndexOf(Microsoft.VisualBasic.ChrW(46)) - startPos)
resourceName = resourceName.Substring(startPos, length)
Dim guid As Guid = New Guid(resourceName)
Dim guidString As String = guid.ToString("N")
Dim guidBytes() As Byte = New Byte((guidByteSize) - 1) {}
Dim i As Integer = 0
Do While (i < guidBytes.Length)
guidBytes(i) = Convert.ToByte(guidString.Substring((i * 2), 2),
16)
i = (i + 1)
Loop
Dim filestream As FileStream = New
FileStream(resource, FileMode.Open)
Dim buf() As Byte = New Byte((obfuscatedByte) - 1) {}
filestream.Read(buf, 0, obfuscatedByte)
Dim i As Integer = 0
Do While (i < obfuscatedByte)
Dim guidBytesPos As Integer = (guidBytes.Length _
- ((i Mod guidBytes.Length) _
- 1))
guidBytes(guidBytesPos)
i = (i + 1)
Loop
stream.Write(buf, 0, obfuscatedByte)
buf = New Byte((bufSize) - 1) {}
Dim bytesRead As Integer = 0
While
End While
0
stream.Write(buf, 0, bytesRead)
End Sub
------------------------------
On Wed, Jul 18, 2012 at 5:40 PM, Jeff Steinkamp <[email protected]>wrote:
> change the ByRef in the parameter list to ByVal and you should be good
> to go.
>
> On 07/17/2012 08:13 AM, Rene Malingre wrote:
>
> Hello all. Please be nice, I am trying to learn VB.NET <http://vb.net/>.
> I do not know c# at all.
>
> I wish to convert a routine from c# to vb.net. I think I am messing up
> the use of byte data type. Can someone please tell me if I have gone wrong?
>
> This is sample code from Microsoft; I am trying to write a program that
> generates an XPS file, and I am ending up with zero length resources, and I
> think it is from this routine.
>
> Thanks so much.
>
>
> *C# routine:*
> private void WriteObfuscatedStream(
> string resourceName, Stream stream, string resource)
> {
> int bufSize = 0x1000;
> int guidByteSize = 16;
> int obfuscatedByte = 32;
>
> // Get the GUID byte from the resource name. Typical Font name:
> // /Resources/Fonts/xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx.ODTTF
> int startPos = resourceName.LastIndexOf('/') + 1;
> int length = resourceName.LastIndexOf('.') - startPos;
> resourceName = resourceName.Substring(startPos, length);
>
> Guid guid = new Guid(resourceName);
>
> string guidString = guid.ToString("N");
>
> // Parsing the guid string and coverted into byte value
> byte[] guidBytes = new byte[guidByteSize];
> for (int i = 0; i < guidBytes.Length; i++)
> {
> guidBytes[i] = Convert.ToByte(guidString.Substring(i * 2, 2),
> 16);
> }
>
> using (FileStream filestream = new FileStream(resource,
> FileMode.Open))
> {
> // XOR the first 32 bytes of the source
> // resource stream with GUID byte.
> byte[] buf = new byte[obfuscatedByte];
> filestream.Read(buf, 0, obfuscatedByte);
>
> for (int i = 0; i < obfuscatedByte; i++)
> {
> int guidBytesPos = guidBytes.Length - (i %
> guidBytes.Length) - 1;
> buf[i] ^= guidBytes[guidBytesPos];
> }
> stream.Write(buf, 0, obfuscatedByte);
>
> // copy remaining stream from source without obfuscation
> buf = new byte[bufSize];
>
> int bytesRead = 0;
> while ((bytesRead = filestream.Read(buf, 0, bufSize)) > 0)
> {
> stream.Write(buf, 0, bytesRead);
> }
> }
> }// end:WriteObfuscatedStream()
>
> }// end:class XpsCreate
>
> My attempt at VB.NET <http://vb.net/>
> ' ------------------------- WriteObfuscatedStream
> ------------------------
> Private Sub WriteObfuscatedStream(ByRef resourceName As String, ByRef
> stream As Stream, ByRef resource As String)
>
> Const bufSize As Integer = 4096
> Dim guidByteSize As Integer = 16
> Dim obfuscatedByte As Integer = 32
>
> ' Get the GUID byte from the resource name. Typical Font name:
> ' /Resources/Fonts/xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx.ODTTF
> Dim startPos As Integer = resourceName.LastIndexOf("/") + 1
> Dim length As Integer = resourceName.LastIndexOf(".") - startPos
> resourceName = resourceName.Substring(startPos, length)
>
> Dim guid As Guid = New Guid(resourceName)
>
> Dim guidString As String = guid.ToString("N")
>
> ' Parsing the guid string and coverted into byte value
> Dim guidBytes(0 To guidByteSize - 1) As Byte
> Dim i As Integer
>
> For i = 0 To guidBytes.Length - 1
> guidBytes(i) = Convert.ToByte(guidString.Substring(i * 2, 2),
> 16)
> Next
> Dim filestream As FileStream = New FileStream(resource,
> FileMode.Open)
> ' XOR the first 32 bytes of the source
> ' resource stream with GUID byte.
> Dim buf(0 To obfuscatedByte - 1) As Byte
> filestream.Read(buf, 0, obfuscatedByte)
> Dim guidBytesPos As Integer
>
> For i = 0 To obfuscatedByte - 1
> guidBytesPos = guidBytes.Length - (i Mod guidBytes.Length) - 1
> buf(i) = buf(i) Xor guidBytes(guidBytesPos)
> Next
>
> stream.Write(buf, 0, obfuscatedByte)
>
> ' copy remaining stream from source without obfuscation
> ReDim buf(0 To bufSize - 1)
>
> Dim bytesRead As Integer = 0
> While ((bytesRead = filestream.Read(buf, 0, bufSize)) > 0)
> stream.Write(buf, 0, bytesRead)
> End While
> filestream.Close()
>
> End Sub ':WriteObfuscatedStream()
>
> --
> You received this message because you are subscribed to the Google
> Groups "DotNetDevelopment, VB.NET <http://vb.net/>, C# .NET,
> ADO.NET<http://ado.net/>,
> ASP.NET <http://asp.net/>, XML, XML
> Web Services,.NET Remoting" group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en
> or visit the group website at http://megasolutions.net
>
>
>
> --
> Jeff K. Steinkamp (N7YG)
> Tucson, AZ
> Scud Missle Coordinates
> N32.229 W110.875
>
> --
> You received this message because you are subscribed to the Google
> Groups "DotNetDevelopment, VB.NET <http://vb.net/>, C# .NET,
> ADO.NET<http://ado.net/>,
> ASP.NET <http://asp.net/>, XML, XML
> Web Services,.NET Remoting" group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en
> or visit the group website at http://megasolutions.net
>
--
--Thanks & Regards :
Anuj Sharma
--
You received this message because you are subscribed to the Google
Groups "DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML
Web Services,.NET Remoting" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en
or visit the group website at http://megasolutions.net
