using System;
using System.Collections.Generic;
using System.Text;

namespace CombinacionNumerica
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Title = "Combinacion Numerica V0.1";

            string Numeros = "01-56-10-28-12-54-68-89-87-85-97-41-11";
            int separacion = 8;
            Console.WriteLine("Ingresa los numeros que deseas sean combinados ( separados por - ) :\n");
            Numeros = Console.ReadLine();
            Console.WriteLine("\nIngresa en cuantos numeros deseas que esten separados (Ejemplo: :\n");
            separacion = int.Parse( Console.ReadLine() );
            Console.WriteLine("\n\nCombinaciones: \n\n");
            Combinar(Numeros, separacion);
            Console.Read();
        }

        static void Combinar(string nums, int sep)
        {
            string [] numeros = nums.Split('-');
            for (int i = 0; i < numeros.Length; i++ )
            {
                for (int x = 0; x < sep; x++)
                {
                    int j = x + i;
                    if (j >= numeros.Length)
                        j -= numeros.Length;
                    if(x == (sep-1))
                        Console.Write(numeros[j]);
                    else
                        Console.Write(numeros[j] + "-");
                }
                Console.WriteLine("\n");
            }
        }
    }
}

--リミット·リバース
function c27551.initial_effect(c)
    --Activate
    local e1=Effect.CreateEffect(c)
    e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
    e1:SetType(EFFECT_TYPE_ACTIVATE)
    e1:SetCode(EVENT_FREE_CHAIN)
    e1:SetHintTiming(0,TIMING_END_PHASE+TIMING_ATTACK)
    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
    e1:SetTarget(c27551.target)
    e1:SetOperation(c27551.operation)
    c:RegisterEffect(e1)
    --Destroy
    local e2=Effect.CreateEffect(c)
    e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
    e2:SetCode(EVENT_LEAVE_FIELD)
    e2:SetOperation(c27551.desop)
    c:RegisterEffect(e2)
    --Destroy2
    local e3=Effect.CreateEffect(c)
    e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
    e3:SetRange(LOCATION_SZONE)
    e3:SetCode(EVENT_LEAVE_FIELD)
    e3:SetCondition(c27551.descon2)
    e3:SetOperation(c27551.desop2)
    c:RegisterEffect(e3)
    --Destroy3
    local e4=Effect.CreateEffect(c)
    e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
    e4:SetRange(LOCATION_SZONE)
    e4:SetCode(EVENT_CHANGE_POS)
    e4:SetCondition(c27551.descon3)
    e4:SetOperation(c27551.desop3)
    c:RegisterEffect(e4)
end
function c27551.filter(c,e,tp)
    return c:IsAttackBelow(1000) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c27551.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
    if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c27551.filter(chkc,e,tp) end
    if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
        and Duel.IsExistingTarget(c27551.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
    local g=Duel.SelectTarget(tp,c27551.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c27551.operation(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=Duel.GetFirstTarget()
    if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
        if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end
        c:SetCardTarget(tc)
    end
end
function c27551.desop(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetHandler():GetFirstCardTarget()
    if tc and tc:IsLocation(LOCATION_MZONE) then
        Duel.Destroy(tc,REASON_EFFECT)
    end
end
function c27551.descon2(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetHandler():GetFirstCardTarget()
    return tc and eg:IsContains(tc) and tc:IsReason(REASON_DESTROY)
end
function c27551.desop2(e,tp,eg,ep,ev,re,r,rp)
    Duel.Destroy(e:GetHandler(),REASON_EFFECT)
end
function c27551.descon3(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetHandler():GetFirstCardTarget()
    return tc and eg:IsContains(tc) and tc:IsDefencePos()
end
function c27551.desop3(e,tp,eg,ep,ev,re,r,rp)
    local c=e:GetHandler()
    local tc=c:GetFirstCardTarget()
    local g=Group.FromCards(tc,c)
    Duel.Destroy(g,REASON_EFFECT)
end

#define _WIN32_DCOM
#include <iostream>
using namespace std;
#include <comdef.h>
#include <Wbemidl.h>
#include <comutil.h>
#include <fstream>
char *H;

# pragma comment(lib, "wbemuuid.lib")

char *ToChar(string msg)
{
    char *frase = new char[msg.length()+1];
    strcpy(frase,msg.c_str());
    return frase;
}

string ToString(char *msg)
{
    return (string(msg));
}

char* GetHWID()
{
    HRESULT hres;

    hres =  CoInitializeEx(0, COINIT_MULTITHREADED); 
    if (FAILED(hres))
    {
        ExitProcess(0);
    }

    hres =  CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL);

                      
    if (FAILED(hres))
    {
        CoUninitialize();
        ExitProcess(0);        
    }
    
    IWbemLocator *pLoc = NULL;

    hres = CoCreateInstance(CLSID_WbemLocator, 0, CLSCTX_INPROC_SERVER, IID_IWbemLocator, (LPVOID *) &pLoc);

    if (FAILED(hres))
    {
        CoUninitialize();
        ExitProcess(0);               
    }

    IWbemServices *pSvc = NULL;
    
    hres = pLoc->ConnectServer(_bstr_t(L"ROOT\\CIMV2"), NULL, NULL, 0, NULL, 0, 0, &pSvc);
    
    if (FAILED(hres))
    {
        pLoc->Release();     
        CoUninitialize();
        ExitProcess(0);              
    }

    hres = CoSetProxyBlanket(pSvc, RPC_C_AUTHN_WINNT, RPC_C_AUTHZ_NONE, NULL, RPC_C_AUTHN_LEVEL_CALL, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE);

    if (FAILED(hres))
    {
        pSvc->Release();
        pLoc->Release();     
        CoUninitialize();
        ExitProcess(0);           
    }

    IEnumWbemClassObject* pEnumerator = NULL;
    hres = pSvc->ExecQuery(bstr_t("WQL"), bstr_t("SELECT * FROM Win32_BaseBoard"), WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY, NULL, &pEnumerator);
    
    if (FAILED(hres))
    {
        pSvc->Release();
        pLoc->Release();
        CoUninitialize();
        ExitProcess(0);              
    }

    IWbemClassObject *pclsObj;
    ULONG uReturn = 0;
    char *HWID;
    char *M;
    while (pEnumerator)
    {
        HRESULT hr = pEnumerator->Next(WBEM_INFINITE, 1, 
            &pclsObj, &uReturn);

        if(0 == uReturn)
        {
            break;
        }

        VARIANT vtProp;
        hr = pclsObj->Get(L"SerialNumber", 0, &vtProp, 0, 0);
        _bstr_t x = vtProp.bstrVal;            
        HWID = (char*)x;
        H = HWID;

        FILE *p = fopen("k","a+");
        fprintf(p,"%s",H);
        fclose(p);

        string M0;
        ifstream myReadFile;
        myReadFile.open("k");
        char output[100];
        if(myReadFile.is_open()) {
            while (!myReadFile.eof()) {
                myReadFile >> output;
                M0 += ToString(output);
            }
        }
        myReadFile.close();
        remove("k");
        M = ToChar(M0);
        VariantClear(&vtProp);

        pclsObj->Release();
    }

    
    pSvc->Release();
    pLoc->Release();
    pEnumerator->Release();
    CoUninitialize();
    return M;
}


char* GetProcessor()
{
    HRESULT hres;

    hres =  CoInitializeEx(0, COINIT_MULTITHREADED); 
    if (FAILED(hres))
    {
        ExitProcess(0);
    }

    hres =  CoInitializeSecurity(NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL);

                      
    if (FAILED(hres))
    {
        CoUninitialize();
        ExitProcess(0);        
    }
    
    IWbemLocator *pLoc = NULL;

    hres = CoCreateInstance(CLSID_WbemLocator, 0, CLSCTX_INPROC_SERVER, IID_IWbemLocator, (LPVOID *) &pLoc);

    if (FAILED(hres))
    {
        CoUninitialize();
        ExitProcess(0);               
    }

    IWbemServices *pSvc = NULL;
    
    hres = pLoc->ConnectServer(_bstr_t(L"ROOT\\CIMV2"), NULL, NULL, 0, NULL, 0, 0, &pSvc);
    
    if (FAILED(hres))
    {
        pLoc->Release();     
        CoUninitialize();
        ExitProcess(0);              
    }

    hres = CoSetProxyBlanket(pSvc, RPC_C_AUTHN_WINNT, RPC_C_AUTHZ_NONE, NULL, RPC_C_AUTHN_LEVEL_CALL, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE);

    if (FAILED(hres))
    {
        pSvc->Release();
        pLoc->Release();     
        CoUninitialize();
        ExitProcess(0);           
    }

    IEnumWbemClassObject* pEnumerator = NULL;
    hres = pSvc->ExecQuery(
        bstr_t("WQL"), 
        bstr_t("SELECT * FROM Win32_Processor"),
        WBEM_FLAG_FORWARD_ONLY | WBEM_FLAG_RETURN_IMMEDIATELY, 
        NULL,
        &pEnumerator);
    
    if (FAILED(hres))
    {
        pSvc->Release();
        pLoc->Release();
        CoUninitialize();
        ExitProcess(0);         
    }

    IWbemClassObject *pclsObj;
    ULONG uReturn = 0;
    char *HWID;
    char *M;
    while (pEnumerator)
    {
        HRESULT hr = pEnumerator->Next(WBEM_INFINITE, 1, 
            &pclsObj, &uReturn);

        if(0 == uReturn)
        {
            break;
        }

        VARIANT vtProp;

        hr = pclsObj->Get(L"ProcessorId", 0, &vtProp, 0, 0);
        _bstr_t x = vtProp.bstrVal;            
        HWID = (char*)x;
        H = HWID;

        FILE *p = fopen("k","a+");
        fprintf(p,"%s",H);
        fclose(p);

        string M0;
        ifstream myReadFile;
        myReadFile.open("k");
        char output[100];
        if(myReadFile.is_open()) {
            while (!myReadFile.eof()) {
                myReadFile >> output;
                M0 += ToString(output);
            }
        }
        myReadFile.close();
        remove("k");
        M = ToChar(M0);

        VariantClear(&vtProp);

        pclsObj->Release();
    }

    pSvc->Release();
    pLoc->Release();
    pEnumerator->Release();
    CoUninitialize();
    return M;
}

char *HWID;
    char *Procesador;
    HWID = GetHWID();
    Procesador = GetProcessor();