Community discussion forum

Skinning (BitBlt Introduction)

This is a comment thread discussing Skinning (BitBlt Introduction)
  • 9 years ago

    This thread is for discussions of Skinning (BitBlt Introduction).

  • Advertisement

    Simply the fastest line-level profiler for .NET ever

    “The low overhead means it has minimal impact on the execution of my program”
    Mark Everest, Development Team Leader, Renault F1 Team Ltd.

    Try out the new ANTS Profiler 4 for yourself. Download your 14-day trial now

  • 4 years ago

    hello friends
    now i am in trouble.plz help me in convert the doc file into html format using vb
    programing code.
    plz help me i wait yours reply

  • 4 years ago

    Be Happy....Baby

  • 3 years ago

    how to encrypt picture files using visual basic so that only certain people who know the password can see the picture

  • 3 years ago


    You can use a simple random XOR shift to do the 'encrypting'... as you probably know XOR of XOR gives original, so you can use the same for encoding/decoding provided the shift key is right. If you supply the file (binary) to this function, then it'll return encoded with the given key.
    If you pass the encoded file, it'll return the original file.


    [courier new]
    Public Function EncodeDecode(Data As String, Key As Long) As String
    On Error Resume Next


    Dim I As Long, X As Single
    Dim CharNum As Integer, RandInteger As Integer
    Dim SingleChar As String * 1
    Dim ReturnData As String


    X = Rnd(-Key)


    For I = 1 To Len(Data)
     CharNum = Asc(Mid$(Data, I, 1))
     RandInteger = Int(256 * Rnd)
     CharNum = CharNum Xor RandInteger
     
     SingleChar = Chr(CharNum)
     ReturnData = ReturnData & SingleChar
    Next I


    EncodeDecode = ReturnData
    End Function
    [/courier new]


    But how do you make a key out of password ? Convert it to a number that vastly varies according to the password...


    [courier new]
    Public Function ConvertPassKey(Key as String) As Long
    Dim I As Integer, Num As Long


    Key = LCase(Key)
    Num = 1
    For I = 1 To Len(Key)
    Num = Num + (I * Asc(Mid(Key, I, 1)))
    Next I


    ConvertPassKey = Num
    End Function
    [/courier new]


    Be VERY, VERY WARY  of the data you pass to the function. A slight shifting of even a single character will ruin the entire decoding process, and you'll get junk data!!!


    I suggest you do multiple "parity" checks before actually give it up for decoding....


    Also, encoding/decoding takes some time... that's why i prefer my tried and tested method "mangle da header!"
    Enjoy !

  • 3 years ago

    there's a sample code in vb.net on this website that changes text to html. maybe you can use it?

  • 2 years ago


     thanks for the great material you posted but unfortunatelly for me
     it all is in VB6. Can you show me a VB.NET example for this problem
     
    thanks

  • 1 year ago

    umm.... how do i fix the obstruction problem? help wanted fom any1

Post a reply

Enter your message below

Sign in or Join us (it's free).